Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
23. Aug 2003
So, zwei kleine Fehlerchen sind da noch... waren die oben auch :?
Function DeleteAll(Dir, Files : string): Integer;
var
SearchRec : TSearchRec;
ergebnis:integer;
begin
ergebnis:=0;
if FindFirst(Dir+Files, faAnyFile, SearchRec) = 0 then
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
23. Aug 2003
Wenn ich mir die umschreibe, funktioniert es ohne Probleme. Deshalb sollst Du ja auch DEINEN Code posten :roll:
...:cat:...
P.S.: Ich habe Deinen Beitrag durchaus vollständig gelesen.
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
23. Aug 2003
Sei doch mal so gut und poste Deinen geänderten Code ;-)
...:cat:...
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
19. Mär 2003
oder in die Code-Library schauen.
http://www.delphipraxis.net/viewtopic.php?t=1451
...:cat:...