Main Menu

[Andreas L.]

Dein FindFiles sucht die Dateien und fügt diese der Liste aResult hinzu. Natürlich musst du dann als Parameter der Funktion auch eine Liste vom Typ TStrings übergeben damit du auf die Ergebnisse zugreifen kannst:

Delphi-Quellcode:

var
  Files: TStrings;
  iFile: Integer;
  Itm: TMenuItem;
begin
  Files := TStringList.Create; //erstellen der List, TStringList verwenden weil TStrings eine abstrakte Klasse ist
  try
    FindFiles(Pfad, True, Files);
    //Die gefundenen Dateien sind jetzt in Files gespeichert, diese Liste kannst du jetzt in einer For-Schleife durchgehen und für jede Datei ein TMenuItem erstellen
    for iFile := 0 to Files.Count -1 do
    begin
      Itm := TMenuItem.Create;
      Itm.Caption := Files[iFile];
      MainMenu1.Items.Add(Itm);  //hier bin ich mir nicht sicher, verwende das normale MainMenu nie, schau mal in die Hilfe...
    end;
  finally
    Files.Free;  //Speicher freigeben
  end;
end;