delphi useful functions دوال و إجراءات دلفي مفيدة

[S.FATEH]

السلام عليكم
كتابة التاريخ و الوقت باللغة العربية
الإستخدام من داخل Timer

PHP كود :

procedure TfrmPrincipale.TimerTimer(Sender: TObject);
begin
 txtTemps.Caption := ArDateTime(Now);
end;

function TfrmPrincipale.ArDateTime(ADateTime: TDateTime): string;
const
  ADays: array[1..7] of string = ( 'الأحد', 'الإثنين', 'الثلاثاء', 'الأربعاء', 'الخميس', 'الجمعة', 'السبت');
  AMonths: array[1..12] of string = ('جانفي', 'فيفري', 'مارس', 'أفريل', 'ماي', 'جوان', 'جويلية', 'أوت', 'سبتمبر', 'أكتوبر', 'نوفمبر', 'ديسمبر');
var
  d, m, y: Word;
begin
 DecodeDate(Date, y, m, d);
 Result :='تاريخ اليوم : '+ ADays[DayOfWeek(ADateTime)] + ' ' + IntToStr(d) + ' ' + AMonths[MonthOfTheYear(ADateTime)] + ' ' + IntToStr(y) + ' الوقت : ' + TimeToStr(TimeOf(ADateTime));
end;