Üye Kayıt Üye Giriş

String içerisindeki boşlukları temizlemek.


String içerisindeki boşlukları temizlemek.

 


Function ustrFullTrim(Const pStrKaynak : String) : String;
Var
uPos : Word;
Begin
Result := pStrKaynak ;
uPos := Pos(' ', Result);
While uPos > 0 Do
Begin
Delete(Result, uPos, 1);
uPos := Pos(' ', Result)
End;
End;



// pStrKaynak içindeki tüm boşlukları yok eder. "Yusuf T U L G A R" --> "YusufTULGAR"

KPSS Eğitim Seti
Bilgisayar Dershanesi Ders Sahibi;
Bilgisayar Dershanesi

Yorumlar

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ETİKETLER