VaiLet

Здравствуйте.
ошибку выдает, не могу записать в файл
помогите пожалуйста очень нужно

*************************

type people=record
im:string[10];
year:1..99;
end;
group=file of people;
var
k:integer;
procedure TForm1.Button2Click(Sender: TObject);

begin
k:=StrToInt(Edit3.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
f:group;
z:people;
i:integer;
begin
i:=0;
assignFile(f,'c:\god.db');
Rewrite(f);

repeat
with z do
begin
im:=Edit1.Text;
year:=StrToInt(Edit2.Text);
end;
Seek(f, FileSize(f));
write(f, z);
Edit1.Clear;
Edit2.Clear;
i:=i+1;
until i<=k ;

end;

end.

AlexZir

попробуйте так:

Gruvi

Попробуй работать через memo так проще, задаешь просто 1ую строку имя.
У меня есть программа которая полностью работает с файлами, если интересно, я тебе скину 13,14 числа сюда.
программа записывает, добавляет, удаляет, переименовывает файлы и еще там что-то , писал пару месяцев назад кому-то =)