Test suite results for test file tbs/tb0229.pp

Test run data :

Test file "tbs/tb0229.pp" information:

t_id 461
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 734839.

Source:

{ Old file: tbs0268.pp }
{ crash with exceptions                                OK 0.99.13 (FK) }

PROGRAM Test2;

{$MODE DELPHI}

USES SysUtils;  // Dos for DosError because FindFirst is not a Function?

PROCEDURE DirList;
(* Show all Files, gives me "unhandled exception occurred at xxx, access
   violation" after inserting Try Except it worked but i got a "forever
   scrolling screen", then i inserted raise and got a correct "Exception
   in FindFirst" and "At end of ExceptionAddressStack"
   Next i inserted the ON E:EXCEPTION and ,E.Message an got 9999 *)
VAR SR : TSearchRec;
BEGIN
  TRY
    FindFirst ('*',faAnyFile,SR);  // why not a function ?
  EXCEPT
    ON E:EXCEPTION DO
      WriteLn ('Exception in FindFirst !-', E.Message);
  END;
  repeat
    Write (SR.Name,' ');
  until FindNext (SR)<>0;
  FindClose (SR);                  // and this is Delphi ?
END;

BEGIN
  WriteLn ('Hello, this is my first FPC-Program');
  DirList;
END.

Link to SVN view of tbs/tb0229.pp source.