String Döndürme Fonksiyonu
1 sayfadaki 1 sayfası
String Döndürme Fonksiyonu
tarafından sezginsen Çarş. Haz. 03, 2009 7:40 pm
Function String_Reverse(S : String): String;
Var
i : Integer;
Begin
Result := '';
For i := Length(S) DownTo 1 Do
Begin
Result := Result + Copy(S,i,1) ;
End;
End;
Var
i : Integer;
Begin
Result := '';
For i := Length(S) DownTo 1 Do
Begin
Result := Result + Copy(S,i,1) ;
End;
End;
sezginsen- Fanatik
-
Mesaj Sayısı : 312
Rep : 456
Kayıt tarihi : 31/10/08
1 sayfadaki 1 sayfası
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz
