Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Jan 2009
Solange die Attribute verodert und nicht addiert werden, kann nichts passieren.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Jan 2009
Versuch es mal mitif (((Rec.Attr and faDirectory) = 0) then
Forum: Object-Pascal / Delphi-Language
by DeddyH,
4. Sep 2008
procedure ListSubDirs(sDir: string; const sList: TStrings);
var Rec: TSearchRec;
begin
sList.BeginUpdate;
try
sList.Clear;
if FindFirst(IncludeTrailingPathDelimiter(sDir) + '*.*', faDirectory or faReadOnly or faHidden or faArchive, Rec) = 0 then
begin
repeat
if ((Rec.Attr and faDirectory) = faDirectory) and (Rec.Name <> '.') and (Rec.Name <> '..') then
Forum: Object-Pascal / Delphi-Language
by DeddyH,
3. Sep 2008
TStringlist ist ein Nachkomme von TStrings, somit automatisch auch vom Typ TStrings.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
3. Sep 2008
Hättest Du mal früher gesagt, was Du machen möchtest, hätte ich noch SHFileOperation als Alternative angeboten.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
3. Sep 2008
Du kannst entweder z.B. ComboBox.Items übergeben oder Dir eine Stringlist erstellen.var sl: TStringlist;
begin
sl := TStringlist.Create;
try
ListSubDirs(TempDownloadDir,sl);
...
finally
sl.Free;
end;
end;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
3. Sep 2008
Was übergibst Du denn als sList an die Prozedur? Und wieso als Var-Parameter?
Forum: Object-Pascal / Delphi-Language
by DeddyH,
3. Sep 2008
Richtig, und was steht im TSearchRec?
Forum: Object-Pascal / Delphi-Language
by DeddyH,
3. Sep 2008
Was ist an FindFirst/FindNext so schlimm?
Forum: Object-Pascal / Delphi-Language
by DeddyH,
3. Sep 2008
Von Löschen hattest Du nichts gesagt. Und die angesprochene Prozedur könnte z.B. die folgende Signatur haben:procedure ListSubDirs(Dirname: string;const sList: TStrings);
Forum: Object-Pascal / Delphi-Language
by DeddyH,
3. Sep 2008
Du könntest Dir TStrings als Parameter an die Prozedur übergeben. Diese werden dann von der Prozedur befüllt.