Помогите пожалуйста!
Вот такая задача: Сведения об автомобиле состоят из его марки, номера, фамилии владельца и отметки о прохождении техосмотра. Вывести фамилии владельцев и номера автомобилей определенной марки, не прошедших техосмотр.
Получилась вот такая программа
| Код | procedure TForm1.Button1Click(Sender: TObject);
Type Zapis=Record
Fam:String[50]; {фамилия владельца}
Marka:String[10]; {марка автомобиля}
NomAvto:String[10]; {номер автомобиля}
Tehosm:String[5]; {отметка о техосмотре}
TrebMarka:String[10]; {требуемая марка}
End;
Var NameFile:File of Zapis;
Stroka:Zapis;
I:Integer; {параметр цикла}
N:Integer; {количество записей}
begin
N:=StrToInt(EditN.Text);
AssignFile(NameFile,'file1.dat');
Rewrite(NameFile);
For I := 1 To N Do
Begin
Stroka.Fam:=StringGrid1.Cells[0,I-1];
Stroka.Marka:=StringGrid1.Cells[1,I-1];
Stroka.NomAvto:=StringGrid1.Cells[2,I-1];
Stroka.Tehosm:=StringGrid1.Cells[3,I-1];
Write(NameFile,Stroka);
End;
CloseFile(NameFile);
end;
procedure TForm1.Button2Click(Sender: TObject);
Type Zapis=Record
Fam:String[50];
Marka:String[10];
NomAvto:String[10];
Tehosm:String[5];
TrebMarka:String[10];
End;
Var NameFile:File of Zapis;
Stroka:Zapis;
I:Integer;
TrebMarka:String[10];
begin
Stroka.TrebMarka:=EditTrebMarka.Text;
AssignFile(NameFile,'file1.dat');
Reset(NameFile);
I:=0;
While Not Eof(NameFile) Do
Begin
Read(NameFile,Stroka)
If ((Stroka.Tehosm='нет*') Or (Stroka.Tehosm='Нет*') And (Stroka.Marka=Stroka.TrebMarka))
Then
Begin
StringGrid1.Cells[0,I]:=Stroka.Fam;
StringGrid1.Cells[1,I]:=Stroka.NomAvto;
I:=I+1;
End;
CloseFile(NameFile);
End;
end;
end. |
Когда запускаю вылазит ошибка 103,не понимаю в чем дело.может что нибудь посоветуете?
|
)