blob: c1e2235aa1c5460fa9f592ddab658e31badf85a4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
{ 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.
|
