货币德尔福

Question

我试图软件写在Delphi中的代码，这将在货币格式这样可以显示给定的数字格式：

现在，它的工作原理，如果填充整数和另一个字段，直到任何参数都会更新。 我很高兴有一个代码可以显示货币格式的数字，就像我写的一样。我试图通过键入此来管理：

procedure TForm1.EditZakladChange(Sender: TObject); 
var zaklad: Currency; 
begin 
    zaklad := StrToFloat(EditZaklad.Text); 
    EditZaklad.Text := FloatToStrF(zaklad, ffCurrency, 10, 2); 
end; 

end. 

但每次当在成才（ZAKLAD场）类型的，出现这样的错误：

有人能帮助我的是，请？

Answer 1

确保的edtZaklad的的MaxLength为0

var 
    Form21: TForm21; 
    Check:string; //to break the loop. 

function GetCurrency(Num: String):string; 
var 
    i: Integer ; 
    Str:String; 
    zaklad: Currency; 
begin 
    Result := ''; 
    for i := 1 to length(Num) do 
    begin 
    if (Num[i] in ['0'..'9']) then 
    Begin 
     Str := Str + Num[i] ; 
     zaklad := StrToFloat(Str); 
     Result := FloatToStrF(zaklad, ffCurrency, 10, 2); 
     Check := Result; 
    End; 
    end; 
end; 

function ExtractCurrencySymbol(zaklad: String):string; 
var 
    i: Integer ; 
    Str:String; 
begin 
    Result := ''; 
    for i := 1 to length(zaklad) do 
    begin 
    if NOT (zaklad[i] in ['0'..'9','.',',']) then 
    Begin 
     Str := Str + zaklad[i]; 
     Result := ' '+Trim(Str); 
    end; 
    end; 

end; 

procedure TForm21.EditZakladChange(Sender: TObject); 
begin 
    if AnsiPos(Check,EditZaklad.Text) <> 0 then exit; 
    if (Trim(EditZaklad.Text) = '') then exit 
    else 
    begin 
    EditZaklad.Text := GetCurrency(EditZaklad.Text)+ExtractCurrencySymbol(EditZaklad.Text); 
    Exit; 
    end; 
end; 

我希望这个你问什么。