Запись и чтение из файла не текстовых данных

Рассмотрим пример, в котором программа при выходе сохраняет свои размеры и положение окна на экране в файл и при последующем запуске восстанавливает состояние, которое было при выходе. Программа состоит из двух процедур OnShow и OnClose для окна Form1 программы.

procedure TForm1.FormShow(Sender: TObject);

Var f: file of Integer; // файловая переменная, тип integer

i:Integer; // целочистенная переменная

Begin

AssignFile(f,'pos.ini');

{$I-}

Reset(f);

{$I+}

if IOResult<>0 then Exit;

 

Read(f,i); //считать из файла значение

Form1.Top:=i; // верхнее положение окна

 

Read(f,i);

Form1.Left:=i; // левое положение окна

 

Read(f,i);

Form1.Width:=i; // ширина окна

 

Read(f,i);

Form1.Height:=i; // высота окна

 

CloseFile(f);

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

Var f: file of Integer;

Begin

AssignFile(f,'pos.ini');

{$I-}

Rewrite(f);

{$I+}

if IOResult<>0 then Exit;

 

Write(f,Form1.Top);

Write(f,Form1.Left);

Write(f,Form1.Width);

Write(f,Form1.Height);

 

CloseFile(f);

end;

Как вы наверное заметили, имя файла, в котором храним переменные состояния окна, мы указали без пути, просто pos.ini. В этом случае файл создается и открывается в текущем каталоге. По умолчанию это каталог, из которого была запущена программа.

С уважением, ведущий уроков Semen semen@krovatka.net