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

Информатика. Программирование в Delphi
281
//если i −я строка равна последней редактируемой строке
if old=new then
begin
//редактируемой (выделенной) строкой становится
// найденная i - строка
Row:=i;
//выход из процедуры
exit;
end;
end;
end;
end;
8. В разделе Implementation создайте процедуру savetofile, которая со-
храняет таблицу в заданном файле
//сохранение таблицы в файле
procedure savetofile(path:string);
var
//счетчики
i,j:word;
//файловая переменная
f:textfile;
begin
//сохранение имени текущего файла
currfile:=path;
//связь файловой переменной с файлом
AssignFile(f,path);
//перезапись файла
Rewrite(f);
//запись в файл количества столбцов
writeln(f,Form1.StringGrid1.ColCount);
//запись в файл количества строк
writeln(f,Form1.StringGrid1.RowCount);
//запись в файл ячеек таблицы
for i:=1 to Form1.StringGrid1.RowCount-1 do
for j:=0 to Form1.StringGrid1.ColCount-1 do
writeln(f,Form1.StringGrid1.Cells[j,i]);
//закрытие файла
CloseFile(f);
end;
9. В разделе Implementation создайте процедуру loadfromfile, которая
извлекает (читает) таблицу из заданного файла