نقل قول نوشته شده توسط Delphi 2010 مشاهده تاپیک
حالا چطوری باید استفاده کنیم عزیزان
سلام دوستان
خیلی ممنون
کل اینترنت رو گشتم و جوابمو اینجا پیدا کردم
ممنون
یه تابع ساده نوشتم که امیدوارم به درد همه بخوره
این تابع تمام کامپوننت هایی رو که متن text داره رو راست چین میکنه
این تابع از کلاس بالا استفاده میکنه
اونو توی پروژتون اد کنید و از این تابع استفاده کنید
Farsi:=TFarsi.Create;
for I := 0 to ComponentCount-1 do
begin
if (Components[i] is TTextControl) Then
(Components[i] as TTextControl).Text:=Farsi.Convert((Components[i] as TTextControl).Text);


end;

بازم تشکر از دوستانی که این کلاس فارسی رو درست کردن جاوا شو پیدا کرده بودم ولی اگه میخواست پاسکالش کنم یه هفته باید وقت میزاشتم
در پناه حق
جواد عادل