String Döndürme Fonksiyonu

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;

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

string döndürme fonksiyonu