paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 04:30:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed code to correct working one

Browse Source
This commit is contained in:
pierre 2001-02-12 12:14:24 +00:00
parent 6e1b6dfa71
commit 1266cc1bb4
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tw1397.pp
View File

@ -27,13 +27,27 @@ procedure Zero;
end;
procedure One (Thing: PObject);
procedure LocalTwo (Thing: PObject);
begin
Line1 := 'BBB';
Line2 := 'BBB';
WriteLn('2: ', Line1, ' * ', Line2); {*** Output line 2 ***}
if Line2<>'BBB' then
begin
writeln('ERROR!');
halt(1);
end;
end;
begin
Line1 := 'AAA';
Line2 := 'AAA';
WriteLn('1: ', Line1, ' * ', Line2); {*** Output line 1 ***}
Coll^.ForEach(@Two);
Coll^.ForEach(@LocalTwo);
WriteLn('3: ', Line1, ' * ', Line2); {*** Output line 3 ***}
if Line2<>'BBB' then