Başlangıç > Kodlar > Delphi ile Stringdeki Boşlukları silmek

Delphi ile Stringdeki Boşlukları silmek

String bir değişkenin başındaki veya sonundaki boşlukları silen fonksiyon

Verilen Stringin başındaki boşlukları silmek için


function BoslukAt(s:String);
var
s1 :=String;
Begin
s1:=s;
While S1[1] <> ' ' Do
S1:=Delete(s1,1,1);
BoslukAt(S1);
End;

Verilen Stringin sonundaki boşlukları silmek için

function BoslukAt(s:String)
var
i :Integer;
S1 :String;
Begin
i:=length(s);
While S[i] <> ' ' Do
Begin
S1:=Delete(s,i,1);
i:=i-1;
End;
BoslukAt(S1);
End;

Örnek kullanım: BoslukAt(edit1.Text); veya BoslukAt('    jfkdlfs    ');  gibi.


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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: