Forum: Sonstige Fragen zu Delphi
Delphi
by quendolineDD,
13. Jan 2009
Ja, weil ich die Stringliste dann nicht mehr freigeben kann. Aber Delphi dürfte den Speicher dann trotzdem wieder freigeben, was?
Ansonsten mach doch einfach so:
function TForm1.DirectoryListing(const PATH: string;
var L: TListBox): Integer;
var
S : TSearchRec;
begin
Result := 0;
Forum: Sonstige Fragen zu Delphi
Delphi
by quendolineDD,
13. Jan 2009
Oder halt so
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Assign(DirectoryListing('C:/*'));
end;
function TForm1.DirectoryListing(const PATH: string): TStrings;
var
S : TSearchRec;
begin