Hier mal ein Beispiel, wie ich das machen würde:
Delphi-Quellcode:
[...]
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
function ReadINI(Datei : String) : Integer;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
[...]
procedure TForm1.FormCreate(Sender: TObject);
VAR DesignNo : Integer;
begin
DesignNo := ReadINI(ExtractFilePath(ParamStr(0))+'settings.ini');
if DesignNo = -1 then ShowMessage('Design nicht gefunden!')
else ShowMessage('Design Nr. ' + IntToStr(DesignNo) + ' ist aktiv!');
end;
function TForm1.ReadINI(Datei : String) : Integer;
var MeinINIFile : TIniFile;
begin
Try
MeinINIFile := TIniFile.Create(Datei);
result := MeinINIFile.ReadInteger('Configure', 'Design', -1);
Finally
MeinINIFile.Free;
End;
end;
[...]
Bei mehreren Einzulesenden Dingen natürlich nicht als Funktion mit Rückgabe sondern als Prozedur, welche Variablen den Werten zuweist. Aber soll ja nur mal die Funktionsweise demonstrieren...
Die INI-Datei sehe dann so aus:
============ SCHNIPP ==============
[Configure]
Design=4
============ SCHNAPP ===============
Grüße SCRaT