Porque? is not a valid floating point values

Question

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  begi...

Anonymous · Answer

[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;

C-t · Answer

Obrigado , Cara...

F�rum Porque? is not a valid floating point values #148985