Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Schleife

   
    by Klaus01, 1. Mär 2007
  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 +...
• Forum: Object-Pascal / Delphi-Language

  Re: Schleife

   
    by Klaus01, 1. Mär 2007
  function DeletingFiles(Filename:String):Boolean;
  begin
  result:=true;
  for HDD:='C' to 'Z' do
  if SearchForFile(HDD + ':\', Filename, APathFound) then
  begin
  repeat
  DeleteFile(ApathFound+Filename);
  WriteLn(myFile, ':: '+ Filename + ' available on: ' + APathFound);
  result:=true;
• Forum: Object-Pascal / Delphi-Language

  Re: Schleife

   
    by Klaus01, 1. Mär 2007
  else
  WriteLn(myFile, Filename + ' is not available on ', HDD) + Exit; Warum willst Du denn hier die Schleife verlassen.
  Wenn Du da die for Schleife mit break verlaesst
  kannst Du nicht sicher sein das alle Laufwerke durchsucht wurden.
  
  Gruesse
  Klaus