paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 18:29:13 +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; procedure bla.themethod;
var i : longint; var i : longint;
begin begin
i:=10; i:=12;
flastresponse:=copy(freceivebuffer,1,I-1); flastresponse:=copy(freceivebuffer,1,I-1);
writeln('point 1'); writeln('point 1: ',flastresponse);
end; end;
var x : bla; var x : bla;
begin begin
x:=bla.create; x:=bla.create;
x.freceivebuffer:='test string is wrong!';
x.themethod; x.themethod;
writeln('point 2'); writeln('point 2');
end. end.