حدف النص والاحتفاظ بالرقم فقط

استعمل الدالة copy هكذا

copy('CUSD: 0,"Votre credit est de: 6230.00 ",15',30,8)

الدالة سترجع فقط بالقيمة 6230.00

دالة ????

دالّة يعني تابع function

أعتذر على تطفّلي (أول دخول إلى قسم الأوبجيكت باسكال )

دالة نسخ وتقوم بنسخ سلسلة حرفية أو حرف من نص ولكن الشرطان تعرف مكان السلسلة التي تريد نسخها كما حددها المشرف في المثال السابق

كما يمكنك استخدام هذه الدالة

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

وهي تقوم بفصل الأرقم عن الحروف وتعود بالأرقام فقط بحسب ترتيبها بالنص؟