10-10-2019, 09:43 AM
وعليكم السلام ورحمة الله وبركاته
الكتابة تظهر عندي بشكل عادي
كود :
procedure TForm1.Button1Click(Sender: TObject);
VAR
mt: currency;
begin
mt:=2533652.36;
showMessage(FormatFloat('## ### ##0.00',mt));
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ