TMUnit < wasn das ?

[fkerber]

HI!

An welcher Stelle denn?
Schon mal mit F7/F8 durchgegangen?


Ciao Frederic

[Gast]

Ich kriege das Programm Compiliert, doch wenn ich auf den Button zum Sachen löschen klicken, dann stürzt das Programm ab, gibts da keine einfachere Methode mein Ziel zu erreichen ?

Habe folgendes vor:

- Pfad soll im Tree gewählt werden können
- Es soll angewählt werden können welche Dateien mit welchen Endungen gelöscht werden
- Per Button sollen die angewählten dann gelöscht werden

Och menno, vorher mit der TMUnit ging das alles wunderbar :/

[ichbins]

Sorry, tut mir echt leid. Ich habe einen riesen Fehler reingemacht.

Es muss heissen:

Delphi-Quellcode:

while findnext(f)=0 do begin

und nicht

Delphi-Quellcode:

while findnext(f)<>0 do begin

Ich habe noch ein paar andere Fehler gefunden und korrigiert.
Insgesammt sieht es dann so aus:

Delphi-Quellcode:

function dateienloeschen(filepath,ext:string):integer;
var
  f:tsearchrec;
  filename,path,fileext:string;
begin
  path:=filepath;
  if path[length(path)]<>'\' then path:=path+'\';
  result:=0;
  fileext:=ext;
  if ((fileext='') or (fileext='*')) then fileext:='*.*';
  if fileext[1]<>'*' then fileext:='*'+fileext;
  if fileext[2]<>'.' then fileext[2]:='.';
  filename:=path+fileext;
  if findfirst(filename,0,f)<>0 then
    exit;
  try begin
    deletefile(path+f.name);
    inc(result);
  end except end;
  while findnext(f)=0 do begin
    try begin
      deletefile(path+f.name);
      inc(result);
    end; except end;
  end;
  findclose(f);
end;

Jetzt geht es, ich habe es sogar selbst getestet :)

Und dann noch diesen Befehl in eine 'TMUnit' verstaut:

[Gast]

funktioniert :-) Klasse, thx