Buscar por:
Código Function ReverseStr (S : ShortString) : ShortString; var I : Integer; begin Result := ''; For I := Length(S) DownTo 1 Do Result := Result + S[I]; end;
Function ReverseStr (S : ShortString) : ShortString; var I : Integer; begin Result := ''; For I := Length(S) DownTo 1 Do Result := Result + S[I]; end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009