achso wusste ich ja nicht hättest du aber ruhig sagen können.... zb so
hi
wenn ich mir das umschreibe funktioniert es wunderbar
naja egal....
poste du doch auch einfach mal deins dann kanns jeder sehen *fg*
Bold sind die neuen
Code:
[b]Function[/b] DeleteAll(Dir, Files : string): [b]Integer[/b];
var
SearchRec : TSearchRec;
[b]ergebnis:integer;[/b]
begin
[b]ergebnis:=0;[/b]
if FindFirst(Dir+Files, faAnyFile, SearchRec) = 0 then
begin
DeleteFile(SearchRec.Name);
while FindNext(SearchRec) = 0 do
[b]begin[/b]
DeleteFile(Dir + SearchRec.Name);
[b]ergebnis:=ergebnis + 1;[/b]
[b]end;[/b]
end;
FindClose(SearchRec);
[b]Result:=ergebnis;[/b]
end;
so... aber sag mal wenn du 10 .dat dateien in ein ordner tust und die function oder die alte procedur mit *.dat aufrufst löscht er alle 10 ???
bei mir nämlich nur 9.
greetz Marlno
[edit=sakura]PRE-Tags gesetzt. Mfg, sakura[/edit]