Ordnerinhalt in Listbox laden; Items als Buttons benutzen

[DRPEnc]

Problem mit den Buttons gelöst:

Delphi-Quellcode:

procedure TForm1.ListBox3Click(Sender: TObject);
var
path, Filename : string;
begin
Path := Edit6.text+'\';
Filename := Path + Listbox3.Items[Listbox3.ItemIndex];
Listbox3.Items.LoadFromFile(Filename);  // öffnen
end;

@ims: Sorry Ich bin ein bisschen zerstreut. Link mir nochmal das andere Thema. THX ... meinst du diesen? Open.Dialog/Initial.Dir

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s, path: string;
  i   : integer;
  stl : tstringlist;
begin
   path:=Edit6.text+'*.*'#0;
   s := path;

   ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
   listbox1.ItemIndex:=0;

  stl:=tstringlist.Create;
  try
    for  i := 0 to  listbox1.items.count - 1 do
    begin
      stl.Add(listbox1.items.strings[listbox1.itemindex]);
      listbox1.ItemIndex:=listbox1.ItemIndex+1;
    end;
    listbox1.Items.CommaText:=stl.commatext;
  finally
    stl.Free;
  end;
end;

hmm... irgendwas ist falsch

Dieses doofe #0 mag irgendwie nicht mit variablen...

Lol! Habs hinbekommen:

path :=Edit6.text+'\*.DRPTlt'#0;