Delphi7 - Programação de 'Edit.text'

[claudio_luiz98 0]

Boa noite ,

alguem poderia me ajudar com esse erro?

 

Eu programei um botao pra somar 3 valores, que estariam em 3 caixas de textos. porem quando uma ou mais delas estão em branco, o delphi não entende que o valor é zero e o prog da um erro.

 

queria saber como faço para o delphi entender que quando a caixa de texto estiver vazia o valor é zero.

 

obg ;)

 

 

[Eisenheim 67]

Olá amigo!

 

Seria interessante você compartilhar um trecho do código para facilitar na hora de poder te ajudar.

 

Pra você ter sucesso em sua operação, você deve tratar seu programa para que ele não tente efetuar uma operação sem um valor "Vazio/Nulo".

 

Fiz um exemplo para facilitar a sua compreensão: [ Download ]

 

É o arquivo StrToIntDef. Estude o exemplo e entenderá como trabalhar.

[bdexterholland 0]

coloca um if antes de iniciar os cálculos

 

if (trim(edit3.text) = emptyStr) then
  edit3.text := "0";

A função TRIM remove espaços em branco antes e depois do texto.

EmptyStr é uma constante equivalente a texto vazio

[claudio_luiz98 0]

Olá amigo!

 

Seria interessante você compartilhar um trecho do código para facilitar na hora de poder te ajudar.

 

Pra você ter sucesso em sua operação, você deve tratar seu programa para que ele não tente efetuar uma operação sem um valor "Vazio/Nulo".

 

Fiz um exemplo para facilitar a sua compreensão: [ Download ]

 

É o arquivo StrToIntDef. Estude o exemplo e entenderá como trabalhar.

como eu posto uma foto aqui na publicação?

procedure TForm1.BitBtn1Click(Sender: TObject);
var add,desc,tarifa:real;
begin
add:=strtofloat(editadd.text);
desc:=strtofloat(editdesc.Text);
tarifa:=strtofloat(edit1.text);
edittotal.Text:=floattostr(tarifa+add-desc); 

esse é o codigo

[Eisenheim 67]

Olá amigo!

 

Você chegou a estudar o exemplo que disponibilizei no outro post?

 

Tente com esse código:

procedure TForm1.BitBtn1Click(Sender: TObject);
var add,desc,tarifa:real;
begin
add:=strtofloatDef(editadd.text,0);
desc:=strtofloatDef(editdesc.Text,0);
tarifa:=strtofloatDef(edit1.text,0);
edittotal.Text:=floattostr(tarifa+add-desc); 

[claudio_luiz98 0]

 

Olá amigo!

 

Você chegou a estudar o exemplo que disponibilizei no outro post?

 

Tente com esse código:

procedure TForm1.BitBtn1Click(Sender: TObject);
var add,desc,tarifa:real;
begin
add:=strtofloatDef(editadd.text,0);
desc:=strtofloatDef(editdesc.Text,0);
tarifa:=strtofloatDef(edit1.text,0);
edittotal.Text:=floattostr(tarifa+add-desc); 

obrigado! esse cod deu certo. Vou estuda-lo pra entender melhor! valeu!

[Eisenheim 67]

Olá amigo!

 

Disponha. :thumbsup: