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