Problem mit FindFirst, FindNext und TFileStream

[AJ_Oldendorf]

Habs jetzt so angepasst und in FehlerCnt steht am Ende eine 2...

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  F : TSearchRec;
  TmpStream : TFileStream;
  aCardinal : Cardinal;
  Success   : Boolean;
  FehlerCnt : Integer;
begin
  FehlerCnt := 0;
  try
    if FindFirst('C:\*.txt', faAnyFile, F)= 0 then
    begin
      Success := True;

      while Success do
      begin
        //Mach irgendwas mit der Datei...
        TmpStream := Nil;
        try
          { Versuchen, die Datei öffnend zu lesen }
          TmpStream := TFileStream.Create (F.Name, fmOpenRead);
        except
          Inc(FehlerCnt);
        end;

        Success := FindNext(F) = 0;
      end;
    end;
  finally
    FindClose(F);
  end;
end;

F.Name liefert im ersten Durchlauf 1.txt und im zweiten Durchlauf 2.txt.
Sieht also richtig aus.

Viele Grüße
Alex