Dividindo no Delphi

[João Paulo Taraciuk]

Olá pessoal, estou encontrando dificuldades em realizar uma divisão no Delphi 7, assim, eu tenho um Txnumedit onde coloco o valor de um produto à prazo, aí em um edit tem o valor da margem de lucro, então em um outro Txnum edit tem que aparecer o valo de custo, mais ou menos assim

Eu tentei dessa maneira, é que eu sou iniciante em programação!!

procedure TFrm_Produtos.Txnumedit_aprazoExit(Sender: TObject);

var

um, dois: String;

begin

um:= Txnumedit_aprazo.Text;

dois:= '1,' + TEdit_Margem.Text;//Aqui coloque 1, + porque no edit eu pus 10,00, então ficaria 1,10 porcento a margem

Txnumedit_Custo.Text:=(um)div (dois) ;

end;

//Seria mais ou menos assim, o usuário coloca o valor do produto à prazo no Txnumedit à prazo, então o sistema

//calcularia pela margem que está no Tedit_margem e joga o valor do custo no Txnumedit_custo

//por que digamos que eu coloque no valor à prazo R$ 5,50 e na margem 10% então 5,50 Dividido por 1,10

//dá exatamente o valor de custo R$ 5,00

[Felipee]

cara, não entendi bem sua duvida.

já tentou num/divisor?

lembrando que o divisao tem que ter um valor minimo de 1.

desculpe se não ajudei.

[Micheus]

procedure TFrm_Produtos.Txnumedit_aprazoExit(Sender: TObject); 
var 
  um, dois: String; 
begin 
  um:= Txnumedit_aprazo.Text; 
  dois:= '1,' + TEdit_Margem.Text;//Aqui coloque 1, + porque no edit eu pus 10,00, então ficaria 1,10 porcento a margem 
  Txnumedit_Custo.Text:=(um)div (dois); 
end;

João, seu problema é um só: você está tentando fazer operações matemáticas com variáveis tipo texto e não numéricas. Não vai resolver 100% sua questão, mas resolve este que você postou:

TFrm_Produtos.Txnumedit_aprazoExit(Sender: TObject); 
var 
  um, dois: Double; 
begin 
  um := StrToFloat(Txnumedit_aprazo.Text);
  dois := 1 + StrToFloatDef(TEdit_Margem.Text, 0);
  Txnumedit_Custo.Text := FormatFloat('#0.00', um /dois); 
end;

Considerações:

- StrToFloat fará a conversão do texto digitado para um número de ponto flutuante. Entretanto, vale observar que a conversão ocorre corretamente quando você tem no texto o "." como separador de decimal e não a ",". Há outros posts que falam a respeito de como contornar isto;

- StrToFloatDef faz exatamente a mesma coisa que StrToFlat, com a diferença que se a conversão não puder ser realizada (texto nulo ou inválido) será retornado o valor passado no 2º parâmetro;

- FormatFloat converte um número para um string (texto) no formato definido no 1º parâmetro. Observe que se for necessário apresentar o separador de milhar, você deverá mudar a máscara para '#,##0.00' (ele usa a notação americana). As posições onde coloquei os "0", aparecerão no texto final, mesmo que você passe um valor como 0.2, o resultado será "0,20". Se precisar que apareça o símbolo da moeda, é só acrescentá-la a máscara: 'R$ #,##0.00';

- Em uma divisão como a que você está fazendo, deve ser utilizado a "/" para divisão com resultado fracionário. O Div é utilizado para divisões de inteiros, o que não cabe ao seu caso.

Abraços

[João Paulo Taraciuk]

Muito obrigado Micheus, segui o seu exemplo e deu exatamente como eu queria, o único problema é que o Tedit_margem está no Frm_Configuracoes, aí só calculava o valor da margem se eu abrir e fechar o Frm_Configuracoes antes, então eu adicionei esta linha, pode ser desta maneira ou tem outra mais prática ?

procedure TFrm_Produtos.Txnumedit_aprazoExitExit(Sender: TObject);

var

um, dois: Double;

begin

Frm_Configuracoes.Atualiza;

um := StrToFloat(Txnumedit_aprazo.Text);

dois:= StrToFloatDef(Frm_Configuracoes.TEdit_Margem.Text,0) /100 + 1;

Txnumedit_Custo.Text := FormatFloat('#0.00', um /dois);

end;

Muito Obrigado!!!

[Micheus]

A princípio não há problema, desde que o tal form esteja criado (exista em memória).

Assim você não vai obter um "Access violation".

Abraços

[João Paulo Taraciuk]

Valeu Micheus , muito obrigado .