Fórum substituindo palavras de frases muito grandes #312274

casa cavalo joao armario revista delphi ..... 

{substitui uma palavra por outra}
function ReplaceStr (Text,oldstring,newstring:string): string;
var atual, strtofind, originalstr: pchar;
    NewText:string;
    lenoldstring,lennewstring,m,index: integer;
begin
  NewText := Text;
  originalstr := PChar(Text);
  strtofind := PChar(oldstring);
  lenoldstring := length(oldstring);
  lennewstring := length(newstring);
  Atual := StrPos(OriginalStr,StrtoFind);
  index := 0;
  while Atual <> nil do begin
    m := Atual - OriginalStr - index + 1;
    Delete(NewText,m,lenoldstring);
    Insert(newstring,NewText,m);
    inc(index,lenoldstring-lennewstring);
    Atual := StrPos(Atual+lenoldstring,StrtoFind);
  end;
  Result := NewText;
end;

{pega a posicao de uma palavra}
function gettok(Texto: string; Posicao, Caractere: Integer): string;
var
  i:integer;
  ii:integer;
  TextoF:string;
begin
  i:=1;
  ii:=1;
  TextoF := ´´;
  if Ord(Texto[1]) <> Caractere then Texto:=chr(Caractere)+Texto;
  if Ord(Texto[Length(Texto)]) <> Caractere then Texto:=Texto+chr(Caractere);
  while i < Length(Texto) do
  begin
    inc(i);
    if ii = Posicao then TextoF:=TextoF + Texto[i];
    if Ord(Texto[i]) = Caractere then inc(ii);
  end;
  if (Posicao <> 0) then Result:=copy(TextoF,1,length(TextoF)-1)
  else Result:=IntToStr(ii-1);
end;

        x := RegistroDaColuna
       {substituicao das palavras do dicionario}
        for c := 0 to DicionarioEN.Count - 1 do
          {pega quantas palavras tem no registro da coluna usando gettok 0}
          for d := 0 to StrToInt(gettok(x,0,32)) do
            if DicionarioEN.Strings[c] = gettok(x,d,32) then
              x := ReplaceStr(x,DicionarioEN.Strings[c],DicionarioENsubs.Strings[c]);