Porque? is not a valid floating point values

Delphi

24/03/2003

no evento exit do edit_cep ,coloquei essa rotina

procedure TForm_Cadastros.Edit_cepExit(Sender: TObject);
Var
Cep:Currency;
begin
CepF:=StrToFloat(Edit_cep.Text);
if Length(Edit_cep.Text) = 8 then
begin
Edit_cep.Text:=FormatFloat(´00000-000´,(Cep));
end
else
ShowMessage(´CEP Inválido´);
Edit_cep.SetFocus;
exit;

Mas qdo passo pelo edit sem preencher nada da esse erro !!!
is not a valid floating point values

e qdo coloco ex: 11111-111
da o mesmo erro

minha pergunta é .. qual tipo de dado devo usar ..eu acho que esse é o problema ..obrigado pela atenção galera


C-t

C-t

Curtidas 0

Respostas

Anonymous

Anonymous

24/03/2003

[quote:fe40494c8a=´C-T´]no evento exit do edit_cep ,coloquei essa rotina

procedure TForm_Cadastros.Edit_cepExit(Sender: TObject);
Var
Cep:Currency;
begin
CepF:=StrToFloat(Edit_cep.Text);
if Length(Edit_cep.Text) = 8 then
begin
Edit_cep.Text:=FormatFloat(´00000-000´,(Cep));
end
else
ShowMessage(´CEP Inválido´);
Edit_cep.SetFocus;
exit;

Mas qdo passo pelo edit sem preencher nada da esse erro !!!
is not a valid floating point values

e qdo coloco ex: 11111-111
da o mesmo erro

minha pergunta é .. qual tipo de dado devo usar ..eu acho que esse é o problema ..obrigado pela atenção galera[/quote:fe40494c8a]


function TForm1.FormataCEP(CEP: String): String;
begin
if Length(CEP)=8 then
  begin
result := CEP;
Insert(´.´, result, 3);
Insert(´-´, result, 7);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormataCEP(´72000000´));
end;



GOSTEI 0
C-t

C-t

24/03/2003

Obrigado , Cara


GOSTEI 0
POSTAR