Rap

Rap
 
AnasayfaAramaKayıt OlGiriş yap

Paylaş | 
 

 Trim fonksiyonu

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
The_SaS
Admin
Admin
avatar

Mesaj Sayısı : 67
Kayıt tarihi : 12/04/08
Nerden : ßir Köylü çocugu

MesajKonu: Trim fonksiyonu   Salı Nis. 15, 2008 3:08 am

unit StrFunc;
interface
procedure LTrim(var s : string);
procedure RTrim(var s : string)
;procedure Trim(var s : string);
implementation
{$R *.DFM}
procedure LTrim(var s : string);
begin
while ((length(s) > 0) and (s[1] = #32)) do Delete(s, 1, 1);
end;
procedure RTrim(var s : string);
begin
while ((length(s) > 0) and (s[Length(s)] = #32)) do Delete(s, Length(s), 1);
end;
procedure Trim(var s : string);
begin
LTrim(s); RTrim(s);
end;
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://sistem.forum0.net
 
Trim fonksiyonu
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Visual Basic .Net - Fonksiyonlar

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Rap :: C/C++ & Delphi-
Buraya geçin: