TMUnit < wasn das ?

[ichbins]

Du brauchst das Komma garnicht. Ruf einfach so auf:

Delphi-Quellcode:

  //Nicht so:
  DateienLoeschen(path+'\','*.jpeg'); 
  //Sondern so:
  DateienLoeschen(path+'\*.jpeg');

Eine Funktion die 2 Parameter erfordert, so wie du sie verwendest, sieht so aus:

Delphi-Quellcode:

function dateienloeschen(filepath,fileext:string):integer; 
var 
  f:tsearchrec; 
  fi:file; 
  files:array of string; 
  i:integer; 
  filename:string;
begin 
  result:=0; 
  filename:=filepath+fileexit;
  if findfirst(filename,0,f)<>0 then exit; 
  setlength(files,1); 
  files[0]:=f.Name; 
  while findnext(f)<>0 do begin 
    setlength(files,length(files)+1); 
    files[length(files)-1]:=f.Name; 
  end; 
  findclose(f); 
  for I:=0 to length(files)-1 do 
  begin 
    try begin 
      assignfile(fi,files[i]); 
      erase(fi); 
      inc(result); 
    end; except end; 
  end; 
end;