Rap
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Rap

Rap
 
AnasayfaLatest imagesAramaKayıt OlGiriş yap

 

 Trim fonksiyonu

Aşağa gitmek 
YazarMesaj
The_SaS
Admin
Admin
The_SaS


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

Trim fonksiyonu Empty
MesajKonu: Trim fonksiyonu   Trim fonksiyonu Icon_minitimeSalı 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
https://sistem.yetkin-forum.com
 
Trim fonksiyonu
Sayfa başına dön 
1 sayfadaki 1 sayfası

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