blob: 80e39027ea0e51d5ccbe3e2290d35a46fcb6832f (
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
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.
|
