Hledání textu v řetězci – Delphi – Fórum – Programujte.com

Mám proměnnou typu string, jejíž hodnota je např. věta Mám koupit 2 rohlíky. Nedá se nějak...

...1) Zjistit např. její druhé slovo (tak, že mi to prostě vyhodí "rohlíky")?

...2) Zjistit kus textového řetězce ohraničeného např. úvozovkami (kdyby ta věta byla Mám "koupit 2" rohlíky, tak by mi to vyhodilo "koupit
2"

2)

function TForm1.slovomedziznakmi(slovo:string;znak:char):string;

begin

  Delete(slovo,1,pos(znak,slovo));

  result:=copy(slovo,1,pos(znak,slovo)-1);

end;

function TForm1.nteslovo(veta:string;ktore:integer):string;

var i:integer;

    pomocna:string;

begin

if ktore=1 then result:=copy(veta,1,pos(' ',veta)-1) else begin

  for I:=1 to ktore-1 do begin

    Delete(veta,1,pos(' ',veta));

    pomocna:=copy(veta,1,pos(' ',veta)-1);

  end;

  result:=pomocna;

  end;

end;