ВУЗ:
Составители:
Рубрика:
19
x,y,CurRec:integer;
22. Напишите обра-
ботчик события On-
Click кнопки BitBtn5
– Запись в файл
procedure TAdditional-
Tab.BitBtn5Click(Sender: TOb-
ject);
begin
{
Заполнить поля записи text_str содержимым ячеек 2-й
строки таблицы StringGrid1}
text_str.fio:=AdditionalTab.StringGri
d1.Cells[0,2];
text_str.job:=AdditionalTab.StringGri
d1.Cells[1,2];
text_str.division:=AdditionalTab.Stri
n
gGrid1.Cells[2,2];
text_str.city:=AdditionalTab.StringGr
id1.Cells[3,2];
text_str.phone:=AdditionalTab.StringG
rid1.Cells[4,2];
text_str.money:=AdditionalTab.StringG
rid1.Cells[5,2];
{Переменной FileName присвоить имя файла в ката-
логе, где сохранен проект}
FileName:='people.dat';
{Связать переменную FileSave с файлом на диске}
AssignFile(FileSave,FileName);
{Если FileSave существует на диске, то открыть его
для чтения и переместить указатель текущего компо-
нента в конец файла, иначе создать файл и открыть
для записи}
if FileExists(FileName)
then
begin
reset(FileSave);
Seek(FileSave,FileSize(FileSav
e))
end
else rewrite(FileSave);
{Записать в файл FileSave содержимое записи
text_str}
write(FileSave,text_str);
{Закрыть файл FileSave и для чтения, и для записи}
CloseFile(FileSave);
end;
23. Напишите обра-
procedure TAdditional-
