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

[rahiche]

دالة كثيرة الاستعمال :
استخراج الارقام من النص 

كود :

function ExtractNumberInString( sChaine: String ): String ; var i: Integer ; begin Result := '' ; for i := 1 to length( sChaine ) do begin if sChaine[ i ] in ['0'..'9'] then Result := Result + sChaine[ i ] ; end ; end ;

[S.FATEH]

لارجاع النص بين علامتين "text"

PHP كود :

uses System.SysUtils;

function TForm1.DoubleQuotedStr(Str: string): string;
begin
  Result := AnsiQuotedStr(Str, '"');
end; 


[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;