solook
دوشنبه 08 مهر 1387, 10:36 صبح
باسلام
من از این کد برای یکسان کردن حرف ی و ک ..فارسی و عربی استفاده میکنم :
procedure TForm1.SrarchEditKeyPress(Sender: TObject; var Key: Char);
begin
IF Key = #223 then Key := #153;
IF Key = #236 then Key := #237;
IF Key = #195 then Key := #199;
IF Key = #197 then Key := #199;
end;
این با Edit های معلمولی خوب کار میکنه اما وقتی از tntedit استفاده میکنم کار نمیکنه
البته کارکترهای انگلیسی را تبدیل میکنه ولی زبان فارسی رو نه ..
باز نگاهی انداختم
با این کار رفتم ببینم کدی که برای کلمات فارسی میذاره چیه :
tntedit1.Text:=' = #'+inttostr(ord(key));نتیجه جالب بود ..
همه کارکترهای فارسی این بود :
#255اما انگلیسی متفاوت بود
چیکارش کنم؟
من از این کد برای یکسان کردن حرف ی و ک ..فارسی و عربی استفاده میکنم :
procedure TForm1.SrarchEditKeyPress(Sender: TObject; var Key: Char);
begin
IF Key = #223 then Key := #153;
IF Key = #236 then Key := #237;
IF Key = #195 then Key := #199;
IF Key = #197 then Key := #199;
end;
این با Edit های معلمولی خوب کار میکنه اما وقتی از tntedit استفاده میکنم کار نمیکنه
البته کارکترهای انگلیسی را تبدیل میکنه ولی زبان فارسی رو نه ..
باز نگاهی انداختم
با این کار رفتم ببینم کدی که برای کلمات فارسی میذاره چیه :
tntedit1.Text:=' = #'+inttostr(ord(key));نتیجه جالب بود ..
همه کارکترهای فارسی این بود :
#255اما انگلیسی متفاوت بود
چیکارش کنم؟