請問 我們通常會以Format方式來顯示為千分符號 如ED_D01.Text := FormatFloat('#,##0',T_D01); 可是有一問題是如果我需要將這些顯示為千分符號之文字方塊的內容與以加總 因為經Format後他已經是文字,並非格式正確之數字 如StrToFloatDef(ED_D01.Text ,0) 會等於0 我應該如何作?

試試看下列的 function 將千分號去掉 function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

function strtofloatx(cStr:string):real;
begin
  while pos(',',cStr)<>0 do
  begin
    delete(cStr,pos(',',cStr),1);
  end;
  result:=strtofloat(cStr);
end;