Stránka 1 z 1
Delphi - funkce hledání slova v textu
Napsal: ned 7. led 2007, 19:52
od 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.
Napsal: ned 7. led 2007, 22:06
od 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';
Napsal: pon 8. led 2007, 07:22
od 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;
Napsal: ned 14. led 2007, 20:48
od Trinom
Děkuju moc, běhá to jak fík
