сделать записную книжку, чтобы сохраняла в файл записи и открывает при запуске (с двоичным кодом - не .ТХТ) НЕ получается никак

[Trojan5]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn1: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure StringGrid1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
//КНОПКА ОТКРЫТИЯ ФАЙЛА//
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
StringGrid1.RowCount:= StringGrid1.RowCount+1;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
var
i,j: Integer;
begin
j:=StringGrid1.Row; // строка с выделением
StringGrid1.Rows[j].Clear; //очистить выдилиную строку
for i:=j to StringGrid1.RowCount-2 do //цикл нахождения выделиной строки
StringGrid1.Rows[i].Assign(StringGrid1.Rows[i+1]); //
StringGrid1.RowCount:=StringGrid1.RowCount-1; // удалить строку
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
//КНОПКА СОХРАНЕНИЯ ФАЙЛА//
close;
end;
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
with stringgrid1 do begin
Cells[0,0]:=' Фамилия '; //названия колонки с координатами
Cells[1,0]:='Имя'; //названия колонки с координатами
Cells[2,0]:= 'Отчество'; //названия колонки с координатами
Cells[3,0]:= 'Адрес'; //названия колонки с координатами
Cells[4,0]:= 'Телефон'; //названия колонки с координатами
end;
end;
end.

[Arigato]

Типа записей (record) в вашем коде я не увидел. Сохранять в файл их очень просто: file of <ваш тип записи>, далее работаем как обычно с файлами: write, read, eof и прочее.

[Trojan5]

Сообщение от Arigato

Типа записей (record) в вашем коде я не увидел. Сохранять в файл их очень просто: file of <ваш тип записи>, далее работаем как обычно с файлами: write, read, eof и прочее.

Напишите пожалуйста как это должно выглядеть, просто времени изучать нету в связи с сессией