INI Dateien auslesen

[Christian Seehase]

Moin Mario,

mir ist zwar im Moment nicht so recht klar, warum das nicht funktioniert (auch wenn's nicht schön ist die Servernummer fünfmal zu lesen, gehen sollte es so), aber ich hätte da noch eine Idee:

Delphi-Quellcode:

var
  settings  : TIniFile;
  iServerNr : integer;

begin
  settings := TIniFile.create(ExtractFilePath(ParamStr(0)) + 'settings.ini');
  Try
    edit1.Text := settings.ReadString('nick', 'nickname', '');
    edit2.Text := settings.ReadString('nick', 'passwort', '');
    iServerNr  := Settings.ReadInteger('server','servernr',-1);
    if iServerNr <> -1 then
    begin
      ListBox1.Selected[iServerNr-1] := true;
    end;
  finally
    settings.Free;
  end;
end;

Da die ServerNummer ja numerisch ist, kannst Du sie auch gleich als Integer lesen.