+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : delphi useful functions دوال و إجراءات دلفي مفيدة (/showthread.php?tid=5485)
الصفحات:
1
2
RE: delphi useful functions دوال و إجراءات دلفي مفيدة - rahiche - 10-01-2018
دالة كثيرة الاستعمال :
استخراج الارقام من النص
كود :
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 ;RE: delphi useful functions دوال و إجراءات دلفي مفيدة - S.FATEH - 25-05-2018
لارجاع النص بين علامتين "text"
PHP كود :
uses System.SysUtils;
function TForm1.DoubleQuotedStr(Str: string): string;
begin
Result := AnsiQuotedStr(Str, '"');
end;
RE: delphi useful functions دوال و إجراءات دلفي مفيدة - S.FATEH - 23-01-2019
السلام عليكم
كتابة التاريخ و الوقت باللغة العربية
الإستخدام من داخل 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;