mensagem de erro por falta de valor no TEdit

Question

tenho um TEdit que faz parte de uma conta... mas se o usu�rio n�o informar um valor, da uma mensagem de erro e trava o programa..

devo informar o usu�rio da falta do valor, e dar o setfocus no TEdit

como fa�o isso?

obrigado antecipadamente...

Jujan · Answer

coloque no evento on exit da edit o seguinte c�digo

if edit1.text=�� then
begin
showmessage(�obrigatorio a digita��o�)
edit1.setfocus;
end;

Por�m existe outras maneiras de tratar esse tipo de erro se esse c�digo n�o resolver envie outra mensagem que eu envio o c�digo de tratamento completo.
Espero q ajude.

Adelor Silva · Answer

n�o funcionou lamento... este � o procedimento que estou utilizando..

procedure TPagPrincipal.Button2Click(Sender: TObject);
begin
kgch := StrToFloat(Edit4.Text);
qtdch := kgch / resultKg;

Label10.Caption := FormatFloat(�#,0,00�, kgch)+ � Kg�;
Label12.Caption := FloatToStr(trunc (qtdch)) + � Chapas�;

end;

Nadai_ · Answer

*coloque o c�digo onde for preciso a valida��o*

if Edit.Text = �� then
begin
  Edit.SetFocus;
  raise Exception.Create(�Informar o valor no Edit�);
end;

Adelor Silva · Answer

lamento meus amigos... mas n�o funcionou... tentei fazer um

teoricamente n�o seria somente colocar...

if edit1.text = � � then
begin
showmensage (�digite o valor�);
edit1.setfocus;
end;

Marcio.theis · Answer

Quais s�o os eventos que vc tem sobre este TEdit ???...

Adelor Silva · Answer

eu preciso de uma solu��o pra for�ar o cliente a digitar os n�meros nos campos obrigat�rios... se ele n�o digitar, o cursor dever� retornar ao TEdit...

este � um exemplo do que eu preciso...

procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, result : real;

begin
num1 := StrToFloat(Edit1.Text);
num2 := StrToFloat(Edit2.Text);
result := num1 / num2;
Label1.Caption := FloatToStr(result);
end;

end.

Marcio.theis · Answer

Vc tem alguma coisa no evento OnChange, OnEnter, OnExit, OnKeyDown ou OnKeyPress do seu TEdit ???...

Adelor Silva · Answer

ta tudo limpo l�... todo evento esta no bot�o......

Xandyr · Answer

[quote:fe65a6754f=�Adelor da Silva�]eu preciso de uma solu��o pra for�ar o cliente a digitar os n�meros nos campos obrigat�rios... se ele n�o digitar, o cursor dever� retornar ao TEdit...

este � um exemplo do que eu preciso...

procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, result : real;

begin
num1 := StrToFloat(Edit1.Text);
num2 := StrToFloat(Edit2.Text);
result := num1 / num2;
Label1.Caption := FloatToStr(result);
end;

end.[/quote:fe65a6754f]
procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, result : real;

begin
if Edit1.Text = �� then O Trim Remove espa�os em branco
begin
Edit1.SetFocus;
ShowMessage(�Digite o valor 1�);
exit;
end;

if Trim(Edit2.Text) = �� then // O Trim Remove espa�os em branco
begin
Edit2.SetFocus;
ShowMessage(�Digite o valor 2�);
exit;
end;

num1 := StrToFloat(Edit1.Text);
num2 := StrToFloat(Edit2.Text);
result := num1 / num2;
Label1.Caption := FloatToStr(result);
end;

Xandyr · Answer

Outra coisa, n�o use a palavra [b:31b5ea7a2b]result[/b:31b5ea7a2b], ela utilizada para retornar valores de fun��es....

Adelor Silva · Answer

muito obrigado minha gente... valeu as dicas...inclusive esta do � result �muito obrigado mesmo......