نوشته شده توسط
nilidelphi
سوال 1 : چطور میشه تو فست ریپورت کاری کرد که عدد ها فارسی نمایش داده بشن.؟
لطفا عوض کردن تنظیمات زبان ویندوز رو پیشنهاد نکنید که این روش رو می دونم من میخوام فقط تو برنامه ی من اعداد فارسی ساپورت بشن نه تو کل ویندوز
این کد را من خیلی وقت پیش از تو سایت برداشته بودم و تو آرشیو کدهام بود. ببینید کارتون رو راه میندازه
function EnglishToPersianNo(const TheInput: String): String;
var
C: Char;
begin
for C in TheInput do
case ord(C) of
48..59 : Result:= Result + WideChar(1584 + Ord(C));
46: Result:= Result + WideChar(47);
end;
end;