Реферат: Записная книжка на Delphi 7

for i:=j to StringGrid1.RowCount-2 do //цикл нахождения выделиной строки

- 14 -

StringGrid1.Rows[i].Assign(StringGrid1.Rows[i+1]); //

StringGrid1.RowCount:=StringGrid1.RowCount-1; // удалить строку

В кнопку «Выйти» просто вставим один оператор: ‘Close’.

Для каждой кнопки нужно подобрать пиктограму, для этого нужно использовать свойство Glyph.

Так как это справочник, то нужно чтобы все записи сохранялись, при выходе, и загружались, при запуске программы. Для этого в Окне Редактора Кода между словами Type и где объявляются другие процедуры нужно написать: ‘Procedure SaveGrid;’, а после слова implementation нужно вставить следующий код:

procedure TBaseForm.SaveGrid; // имя процедуры

var

f: textfile;

x, y: integer;

begin

assignfile(f, 'Base.zap');// открыть файл ‘Base’

rewrite(f); // переписать файл

writeln(f, StringGrid1.colcount); //просмотр значения столбцов

writeln(f, StringGrid1.rowcount);// просмотр значения строк

for X := 0 to StringGrid1.colcount - 1 do // начало цикла записи значения каждой ячейки

for y := 0 to StringGrid1.rowcount - 1 do

writeln(F, StringGrid1.cells[x, y]);

closefile(f);//закрыть файл

end;

А для загрузки: аналогичным способом объявим процедуру загрузки: ‘Procedure LoadGrid’, а процедура загрузки имеет следующий код:

procedure TBaseForm.LoadGrid;

var

f: textfile;

temp, x, y: integer;

tempstr: string;

begin

assignfile(f, 'Base.zap'); // открыть файл ‘Base’

reset(f); // Сбить файл