Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Sep 2009
Jepp, irgendwann ist Schluss.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
7. Sep 2009
Du kannst doch vor dem Aufruf der Prozedur gar nicht wissen, ob Ordner enthalten sind. Eine Überprüfung kann also nur im Anschluss erfolgen.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
7. Sep 2009
Du kannst das Maximum nicht "erstellen", das richtet sich nach der Anzahl der Einträge. Vermutlich hast Du eine For-Schleife, in der Du bis Liste.Count statt Liste.Count - 1 durchläufst.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
6. Sep 2009
Lass das Array mal weg und nimm stattdessen TStrings. Dann ginge das ungefähr so (aus dem Kopf getippt, daher ungetestet):
procedure GetDirectories(DirName: string; const sl: TStrings);
var Rec: TSearchRec;
begin
sl.Clear;
DirName := IncludeTrailingPathDelimiter(DirName);
if FindFirst(DirName + '*.*', faDirectory, Rec) = 0 then
try
repeat
if (Rec.Name <> '.') and...
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
6. Sep 2009
Soll das eine Art Ordnersynchronisation werden?
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
6. Sep 2009
Oder eine Ableitung von TStrings (TStringlist z.B.).