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.