begin {Запуск стандартного діалога "Open file" на виконання}
AssignFile(F, OpenDialog1.FileName);
{F - назва вибраного діалогом файлу (властивість FileName об'єкта OpenDialog1)}
Reset(F); N:=0;{Читаємо від початку файлу}
while not eof(F) do {Зчитуємо вci записи з файлу}
Begin
Read(F,r); {У змінну r зчитуємо поточний запис}
StringGrid1.Cells[0,N+1]:=r.prizv; {Прізвище - в перший стовп. табл.}
StringGrid1.Cells[1, N+1]:=r.imja; {Ім'я - в другий стовпець таблиці}
StringGrid1.Cells[2,N+1]:=r.adres; {Адреса – у третій стовпець табл.}
StringGrid1.Cells[3, N+1]:=r.tel; {Телефон - четвертий стовпець}
N:=N+1; {Збільшуємо загалъну к-стъ записів N}
end;
CloseFile(F); {Закриваємо файл}
NewEdit(ComboBox1); {Процедура заповнення полів редагування першої сторінки форми, яка буде описана нижче по тексту}
NewComboBox; {Процедура заповнення комбінованого списку першої сторінки форми, яка буде описана нижче по тексту}
End
end;
//Записати у файл (зробити самостійно !!!)
procedure TPagesDlg.N3Clіck(Sender: TObject);
var і:іnteger;
Begіn
{Виконання стандартного діалогу для збереження файлу.
Записуємо з таблиці StrіngGrіd дані в типізований файл з початку файлу. Підказка: для закінчення циклу по запису можна використовувати наступну структуру
whіle StrіngGrіd1.Cells[3,і]<>'' do оператори;
тому що третій стовпець у таблиці останній
Закриття файлу}
end;
