hladanie v texte [Delphi]

paralen

Zdravim
Mam nejaky HTML text v stringu. Potrebujem v nom najst dajme tomu link rel="blabla" href="
Mam to takto

index:=Pos('link rel="blabla" href="', mojaPremennaString);

Problem je v tom, ze mi ten text nenajde kedze index nadobudne stale hodnotu nula
Co robim zle(zeby nieco s apostrofmi alebo medzerami) ?

pos vracia pozíciu, čiže nula začína že ten reťazec takým podreťazcom začína (teda jeho pozícia je od nultého znaku). Keby sa nenašiel, vráti sa -1

paralen

hmm, tu pise, ze ked text nenajde tak vrati 0
http://www.delphibasics.co.uk/RTL.asp?Name=Pos

Stale mi to hadze nulu

Jednoduchy text mi najde (napr. iba href )

hej, sekol som sa

no mne to ide:

Kód: Vybrať všetko

procedure TForm1.Button1Click(Sender: TObject);
var index:integer;
    mojaPremennaString:string;
begin
mojaPremennaString := 'bla bla link rel="blabla" href=" bla bla';
index:=Pos('link rel="blabla" href="', mojaPremennaString);
showmessage(inttostr(index));
end;

paralen

//autoeditácia príspevku ( 24 Jul 2009, 22:01 )
hmm, nejak mi to tu vymazalo prispevok(asi nejaky bug v autoedit) ...
Ale mal som to este sfotene(priloha)...

No chcel som k tomu dopisat , ze zaujimave je, ze toto mi vyhlada

Kód: Vybrať všetko

index:=Pos('top',zdrojak);

Ale akonahle pridam uvodzovky tak uz nie

Kód: Vybrať všetko

index:=Pos('"top"',zdrojak);