Hi
I have problem with this small program below. I've compiled if on
Linux/i386 FPC 2.2.2
Every time of run program halt with runtime. I've test it with short and
ansistring. Result the same.
But when I uncomment line with test2 everything goes OK.
Is something wrong with program? Can someone test it on newer version FPC?
program testwhile;
{$mode objfpc}{$H+}
function lineHtml( sa : string):string;
var
xPoz : integer;
xp,xk : integer;
function nextToken(var aPocz: integer;var aKon :integer):string;
begin
result:='';
aPocz:=xPoz+1;
aKon:=0;
try
while xpoz< length(sa) do begin
inc(xpoz);
case sa[xpoz] of
'|' :begin
exit;
end;
else
end;
result:=result+sa[xpoz];
inc(aKon);
end;
finally
writeln('test ',result);
aKon:=aPocz+aKon;
// writeln('test2 ',result);
end;
end;
begin
xpoz:=0;
result:='';
repeat
nextToken(xp,xk);
until xpoz>=length(sa);
end;
begin
writeln(lineHTML('| 1 | 2 | 3'));
end.
--
Darek
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
