Campos Integer
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
Curtidas 0
Respostas
Xanatos
19/05/2004
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:
GOSTEI 0
Osocram
19/05/2004
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;
GOSTEI 0
Rodolpho123
19/05/2004
Falou xanatos, funcionou perfeitamente!
GOSTEI 0