linkleri birbirine eklemek

[ready4die]

merhaba
benim yapmak istediğim şey mesela edit'te http://www.site.com/a.php?sayfa=123 adlı bir site var bunu idhttp ya da inet ile açacağım buraya kadar tamam herşey ama bazı linkleri alırken sorun yaşıyorum mesela linkleri birbirine eklerken bir listbox'ta "asd","bsd","csd" gibi değerler var bunları aralarına virgül veya herhangi bir özel karakter koyarak nasıl birleştirebilirim ??
not : döngüyle tek tek eklemek istiyorum item0 item1 item2 gibi.

1. http://www.site.com/a.php?sayfa=123,asd
2. http://www.site.com/a.php?sayfa=123,asd,bsd
3. http://www.site.com/a.php?sayfa=123,asd,bsd,csd

gibi teşekkürler

[ready4die]

yardım edebilecek birisi yokmu

[umutcanster]

sendkey fonksiyonu olmazmı?

[unicorn64]

sendkey le nasılbir çözüm üretilebilir bilmiyorum ama anladığım kadarıyla

Kod: Tümünü seç

procedure LinkAlKullan;
var
  asillink,ayrac:string;
  i:integer;
begin
  asillink:='http://www.site.com/a.php?sayfa=123';
  ayrac:=',';
  asillink:=asillink+ayrac; // linke ayracı ekle
  for i:=0 to liste.count-1 do
  begin
     asillink:=asillink+liste.items[i]+ayrac;  //listenin her bir elemanını ve ayracı ekle

     idhttpIleKullan;
  end;
  asillink:=copy(asillink,1,length(asillink)-1); // en sondaki ayracı sil

end; 

şeklinde olabilir.

yada bir stringlist tanımla ve döngünün her adımında oluşan stringi (linki) stringliste ekle, ekleme işi bittikten sonra da stringlistteki herbir linki idhttpilekullan;