paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 01:12:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed the posidx, because it seems to be unused

Browse Source 
git-svn-id: branches/unicodekvm@48565 -
This commit is contained in:
nickysn 2021-02-09 20:54:26 +00:00
parent 763124567d
commit 2b0cdc0c15
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/fv/src/views.inc
View File

@ -872,27 +872,6 @@ var
{ PRIVATE INTERNAL ROUTINES } { PRIVATE INTERNAL ROUTINES }
{***************************************************************************} {***************************************************************************}
function posidx(const substr,s : string;idx:sw_integer):sw_integer;
var
i,j : sw_integer;
e : boolean;
begin
i:=idx;
j:=0;
e:=(length(SubStr)>0);
while e and (i<=Length(s)-Length(SubStr)) do
begin
if (SubStr[1]=s[i]) and (Substr=Copy(s,i,Length(SubStr))) then
begin
j:=i;
e:=false;
end;
inc(i);
end;
PosIdx:=j;
end;
{$ifdef UNIX} {$ifdef UNIX}
const const
MouseUsesVideoBuf = true; MouseUsesVideoBuf = true;