alle .ini datei in einem bestimmten ordner auflisten

[Klaus01]

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