العربية في برنامج على أجهزة الأندرويد باستعمال الدلفي

البرنامج مكتوب بلغة البرمجة دلفي Delphi XE8 ويعمل على نظام الاندرويد، هذا البرنامج يعطينا طريقة لعرض مربعات الحوار لقراءة القيم وعرض النتائج باللغة العربية. عند استعمال الدلفي في حالته العادية للكتابة أوالعرض باللغة العربية في نظام الأندرويد فإننا لا نتحصل على النتائج المرجوة بحيث تكون الكلمات مقلوبة وحروفها مرتبة من اليسار إلى اليمين، الأمر.

الذي دفع ببعض محبي الدلفي إلى البحث عن حلول، منها إدخال أوامر الجافا التي تدعم العربية والاستعانة بها في الدلفي، ومنهم من لجأ إلى طرق أخرى تؤدي إلى النتائج المطلوبة. في هذا البرنامج استعملنا:
الأمر : InputQuery من الوحدة FMX.Dialogs وهو أمر يدعم اللغة العربية.
العنصر : TWebBrowser من الوحدة FMX.WebBrowser; واستعمال أوامر html.
عنصر : TMemo لتخزين أوامر html.
عنصر :TButton لأعطاء الأمر القيام بالعمليات والإجراءات المطلوبة.
وهذا نص الإجراء عن لمس الزر TButton على جهاز الاندرويد :

procedure TForm1.Button1Click(Sender: TObject);
var
 R, U, I: Single;
begin

 Memo1.Lines.Add('<p dir="rtl">بسم الله الرحمن الرحيم</p>');
 InputQuery('حساب المقاومة', ['الجهد (ب الفولط)', 'شدة التيار بالأمبير:'],
   ['220', '5,0'],
   procedure(const AResult: TModalResult; const AValues: array of string)
   begin
     // I et U CONNUS
      if TryStrToFloat(AValues[0], U) then
       if TryStrToFloat(AValues[1], I) then
         if I <> 0 then
         begin
           R := U / I;
           ShowMessage('الجهد'+ #13#10 +Format('U= %15.4F (V)', [U]) + #13#10 +
            'التيار' + #13#10 +
             Format('I= %15.2f (A)', [I]) + #13#10 +   'المقاومة'+ #13#10 +
             Format('R=U/I= %15.2f (ohm)', [R]));
             Memo1.Lines.Add('<p dir="rtl"><b><u>الجهد</u></b></p>')  ;

           Memo1.Lines.Add( Format('<p dir="ltr">U= %15.4F (V)</p>', [U]) +
           '<p dir="rtl"><b><u>التيار</u></b></p>'+
             Format('<p dir="ltr">I= %15.2f (A)</p>', [I]) +
             '<p dir="rtl"><b><u>المقاومة</u></b></p>'+
             Format('<p dir="ltr">R=U/I= %15.2f (ohm)</p>', [R]));
             Memo1.Lines.Add('<img border="0" src="file:///'+  TPath.Combine(TPath.GetDocumentsPath, 'resitance.jpg')+'">');
           Memo1.Lines.Add(' </body></html>');
           WebBrowser1.LoadFromStrings(Memo1.Text, '');
         end
   end

   );

end;

هذا البرنامج يقوم بحساب قيمة المقاومة من خلال معرفة قيمة الجهد وشدة التيار الكهربائي المار في هذه القماومة

يتم عرض النتيجة على المتصفح كما في الشكل :

يمكن تحميل هذا المشروع على الرابط التالي :