Procedure TForm1.LoadProgParam; var

FIniFile: TRegIniFile; begin FIniFile := TRegIniFile.Create('Software');

FIniFile.OpenKey('VR',true);

FIniFile.OpenKey('VR-Online',true);

Width:=FIniFile.ReadInteger('Option', 'Width', 600); Height:=FIniFile.ReadInteger('Option', 'Heigth', 400); Left:=FIniFile.ReadInteger('Option', 'Left', 10); Top:=FIniFile.ReadInteger('Option', 'Top', 10);

WindowState:=TWindowState(FIniFile.ReadInteger('Option', 'WinState', 2));

FIniFile.Free; end;

На компакт диске, в директорииПримерыГлава 10Registerты можешь увидеть пример этой программы.

 

10.12 Потоки

од потоком я понимаю объект TStream, который является базовым объектом для потоков разных типов. В этом объекте реализованы все необходимые свойства и методы, необходимые для чтения и записи данных на различные

типы носителей (память, диск, медиа носители). Благодаря этому объекту, доступ к разным типам носителей становиться одинаковым.

В этой главе, когда я описывал работу с файлами, мы уже использовали потоки. Объект TFileStream является потомком главного объекта TStream и позволяет получить доступ к диску. Точно так же можно получить доступ:

�.-к памяти через объект TMemoryStream.

�.-к сети через объект TWinSocketStream.

�.-к СОМ интерфейсу через TOleStream.

�.-к строкам, находящимся в динамической памяти TStringStream.

 

Это не полный список объектов потоков, но даже все эти объекты мы рассматривать не будем. Я покажу тебе только базовый объект TStream, а ты потом посмотри на то, как мы работали с TFileStream и увидишь, что всё просто. Точно так же можно будет работать с любым другим потоком, без каких либо изменений.

Итак, давай разберёмся со свойствами и методами потока: