Schleife

[Klaus01]

Delphi-Quellcode:

function DeletingFiles(Filename:String):Boolean; 
  begin 
  result:=false;                                                  // Datei nicht gefunden
  for HDD:='C' to 'Z' do
    if SearchForFile(HDD + ':\', Filename, APathFound) then 
      begin 
       repeat 
          DeleteFile(ApathFound+Filename);                        // Datei gefunden
          WriteLn(myFile, ':: '+ Filename + ' available on: ' + APathFound);   // wird geloescht
          result:=true;                                           // Ergebnis -> true
          break;                                                   // Schleife wird abgebrochen
       until not SearchForFile(HDD + ':\', Filename, APathFound); 
      end 
    else 
      begin 
        WriteLn(myFile, Filename + ' is not available on ', HDD);  // Datei wurde nicht gefunden, Schleife laeuft weiter 
        result:=false; 
      end; 
end;

Delphi-Quellcode:

if not DeletingFile('test.dat') then  // Es wurden alle Laufwerke durchsucht, die Datei wurde nicht gefunden
  close;
else                                  // die Datei wurde gefunden
  ...

mein letzter Versuch

Gruesse
Klaus