Na zistenie pozicie v nejakeho textu v inom texte sa pouziva funkcia AnsiPos. Funkcia vracia celociselnu hodnotu pozicie textu v inom texte.

Zapis:

function AnsiPos(const Substr: string; const S: string): Integer;

Parametre:

Substr - co chceme hladat

S - kde hladat

Funkcia vracia pociatocnu poziciu typu integer  Substringu v S. Ak sa substring v texte nenachadza, funkcia vrati 0.

Pouzitie:

procedure TForm1.BtChangeClick(Sender: TObject);
var
  i: Integer;
begin
  i := AnsiPos('knihy', 'Knihy su knihy a knihami zostanu.');
end;

Do i sa ulozi celociselna hodnota 10.