Forum: Object-Pascal / Delphi-Language
Delphi
by Golze,
2. Sep 2004
Hallo Sniffi,
noch ein Hinweis auf dein Quellcode. Du solltest noch folgendes ändern:
Dein Code ist
procedure GetFiles(const ADirectory: string; Files: TStringList;
SubFolders: Boolean);
änder auf
procedure GetFiles(const ADirectory: string; Files: TStrings; //TStrings ist an dieser Stelle besser
Forum: Object-Pascal / Delphi-Language
Delphi
by Golze,
2. Sep 2004
Hallo Sniffi,
für unterschiedliche Laufwerke kannst du ein Edit-Feld nutzen.
procedure TForm1.Button1Click(Sender: TObject);
begin
Getfiles(Edit1.Text, Listbox1.Items, false); //Edit1.Text neu eingefügt
end;
Kay