Dicas Delphi – Função para inverter um string

Salve, salve amigos,


function Inverte (wStr1: String): String;var i: Integer;begin
Result := '';
for i := Length( wStr1 ) downto 1 do Result := Result +
copy(wStr1,i,1 );
end;
 
Take care 
Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s