blob: 47d62b656e0f07d34b74183e4f9eda6e12815d7a (
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
|
{ %OPT=-O2 }
{$mode objfpc}
Function SmartPos(Pattern:Char; const Target:AnsiString; SrchBeg,SrchEnd: LongInt): LongInt;
Var
i : LongInt;
l : LongInt;
p : char;
t : char;
Begin
l := Length(Target);
p := Pattern;
for i := SrchBeg To l do begin
t := Target[i];
if t = p then begin
Writeln('Exit value ', i);
Result := i;
Exit(i);
end;
end;
Writeln('Exit value 0');
Exit(0);
End;
var
p1 : Integer;
begin
p1 := 0;
writeln(p1);
p1 := smartpos(':', '20394583245:092834523409:039485', 1, 20);
writeln(p1);
if p1<>12 then
halt(1);
end.
|
