ВУЗ:
Составители:
Рубрика:
20
ботчик события On-
Click кнопки BitBtn6
– Считывание из
файла
Tab.BitBtn6Click(Sender: TOb-
ject);
begin
FileName:='people.dat';
AssignFile(FileSave,FileName);
{Номеру строки х присвоить 1, номеру столбца у
присвоить 0}
x:=1; y:=0;
if FileExists(FileName)
then
begin
reset(FileSave);
{Пока не конец файла читать его компоненты в за-
пись text_str, содержимое полей которой присвоить
ячейкам рабочей зоны таблицы StringGrid}
while not eof(FileSave) do
begin
read(FileSave,text_str);
AdditionalTab.StringGrid1.Cells[y,x]:= text_str.fio;
AdditionalTab.StringGrid1.Cells[y+1,x]:= text_str.job;
AdditionalTab.StringGrid1.Cells[y+2,x]:=
text_str.division;
AdditionalTab.StringGrid1.Cells[y+3,x]:=
text_str.city;
AdditionalTab.StringGrid1.Cells[y+4,x]:=
text_str.phone;
AdditionalTab.StringGrid1.Cells[y+5,x]:=
text_str.money;
x:=x+1
end
end
else rewrite(FileSave);
CloseFile(FileSave);
end;
24. Сохраните формы и
проект на диск
File|Save, File|Save Project As...
25. Проверьте работу программы
F9
Теперь информацию о сотруднике, введенную в сетку строк, можно
записать в файл. Затем, не закрывая проекта, вернуться на первую форму и
ввести информацию о другом сотруднике. Также отобразить новую ин-
формацию в сетке строк и записать в файл и т.д. Если Вы очистите сетку
строк и нажмете кнопку Считывание из
файла, то сетка заполнится запися-
ми, сохраненными на диск. В каталоге с файлами Вашего проекта появился
новый файл people.dat. Количество записей в файле не должно превышать
количества строк в рабочей зоне таблицы StringGrid.
