• Registered: 2017-05-15
  • Posts: 722

Topic: FORMAT LABEL

HELLO MVD!

PLEASE HELP ME TO FORMAT LABEL INTO CURRENCY.

THANK!3

MANIXS

Post's attachments

Attachment icon _Calculate on the Form.zip 337.36 kb, 318 downloads since 2018-04-25 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: FORMAT LABEL

Hello.


procedure Form1_OnShow (Sender: TObject; Action: string);
var
    Sum: Real;
    s: string;
begin
     s := SQLExecute('Select sum(cost)from zakaz');
     if ValidFloat(s) then form1.countt.Caption := FormatFloat('#,##0.00', StrToFloat(s));
end;
Dmitry.
  • Registered: 2017-05-15
  • Posts: 722

Re: FORMAT LABEL

Another: THANK YOU MVD.!