Код для события Click Компонента button4

procedure TForm2.Button4Click(Sender: TObject);

var

i:integer;

f:file of str;

rec:str;

begin

AssignFile(f, 'f.dat');

if fileExists('f.dat') then

begin

reset(f);

seek(f,filesize(f))

end

else

rewrite(f);

for i:=1 to tab1.rowcount-1 do

begin

rec.fio:=tab1.cells[0,i];

rec.rab:=tab1.cells[1,i];

rec.otd:=tab1.cells[2,i];

rec.city:=tab1.cells[3,i];

rec.phone:=tab1.cells[4,i];

rec.money:=tab1.cells[5,i];

write(f,rec);

end;

closefile(f);

showmessage('Данные записаны!');

end;

- Читает информацию с файла в таблицу.

Дата добавления: 2014-07-23; просмотров: 348; Нарушение авторских прав

Мы поможем в написании ваших работ!