貨幣德爾福

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; 

我希望這個你問什麼。