| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
AbraaoRamiro
Experiente
Registrado: Sexta-Feira, 21 de Março de 2003
Mensagens: 466
Localização: Perto das Mulheres, Longe dos Rapazes
|
 Enviada: Seg Mai 23, 2016 11:47 am Assunto: Resolvido - Erro nas funções de Delphi 2010 para XE6 |
 |
|
Boa tarde pessoal!
O ultimo neurônio que tinha queimei tentando achar o erro em algumas funções do sistema mobile que estou fazendo para Android. Exemplo, esta função funciona muito bem no Delphi 2010 gera o resultado que desejo, mais já no Delphi XE6 / Android a mesma linha dá outro resultado... 
Não dá erro mais me dá outro resultado...
| Código: |
function Encrypt( Senha:String ): String;
{Encripta uma String}
Const
Chave : String = 'Haksa';
Var
x,y : Integer;
NovaSenha : String;
begin
for x := 1 to Length( Chave ) do
begin
NovaSenha := '';
for y := 1 to Length( Senha ) do
NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(Senha[y])));
Senha := NovaSenha;
end;
result := Senha;
end; |
_________________
Abraão Ramiro Lima de Paula Programador/Webdesigner
Editado pela última vez por AbraaoRamiro em Seg Mai 23, 2016 1:23 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
strak2012
Colaborador
Registrado: Segunda-Feira, 13 de Janeiro de 2014
Mensagens: 1518
Localização: Maceió - AL
|
| Enviada: Seg Mai 23, 2016 12:40 pm Assunto: |
|
|
String em aplicações Android mesmo tendo sido criado em delphi inicia no índex 0 diferente em aplicações para Windows feitas no delphi que inicia no índex 1
Assim em Windows o for ficaria
For X:=1 to length(minhastring) do
Em Android
For X:=0 to length(minhastring)-1 do
_________________
Tudo podemos quando tudo sabemos! |
|
| Voltar ao Topo |
|
|
AbraaoRamiro
Experiente
Registrado: Sexta-Feira, 21 de Março de 2003
Mensagens: 466
Localização: Perto das Mulheres, Longe dos Rapazes
|
| Enviada: Seg Mai 23, 2016 1:22 pm Assunto: |
|
|
Obg strak2012
Bem agora sei porque debaixo do seu nome tem assim: "Mestre"
_________________
Abraão Ramiro Lima de Paula Programador/Webdesigner |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
