Стр. 282 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
282
//загрузка таблицы из файла
procedure loadfromfile(path:string);
var
//счетчики
i,j:word;
//файловая переменная
f:textfile;
//буфер для чтения данных из файла
s:string;
begin
//сохранение имени текущего файла
currfile:=path;
//связь файловой переменной с файлом
AssignFile(f,path);
//открытие файла
Reset(f);
//чтение из файла количества столбцов в таблице
readln(f,s);
Form1.StringGrid1.ColCount:=StrToInt(s);
//чтение из файла количества строк в таблице
readln(f,s);
Form1.StringGrid1.RowCount:=StrToInt(s);
//чтение из файла последовательно друг за другом ячеек таблицы
//здесь i −номер строки, а j −номер столбца
for i:=1 to Form1.StringGrid1.RowCount-1 do
for j:=0 to Form1.StringGrid1.ColCount-1 do
begin
readln(f,s);
Form1.StringGrid1.Cells[j,i]:=s;
end;
//закрытие файла
CloseFile(f);
end;
10. В инспекторе объектов для формы Form1 создайте процедуру
FormCreate для обработки события OnCreate,
//процедура выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
var
//файловая переменная
f:TextFile;
// строка для чтения данных из файла
s:string;