درج اعداد به زبان انگلیسی در دیبی گرید

[khoshblagh]

با سلام خدمت دوستان
کسی میدونه چطور باید برنامه را تنظیم کرد که در دیبی گرید اعداد به صورت انگلیسی نمایش داده شود؟ متشکرم

[یوسف زالی]

سلام. در بدترین حالت خودش می تونید یک کانورتور براش درست کنید.
کدهای اعداد رو می تونید از برنامه charmap بیرون بکشید.

[khoshblagh]

ضمن تشکر از جناب آقای زالی به خاطر کمک به رفع مسائل مطرح شده توسط کاربران، بنده تجربه ای در این باره ندارم . در نت هم بیشتر در رابطه با کانورت از زبان به زبان دیگر برنامه نویسی موجود است.لذا در صورت امکان قطعه کدی که شمای کلی کار را نشان بدهد راهگشا خواهد بود. متشکرم:خجالت:

[یوسف زالی]

براتون یک مثال نوشتم:



function ConvertToLatinDigits(s: string): string;
const
Digits = #$ff10#$ff11#$ff12#$ff13#$ff14#$ff15#$ff16#$ff17#$ ff18#$ff19;
var
i: integer;
begin
for i := 0 to 9 do
s := StringReplace(s, Chr(i +48), Digits[i +1], [rfReplaceAll]);


Exit(s);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
s: String;
begin
s := 'این تسته ' + '1234567890' + ' test تست';
s := ConvertToLatinDigits(s);
Label1.Caption := s;
end;