Guten Morgen Joel,
aus der Hilfe:
Zitat:
Use ItemIndex to select an item at runtime. Set the value of ItemIndex to the index of the item to be selected. The ItemIndex of the first item in the list box is 0. If no item is selected, the value is -1, which is the default value unless MultiSelect is True.
das kann dann so eingesetzt werden:
Delphi-Quellcode:
procedure TMainForm.ListBox1Click(Sender: TObject);
var ini: TIniFile;
begin
if Listbox1.ItemIndex > -1 then
begin
ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'\data\'+listbox1.Items[Listbox1.ItemIndex]); //Endung .ini sollte schon mit in der Listbox stehen
try
Edit1.Text:=ini.ReadString('Zugangsdaten','Benutzername','');
Edit2.Text:=ini.ReadString('Zugangsdaten','Kennwort','');
finally
ini.free;
end;
end;
end;
Grüße
Klaus