نوشته شده توسط
online_com
فايل شما رو به يك تيبل نسبت دادم و در دي بي گريد متصل به اون در قسمت فونت و charset اون رو ARABIC_CHARSET قرار دادم اطلاعات به خوبي مشاهده مي شود
همین که تصویر فونت صحیح رو دیدم چشام نور گرفت.
اما من همین کار کردم و جواب نگرفتم. چرا؟
خاصیت Charset در فونت dbGrid روبه ARABIC_CHARSET تغییر دادم و کدم هم به این شکل هست:
dbf_folder:='F:\Delphi\Sample\DBF\sanad974';
ADOConnection1.LoginPrompt:=false;
ADOConnection1.ConnectionString:=
Format('Provider=Microsoft.JET.OLEDB.4.0;Data Source=%s;Extended Properties=dBase IV;',[dbf_folder]);
try
ADOConnection1.Connected:=True;
ADODataSet1.CommandText:='Select * from mother.dbf';
ADODataSet1.Open;
except
on E: Exception do
ShowMessage(E.Message);
end;