🚀 go-pugleaf

> You must not have
> made the change correctly in your install.

I've changed the function to looks like:

Function  PosIdx (const ASubStr,AStr: AnsiString; AStartPos: Cardinal): 
Cardinal;
var
  lpSubStr,lpS: PChar;
  LenSubStr,LenS: Cardinal;
  LChar: Char;
Begin
  Result := 0; //not found

  LenSubStr := Length(ASubStr);
  LenS := Length(AStr);

//  if (LenSubStr = 0) or (LenSubStr > LenS) or (AStartPos > LenS) then 
begin
  if (LenSubStr = 0) or (LenSubStr > LenS) or ((AStartPos+LenSubStr-1) > 
LenS) then begin
    Exit;
  end;//if

  lpSubStr := Pointer(ASubStr);
  lpS := Pointer(AStr);

  if AStartPos > 1 then begin
    Inc(lpS, AStartPos - 1);
    Dec(LenS, AStartPos - 1);
  end;//if
  if LenS <= 0 then begin
    Exit;
  end;

  LChar := lpSubStr[0]; //first char
  Inc(lpSubStr); //next char
  Dec(LenSubStr); //len w/o first char

  Dec(LenS, LenSubStr); //Length(S)-Length(SubStr) +1(!) MUST BE >0
  if LenS <= 0 then begin
    Exit;
  end;//if

  // RLebeau - shouldn't this code use StrPos() instead?

  while LenS > 0 do begin
    if lpS^ = LChar then begin
      Inc(lpS);
      if CompareMem(lpS, lpSubStr, LenSubStr) then begin
        Result := lpS-Pointer(AStr); //+1 already here
        Exit;
      end;
    end else begin
      Inc(lpS);
    end;
    Dec(LenS);
  end;//while
End;//PosIdx

Then I've uninstalled Indy from borland (just to be sure), closed BCB, 
deleted whole indy\C6 directory and executed fullc6.bat to recreate and 
recompile indy for bcb6. Everything has compiled, so I started BCB and 
installed new Indy. Is there anything else I should do?

--
Googie