ОА "Микротехника"

INI file

uses System.IniFiles;


procedure TForm1.FormCreate(Sender: TObject);
var
ini: TIniFile;
begin

// ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'..\..\import.ini');
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'import.ini');

StringColumn1.Width:=ini.ReadInteger('Width', 'Cell1', 100);
StringColumn2.Width:=ini.ReadInteger('Width', 'Cell2', 100);
StringColumn3.Width:=ini.ReadInteger('Width', 'Cell3', 100);
StringColumn4.Width:=ini.ReadInteger('Width', 'Cell4', 100);
StringColumn5.Width:=ini.ReadInteger('Width', 'Cell5', 100);
StringColumn6.Width:=ini.ReadInteger('Width', 'Cell6', 100);
StringColumn7.Width:=ini.ReadInteger('Width', 'Cell7', 100);
StringColumn8.Width:=ini.ReadInteger('Width', 'Cell8', 100);
StringColumn9.Width:=ini.ReadInteger('Width', 'Cell9', 100);
StringColumn10.Width:=ini.ReadInteger('Width', 'Cell10', 100);

end;

procedure TForm1.FormDestroy(Sender: TObject);
var
ini: TIniFile;
begin
//ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'..\..\import.ini');

ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'import.ini');
ini.WriteInteger('Width', 'Cell1',round(StringColumn1.Width));
ini.WriteInteger('Width', 'Cell2',round(StringColumn2.Width));
ini.WriteInteger('Width', 'Cell3',round(StringColumn3.Width));
ini.WriteInteger('Width', 'Cell4',round(StringColumn4.Width));
ini.WriteInteger('Width', 'Cell5',round(StringColumn5.Width));
ini.WriteInteger('Width', 'Cell6',round(StringColumn6.Width));
ini.WriteInteger('Width', 'Cell7',round(StringColumn7.Width));
ini.WriteInteger('Width', 'Cell8',round(StringColumn8.Width));
ini.WriteInteger('Width', 'Cell9',round(StringColumn9.Width));
ini.WriteInteger('Width', 'Cell10',round(StringColumn10.Width));
end;

import.ini

[Width]
Cell1=74
Cell2=108
Cell3=63
Cell4=61
Cell5=65
Cell6=100
Cell7=67
Cell8=57
Cell9=89
Cell10=92




Delphi