Como Calcular Campos q estão em uma Tabela?

[bergamo]

Olá Pessoal, sou leigo em programação... Estou praticando no Delphi 7.0

O que eu gostaria de saber é:

Como fazer para somar Campos Numéricos, exemplo 1+1 e o resultado ser lógicamente 2, 10+5 = 15 e assim por diante...

Tenho uma tabela com o Nome de T_CadClientes nela contém alguns campos Numéricos (tipo N) o nome dos campos são Valor1, Valor2, Valor3.

No meu Formulário já inclui estes campos, mas como faço p/ somá-los?

[Clemente Silva]

Bom, não conheço nada de Delphi, mas acredito que para qualquer linguagem o processo deja o mesmo:

1) Criar variáveis ou um array para os campos que deseja somar

2) Colocar os valores dos campos dentro dessas variáveis / arrays (tem gente que faz direto nos controles, mas eu acho errado)

3) Validar os valores, para saber se são mesmo numéricos (bom para evitar erros)

4) E.... somar!

Em Delphi seria algo mais ou menos assim:

var
    T : integer;
    V1 : integer;
    V2 : integer;
begin
    T = V1 + V2
    ShowMessage('Resultado da soma:' + IntToStr(T)) 
end;

ou, se for com array;

var
    T : integer;
    X : integer;
    V : array[0..1] of integer;
begin
    V(0) := 5
    V(1) := 2
    For X := 1 to 5 do
        T = T + V(X)
    ShowMessage('Resultado da soma:' + IntToStr(T)) 
end;

Mais ou menos isso, não sei se os códigos estão certos, pois não trabalho com Delphi.

[bergamo]

Acontece q eu já tentei fazer assim:

var

T : integer;

V1 : integer;

V2 : integer;

begin

T = V1 + V2

Mas o resultado Final fica assim » V1V2 ele apenas ajunta os caracteres

Exemplo: se eu for somar 15 + 10 o resultado fica: 1510 ele não soma

[diogobruno]

Você deve primeiro declarar as variaveis, depois atribui-las fazendo as devidas conversões de String pra Integer 'StrToInt(string)', depois faz a soma normal, e para exibir, converta novamente, só que dessa vez de Integer pra String 'IntToStr(integer)'. Esse é o jeito mais padronizado..

var
v1, v2, v3, soma:integer;
begin
v1:=strtoint(valor1.Text);
v2:=strtoint(valor2.Text);
v3:=strtoint(valor3.Text);
soma:=v1+v2+v3;

lbl_resultado.Caption := IntToStr(soma);
end;

Mas pode fazer uma tranqueira tambem, tipo abaixo:

lbl_resultado.Caption := IntToStr(strtoint(valor1.Text)+ strtoint(valor2.Text)+strtoint(valor3.Text));