iki string arasından string alma

[grassular]

Selam Arkadaşlar;

mesela "türkiye'de tek delphi kaynak sitesi delphi forum" gibi bir cümleden
"tek" ve "kaynak" kelimeleri arasından "delphi" kelimesini nasıl alabilirm.

tüm delphi forum üyelerine şimdiden teşekkür ediyorum
saygılar

[hgunes]

a.s

Gerçi sormak istediğinizi net olarak tarif etmemişsiniz ama
Aradığınız şöyle bir function olabilir sanırım :

Kod: Tümünü seç

function TForm1.AradakiStringiAl(StrKaynak, StrBaslangic,
  StrBitis: String): string;
var StrPosBaslangic, StrPosBitis : Integer;
begin
  Result := '';
  //Başlangıç metni bulunamazsa çık
  if Pos(StrBaslangic, StrKaynak) = 0 then
    Exit;
  StrPosBaslangic := Pos(StrBaslangic, StrKaynak) + Length(StrBaslangic);

  //Bitiş metni bulunamazsa çık
  if Pos(StrBitis, StrKaynak) = 0 then
    Exit;
  StrPosBitis := Pos(StrBitis, StrKaynak);

  //Bitiş metni başlangıç metninden sonra gelmiyorsa çık
  if StrPosBitis <= StrPosBaslangic then
    Exit;

  Result := Copy(StrKaynak,StrPosBaslangic , StrPosBitis - StrPosBaslangic);
end;

[grassular]

Hocam
çok teşekkür ediyorum
evet istediğim böyle bir fonksiyondu.
Saygılar