Создание ini файла
Rusl@n © (2008-09-21 15:44:00)
Приведите пожалуста простой пример создания Ini файла, для
настройки программы,если это не затруднит Вас
{RASkov} (2008-09-21 16:07:00) [1]
implementation
uses IniFiles;
{$R *.dfm}
const INI_FILE = 'Param.ini';
procedure TForm1.FormCreate(Sender: TObject);
begin
if
FileExists(ExtractFilePath(Application.ExeName)+INI_FILE) then
with
TIniFile.Create(ExtractFilePath(Application.ExeName)+INI_FILE) do
try
Left:=ReadInteger('POSSIZE', 'LEFT', 0);
Top:=ReadInteger('POSSIZE', 'TOP', 0);
Width:=ReadInteger('POSSIZE', 'WIDTH', 100);
Height:=ReadInteger('POSSIZE', 'HEIGHT', 100);
finally
Free;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
with
TIniFile.Create(ExtractFilePath(Application.ExeName)+INI_FILE) do
try
WriteInteger('POSSIZE', 'LEFT', Left);
WriteInteger('POSSIZE', 'TOP', Top);
WriteInteger('POSSIZE', 'WIDTH', Width);
WriteInteger('POSSIZE', 'HEIGHT', Height);
finally
Free;
end;
end;
end.
Наверх 
ЧАТ |
Орешник |
|
