INI Dateien auslesen

[Pseudemys Nelsoni]

jo hehe sorry, hab halt noch nicht so nen grossen plan davon

btw nochmal was...

Delphi-Quellcode:

procedure TForm3.FormActivate(Sender: TObject);
var settings: TIniFile;
begin
  settings := TIniFile.create(ExtractFilePath(ParamStr(0)) + 'settings.ini');
  Try
    edit1.Text := settings.ReadString('nick', 'nickname', '');
    edit2.Text := settings.ReadString('nick', 'passwort', '');
    if settings.ReadString('server', 'servernr', '') = '1' then
    begin
      listbox1.Selected[1-1] := true;
    end;
    if settings.ReadString('server', 'servernr', '') = '2' then
    begin
      listbox1.Selected[2-1] := true;
    end;
    if settings.ReadString('server', 'servernr', '') = '3' then
    begin
      listbox1.Selected[3-1] := true;
    end;
    if settings.ReadString('server', 'servernr', '') = '4' then
    begin
      listbox1.Selected[4-1] := true;
    end;
    if settings.ReadString('server', 'servernr', '') = '5' then
    begin
      listbox1.Selected[5-1] := true;
    end;
  finally
    settings.Free;
  end;
end;

wie man da sieht sind da ca 5 mal

Delphi-Quellcode:

if settings.ReadString('server', 'servernr', '') = '4' then
    begin
      listbox1.Selected[4-1] := true;
    end;

solche sachen (nur mit anderen werten)

könnte man das nicht irgendwie kürzer machen? also nicht für jeden wert nochmal das ganze schreiben? mit ner prozedur(?) oder so??

gruss mario

btw: schlafen geht nimmer muss noch pc kaufen