| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
r.skol@live.com
Novato
Registrado: Sexta-Feira, 6 de Dezembro de 2013
Mensagens: 19
|
 Enviada: Sáb Dez 21, 2013 4:04 pm Assunto: juntar duas integer sem somar |
 |
|
Exemplo:
a:=StrToInt(texto[1])+StrToInt(texto[2]);
b:=StrToInt(texto[4])+StrToint(texto[5]);
c:=StrToInt(texto[7])+StrToInt(texto[8]);
Não quero que ele some os dois números, queria juntá-los, o que posso fazer ?
Exemplo²: (1+4 = 14) ao invés de (1+4 = 5) |
|
| Voltar ao Topo |
|
 |
Netrunner
Aprendiz
Registrado: Domingo, 7 de Julho de 2013
Mensagens: 236
|
| Enviada: Sáb Dez 21, 2013 4:18 pm Assunto: |
|
|
Use o Inttostr
| Código: | procedure TForm1.btn1Click(Sender: TObject);
var
Numero1,Numero2:integer;
begin
Numero1:= 1;
Numero2:= 4;
showmessage(Inttostr(Numero1)+Inttostr(Numero2));
end; |
| Código: | Function JuntarNumeros(Numero1:Integer;Numero2:Integer):Boolean;
begin
if Inttostr(Numero1)+Inttostr(Numero2) = '14' then begin
result:= true;
exit;
end
else
result:= False;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if JuntarNumeros(1,4)= true then begin
ShowMessage('A soma é 14');
abort;
end
else
ShowMessage('A soma é diferente de 14');
end;
|
|
|
| Voltar ao Topo |
|
|
r.skol@live.com
Novato
Registrado: Sexta-Feira, 6 de Dezembro de 2013
Mensagens: 19
|
| Enviada: Sáb Dez 21, 2013 4:29 pm Assunto: |
|
|
| obrigado |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
