INI Dateien auslesen

[Christian Seehase]

Moin Mario,

sollte so gehen:

Delphi-Quellcode:

procedure TForm3.FormActivate(Sender: TObject); 
var 
  settings: TIniFile; 
  i       : integer;

begin 
  settings := TIniFile.create(ExtractFilePath(ParamStr(0)) + 'settings.ini'); 
  Try 
    edit1.Text := settings.ReadString('nick', 'nickname', ''); 
    edit2.Text := settings.ReadString('nick', 'passwort', ''); 
    for i := 0 to 4 do
    begin
      ListBox1.Selected[i] := Settings.ReadString('server','servernr','') = IntToStr(i+1);
    end;
  finally 
    settings.Free; 
  end; 
end;