Başlangıç > Kodlar > Delphi ile Explode fonksiyonu

Delphi ile Explode fonksiyonu

Bir Stringi belli bi karaktere göre böler ve x. bölümü döndürür

Function Explode(Veri: string;ayrac: char;No:integer): String;
var
Tmp :string;
Say :integer;
begin
{ Sonuncu Field ı alabilmek için }
Tmp:=Veri+ayrac;
Say:=0;
Result:=";
While (Pos(ayrac,Tmp) > 0) and (No > Say) do
begin
Inc(Say);
{ Eğer istediğimiz bölümse onu döndür }
If Say=No Then
Result:=Copy(Tmp,1,Pos(ayrac,Tmp)-1)
{ Değilse bir sonraki bölüm için başı sil }
Else
Delete(Tmp,1,Pos(ayrac,Tmp));
end;
end;

Noktalar ile bölünmüş bir stringin 2. bölümünü almak için
Örnek :


Const
Deneme : String='deneme.ses.kontrol';
Var
Veri  :String;
Begin
Veri:=Explode(Deneme,'.',2);
End;


Güçlü Öztürk


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: