delphi useful functions دوال و إجراءات دلفي مفيدة
#11
دالة كثيرة الاستعمال :
استخراج الارقام من النص 

كود :
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 ;
[-] كل من 2 users say قال شكرا ل rahiche على المشاركة المفيدة
  • S.FATEH, wadoud
الرد
#12
لارجاع النص بين علامتين "text"
PHP كود :
uses System.SysUtils;

function 
TForm1.DoubleQuotedStr(Strstring): string;
begin
  Result 
:= AnsiQuotedStr(Str'"');
end
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
الرد
#13
السلام عليكم
كتابة التاريخ و الوقت باللغة العربية
الإستخدام من داخل Timer
PHP كود :
procedure TfrmPrincipale.TimerTimer(SenderTObject);
begin
 txtTemps
.Caption := ArDateTime(Now);
end;

function 
TfrmPrincipale.ArDateTime(ADateTimeTDateTime): string;
const
 
 ADays: array[1..7of string = ( 'الأحد''الإثنين''الثلاثاء''الأربعاء''الخميس''الجمعة''السبت');
 
 AMonths: array[1..12of string = ('جانفي''فيفري''مارس''أفريل''ماي''جوان''جويلية''أوت''سبتمبر''أكتوبر''نوفمبر''ديسمبر');
var
 
 dmyWord;
begin
 DecodeDate
(Dateymd);
 
Result :='تاريخ اليوم : 'ADays[DayOfWeek(ADateTime)] + ' ' IntToStr(d) + ' ' AMonths[MonthOfTheYear(ADateTime)] + ' ' IntToStr(y) + ' الوقت : ' TimeToStr(TimeOf(ADateTime));
end
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
[-] كل من 3 users say قال شكرا ل S.FATEH على المشاركة المفيدة
  • bassem_43, delphi17, Delphi4Us
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف