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
الرد


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


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