Tem como calcular valores dentro de um edit?

Question

Ola amigos boa tarde, gostaria de saber se tem como mudar esses codigos para nao precisar ficar escrevendo na unit as formulasif StrToInt(edit2.text) = 1 thenbeginquery1.Edit;query1valor.value:=form3....

Rjun · Answer

Crie um fun��o que receba o c�digo e retorne o valor calculado. Desse jeito voc� faria o post assim:

Query1.Edit;
Query1.FieldByName(�Valor�).Value := ValorCalculado(Edit2.Text);
Query1.Post;

Adriano_servitec · Answer

Ola Rogerio, desculpe nao ter entendido como criar essa fun�ao

C�digo:

Query1.Edit;
Query1.FieldByName(�Valor�).Value := ValorCalculado(Edit2.Text);
Query1.Post;

Tenho que criar um banco de dados para gravar o que esta no edit?

tipo codigo, descricao, formula, o codigo seria o codigo que eu criar, descricao seria tipo salario mensal e formula seria valor calculado?

Poxa nao consegui entender amigo

Rjun · Answer

[code:1:964d87cdfe]function ValorCalculado(Codigo: string): double;begin  result := 0;  if Codigo = �1� then    result := form3.Table2salario.value / 30 * strtoint(dbedit5.text);   else if Codigo = �2� then    result := form3.Table2salario.value / 220 * strtoint(dbedit5.text); end;[/code:1:964d87cdfe]    Essa fun��o pode ser melhorada. Foi s� pra te dar uma ideia....

Adriano_servitec · Answer

Bom nesse caso de qualquer forma tenho que escrever a fun�ao na unit.pas

function ValorCalculado(Codigo: string): double;
begin
result := 0;

if Codigo = �1� then
result := form3.Table2salario.value / 30 * strtoint(dbedit5.text);
else if Codigo = �2� then
result := form3.Table2salario.value / 220 * strtoint(dbedit5.text);
else if Codigo = �3� then
result := form3.Table2salario.value / 220 *1.5/100;
else if Codigo = �4� then
result := form3.Table2salario.value / 220 * 2.0/100;
end;

Minha ideia eh quando incluir um codigo dentro de um form tenha um edit aode possa escrever esse formula que esta dentro da unit.pas

entao o result seria o que tem dentro da edit.text do form

Daemon · Answer

..Bom cara. ..eu fiz um codigozinho simples, considerando que vai ter diversos edits com conteudo, usando a fun��o abaixo no Evento OnKeyDown, voc� pode fazer todos edits chamar a mesma fun��o:

procedure TfrmPrin.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  Validos = [1,3];  //Tipos que v�o ser aceitos..
var
  iTemp:Integer;

  function RetornaValor(Tipo:Integer):Extended;
  begin

    case Tipo of
      1: result := form3.Table2salario.value/30*strtoint(dbedit5.text);
      3: result := form3.Table2salario.value/220*strtoint(dbedit5.text);
      //Se aparecer um outro tipo, inclua aqui
    else
      result := 0;
    end;

  end;

begin

  if key = Vk_Return then
  begin

    if (Sender is TEdit) then
    begin

      iTemp := StrToInt((Sender as TEdit).Text);
      if iTemp in Validos then
      begin
        query1.Edit;
        query1valor.value:=RetornaValor(iTemp);
        query1.post;
        bitbtn2.setfocus;
      end;

    end;

  end;

end;

...v� se isso resolve...

...flws

Adriano_servitec · Answer

Ola Daemon, tentei fazer do jeito que tu me passou, nao consegui entender, mais valeu muito pela ajuda. O que eu so queria eh saber num form eu criar um editcodigo=para incluir codigo, e em um outro editformula=criar as formulas entao gravar num botao

No editcodigo digito assim =1
No editformula digito assim=salario/30*
depois gravo
Novamente no mesmo editcodigo=2
No editformula digito assim=salario/220*
depois gravo
Novamente no mesmo editcodigo=3
No editformula digito assim=salario/220*1.5
depois gravo

e assim por diante

Entao em outro form quando digitar o codigo 1 ele pega a formula e o dbedit5.text eh o mesmo que quantidade ele calcula pra dar o valor

Valeu amigo pela ajuda
Obrigado

Daemon · Answer

...bom ...nesse caso � s� fazer exatamente do jeito que vc fez. ..s� que usando DBEdits, para facilitar sua vida.. ..e outra coisa. ....a express�o vai ter que ser resolvida no banco de dados, pois o proprio Edit n�o resolve a equa��o. ...

Adriano_servitec · Answer

Eh realmente parece nao ter jeito de fazer essas formulas por causa dos operadores, mais facilitaria muito meu projeto se funcionasse.

Fiz um tipo de calculo para usar operadores mais nao resolveu, usei 5 dbedits, dbedit1salario, dbedit2op1,dbedit3fixo,dbedit4op2,dbedit5result eis ai o codigo que fiz

num bitbtn calcula os operadores

var
opr,opr2, OPR3: char;
vr1,vr2,vr3, VR4, result: real;
begin
vr1:=StrToFloat(DBEdit1.Text);
vr2:=StrToFloat(DBEdit3.Text);
vr3:=strtofloat(dbedit5.text);
opr:=DBEdit2.Text[1];
opr2:=dbedit4.text[1];
OPR3:=DBEDIT10.TEXT[1];

case opr of
�+�: result:=vr1+vr2;
�-�: result:=vr1-vr2;
�*�: result:=vr1*vr2;
�/�: result:=vr1/vr2;
else exit end;

vr1:=result;
vr2:=StrToFloat(DBEdit5.Text);
opr:=DBEdit4.Text[1];

case opr of
�+�: result:=vr1+vr2;
�-�: result:=vr1-vr2;
�*�: result:=vr1*vr2;
�/�: result:=vr1/vr2;
else exit end;

qry1.Edit;
qry1result.value:=result;
qry1.post;
end;

Isso funciona bem se o calculo for salario/220*30=result

Mais nao funciona com Horas Extras pq a formula eh assim
salario/220*1.5*quanthoras
Nesse caso teria que ter mais operadores e na pratica fica dificil de desenvolver, pois existe muitos calculos diferentes

Bom vou fazer do jeito que estava mesmo

Obrigado amigos pela ajuda
Valeu pela for�a de todos
T+

F�rum Tem como calcular valores dentro de um edit? #289146