Jump to content

маска с разделителем тысяч ддя числа в unudbgrid


Serg

Recommended Posts

procedure TMainForm.UniDBGrid5SetCellValue(Sender: TObject; ACol, ARow: Integer;
  AField: TField; var Value: Variant);
begin
if AField.FullName='U1' then
Value:=FormatCurr('0,0.00 ', AField.AsFloat) + FmtSettings.CurrencyString;
end;

 

Сделал таким   способом . Но не работает.

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...