2 string arasını almak

[ready4die]

s.a
arkadaşlar mesela
hey ali ata baksana
bu string içinde
ali ata bak'ı nasıl alabilirim ?
asıl ypamak istediğim bir sitenin linklerini almak ve çöpleri atmak örneğin
http://www.site.com/dosya.php?a=b
/dosya.php?a=b 'yi nasıl atabilirim ?

[deltas]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
b: integer;
begin
a:='www.site.com/dosya.php?a=b ';
b:=pos('/',a);
a:=copy(a,1,b-1);
label1.Caption:=a;
end;

[ready4die]

deltas verdiğin kodu bende yapabiliyorum teşekkürler fakat http://www.site.com farklı yani
http://www.aa.com/b.asp?b=
http://www.cc.net/c.asp?c=
vs. vs. tarzında yani site isimleri sabit değil listboxtan alıcak

[deltas]

zaten arama yaparken http://www.site.com olarak aramıyor. bunu ararken '/'ifadesini arıyor. yanı '/' karekterinden önceki kısmı kaydediyor. yani siz listbox'a a:=listbox1.items; şekilinde yazar ve bunu listbox'ta kayıtlı eleman sayısı kadar döndürüseniz ve sonuçta elde ettiğiniz yeni 'a' sitringini başka bir listbox'a alabilirsiniz. sorununuz halletmiş olursunuz.

[ready4die]

hmm denicem teşekkürler

[ready4die]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
b: integer;
begin
a:='www.site.com/dosya.php?a=b ';
b:=pos('/',a);
a:=copy(a,1,b-1);
label1.Caption:=a;
end;

kod için teşekkürler fakat inceledikten sonra şöyle birşey gördüm http://www.site.com olduğu için stringler dolayısı ile http:/ dan sonrasını almıyor atıyor http://www.site.com/a.php?id=b .com/a.php?id=b burdaki / tan sonrasını nasıl atabilirim