Fórum Campos Integer #233108
19/05/2004
0
Olá amigos do fórum,
Gostaria de saber como faço para obter a seguinte soma de campos integer:
Ex:
6 * 2 = 12 e deste resultado (dentro do script) somar 1+2, entenderam?
Estou quebrando a cabeça para fazer isto.
Desde já, agradeço à todos.
Gostaria de saber como faço para obter a seguinte soma de campos integer:
Ex:
6 * 2 = 12 e deste resultado (dentro do script) somar 1+2, entenderam?
Estou quebrando a cabeça para fazer isto.
Desde já, agradeço à todos.
Rodolpho123
Curtir tópico
+ 0
Responder
Posts
19/05/2004
Xanatos
Bom experimente transformar em string antes;
str:= InttoStr(Resultado);
Cont:=0;
for i:=1 to length(str) do
begin
Cont:= StrtoInt(str[i]) + Cont;
end;
Com isso vc deve conseguir!!!
:lol:
str:= InttoStr(Resultado);
Cont:=0;
for i:=1 to length(str) do
begin
Cont:= StrtoInt(str[i]) + Cont;
end;
Com isso vc deve conseguir!!!
:lol:
Responder
Gostei + 0
19/05/2004
Osocram
faca assim...
var
resultado :string;
i,resultado1:integer;
begin
resultado := RichEdit2.Lines[0];
for i:=1 to length(resultado) do
resultado1 := resultado1+strtoint(resultado[i]);
RichEdit2.Text := InttoStr(resultado1);
end;
var
resultado :string;
i,resultado1:integer;
begin
resultado := RichEdit2.Lines[0];
for i:=1 to length(resultado) do
resultado1 := resultado1+strtoint(resultado[i]);
RichEdit2.Text := InttoStr(resultado1);
end;
Responder
Gostei + 0
19/05/2004
Rodolpho123
Falou xanatos, funcionou perfeitamente!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)