Запись и чтение из файла не текстовых данных
Рассмотрим пример, в котором программа при выходе сохраняет свои размеры и положение окна на экране в файл и при последующем запуске восстанавливает состояние, которое было при выходе. Программа состоит из двух процедур 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
|
