[Alexi]

Подскажите, как устранить ошибку:

Код:

procedure TForm1.N2Click(Sender: TObject);
Type MyZakaz = record
data: string[30];
fio:string[60];
tel:string[15];
adres:string[30];
mail:string[20];
vid:string;
postavshik:string;
line:string[30];
end;
var zakaz: MyZakaz;
    f: file of Zakaz; - на этом месте выдает ошибку"[Error] Unit1.pas(392): Constant or type identifier expected"
 a,b,c,d: string; i:integer;

Админ: Пользуемся тегами для оформления кода!

[YVitaliy]

А почему у тебя файл f : file of переменная, когда он должен быть f : file of тип(MyZakaz)?

[Alexi]

Так тоже делала, и тоже ошибку выдает
Type MyZakaz = record
data: string[30];
fio:string[60];
tel:string[15];
adres:string[30];
mail:string[20];
vid:string;
postavshik:string;
line:string[30];
end;
var zakaz: MyZakaz;
f: file of MyZakaz;-ошибка "[Error] Unit1.pas(392): Type 'MyZakaz' needs finalization - not allowed in file type"
a,b,c,d: string; i:integer;

[icWasya]

Вот это

Код:

vid:string;
postavshik:string;

Используются строки переменной длины - в файл такие писать нельзя.
Сделай по аналогии с другими полями

[Alexi]

так тоже делала, те же ошибки выдает.

[YVitaliy]

А так:

Код:

Type MyZakaz = record
 data: string[30];
 fio:string[60];
 tel:string[15];
 adres:string[30];
 mail:string[20];
 vid:stringх[60];
 postavshik:string[60];
 line:string[30];
 end;

Программа должна знать, какова финальная длина записи, открытые строки тут не катят.
Если хочешь использовать строки переменной длины, тогда гоу к нетипизированным файлам. Но тогда доступ к нужным данным сложнее(в длине кода).