Delphi - funkce hledání slova v textu

[Trinom]

Zdravím, netuší někdo, jaká je funkce (+ příklad) pro hledání v textu, text i hledané slovo je string. Stačí mi, aby to vyplivlo, jestli je, nebo ne. Typ - konzolová aplikace.
Děkuji.

[karf]

nevím, jestli ti to pomůže ale tohle najde string text...je to dělaný pro memo takže přes objektový programování.

Kód: Vybrat vše

i:=0;
  repeat i:=i+1;                         
  symbol1:=copy(memo4.Lines.text,i,4);
  until symbol1='text';

[pavel.minarik]

Tady máš funkci vlastní výroby, kterou na to používám já. Jinak mám vytvořenou celou jednotku na práci s řetězci.

Kód: Vybrat vše

function Str_ObsahujeRetezec(CoHledat, Vstup:String):Boolean;
var I:Integer;
begin
  Result:= False;
  for I:=1 to Length(Vstup) do
    if Copy(Vstup, I, Length(CoHledat))=CoHledat then Result:= True;
end;

[Trinom]

Děkuju moc, běhá to jak fík