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

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



//با این تابع هر دو اعداد فارسی و عربی رو می تونی به اعداد انگلیسی تبدیل کنی

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;