ترکیب عدد و حروف در قالب کد کالا

[khoshblagh]

با سلام خدمت دوستان
در هنگام ورود کد به یک edit box ترتیب عدد و حروف درست میباشد.ولی نمایش همان کد در dbgridEH بصورت غلط و فارسی انگلیسی نمایش داده میشود.علت و روش حل این مشکل چیست؟

[khoshblagh]

با سلام خدمت دوستان
این مسئله به روش زیر حل شد. البته از تاپیکهای همین سایت استفاده شد.


//با این تابع هر دو اعداد فارسی و عربی رو می تونی به اعداد انگلیسی تبدیل کنی
Function N2N(InStr:string):string;
var i:Integer;
OutStr:string;
begin
for i := 1 to StrLen(Pchar(Trim(InStr))) do
OutStr := OutStr + IntToStr(Ord(InStr[i]) Mod 48);
Result := OutStr;
end;


procedure TfrmFahrestBahaGheta.qryFhrestBahaShowShomarFanniG etText(
Sender: TField; var Text: string; DisplayText: Boolean);
begin
Text:='';
if qryFhrestBaha.IsEmpty then exit;
Text:=#253+N2N(Copy(qryFhrestBahaShomarFanni.AsStr ing,1,5))+'-'+
Copy(qryFhrestBahaShomarFanni.AsString,7,5);
end;