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"

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

string içerisindeki boşlukları temizlemek