Forum: Sonstige Fragen zu Delphi
Delphi
by taaktaak,
13. Jan 2009
Weil du dir unnötigerweise Problem mit dem Freigeben der in der Funktion erzeugten Liste einhandelst. Du kannst natürlich auch eine Funktion formulieren, die wie die Prozedur direkt an die Listbox übergibt und als Funktionsergebnis den Erfolg/Misserfolg des DirScans meldet.
Forum: Sonstige Fragen zu Delphi
Delphi
by taaktaak,
13. Jan 2009
Schon richtig!
Das ist nur übernommen, nicht von mir.
Hätte korrigiert werden müssen!
Sorry!
:cry:
Forum: Sonstige Fragen zu Delphi
Delphi
by taaktaak,
13. Jan 2009
Ja, geht auch, aber TStrings sind universeller
:wink:
Forum: Sonstige Fragen zu Delphi
Delphi
by taaktaak,
13. Jan 2009
procedure TForm1.Button1Click(Sender: TObject);
begin
DirectoryListing('C:/*',Listbox1.Items);
end;
procedure TForm1.DirectoryListing(const PATH:String;SL:TStrings);
var
S : TSearchRec;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by taaktaak,
13. Jan 2009
if (S.Name<>'.') and (S.Name<>'..') then Result.Add(S.Name)
// PS: dass die Funktion eine Stringliste erzeugt, finde ich nicht besonders glücklich, mach' doch 'ne Prozedur draus und übergebe dieser die Listbox zum direkten Befüllen