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

البرنامج مكتوب بلغة البرمجة دلفي 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;