Here is my update
function Low_tally(exew:word;partstring:shortstring;const somestring:string;pos1:integer):tpoint;
var gap,i10,j10,sln,lnp,count:integer;
ccd:char;
cntall:boolean;
Label Parintelui_Arsenie2024Skip,
Parintelui_Arsenie2025Skip;
Begin
if (length(partstring)<02) then begin result.x:=RTCAN;result.Y:=RTCAN;exit;end;
result.x :=00;Sln:=length(somestring);
result.y :=00;lnp:=length(partstring);
cntall:=false;
case exew and 03 of
01:Begin
for i10:=001 to lnp do if (partstring[i10] in ['A'..'Z']) then inc(partstring[i10],032);
End;//OFF("forced lowercase IF i am not sure partstring is lowered")
02: cntall:=true;
03:Begin
for i10:=001 to lnp do if (partstring[i10] in ['A'..'Z']) then inc(partstring[i10],032);
cntall:=true;
End;
end;
partstring:=partstring+#00;
gap :=000; if (pos1<01) then pos1:=001;
case cntall of
true: for i10:=pos1 to sln do if (i10>=gap) then
begin ccd:=somestring[i10];
if (ccd in ['A'..'Z']) then inc(ccd,032);
if (ccd <> partstring[01]) then goto Parintelui_Arsenie2025Skip;
for j10:=001 to lnp do
begin gap :=i10+j10-0000000001;
ccd :=somestring[gap];if (ccd in ['A'..'Z']) then inc(ccd,032);
if (ccd=partstring[j10]) then else goto Parintelui_Arsenie2025Skip;
end;//far("LowPosEx, PosEx, LowPos Low_Pos, PosExLow")
result.x:=i10;
inc(result.y);
Parintelui_Arsenie2025Skip:
end;//off"return x.last position")
false: for i10:=pos1 to sln do if (i10>=gap) then
begin ccd:=somestring[i10];
if (ccd in ['A'..'Z']) then inc(ccd,032);
if (ccd <> partstring[01]) then goto Parintelui_Arsenie2024skip;
for j10:=001 to lnp do
begin gap :=i10+j10-0000000001;
ccd :=somestring[gap];if (ccd in ['A'..'Z']) then inc(ccd,032);
if (ccd=partstring[j10]) then else goto Parintelui_Arsenie2024Skip;
end;//far("LowPosEx, PosEx, LowPos Low_Pos, PosExLow")
result.x:=i10;result.y:=01;exit;
Parintelui_Arsenie2024Skip:
end;//off"return x.last position")
end;//off("case")
end;//off("Low_tally")
123"c:\\Vlaxcompil\\0user" tesfd
Coo. 0=6
Coo. 1=0
Coo. 2=6
Coo. 3=0
Coo. 4=6
Coo. 5=6
Coo. 6=0
Coo. 7=6
Coo. 8=6
Coo. 9=6
Coo.10=6
Coo.11=1
1
Recent
