paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* extended test

Browse Source
This commit is contained in:
peter 2003-08-26 09:34:49 +00:00
parent f3266351dc
commit b55ac2f5c3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/webtbs/tw2220.pp
View File

@ -14,15 +14,16 @@ type bla=class
procedure bla.themethod;
var i : longint;
begin
i:=10;
i:=12;
flastresponse:=copy(freceivebuffer,1,I-1);
writeln('point 1');
writeln('point 1: ',flastresponse);
end;
var x : bla;
begin
x:=bla.create;
x.freceivebuffer:='test string is wrong!';
x.themethod;
writeln('point 2');
end.