كيف يتم ازالة الفواصل من الارقام

[Shaieb]

السلام عليكم
اخواني ارغب في الحصول على كود ازالة الفواصل من الارقام
مثلا   ازالة الفواصل من الرقم   1,000,000.000    بحيث يصبح  الرقم   1000000000  بدون فواصل
على ان يكون ذلك في  Edit1.text  field    في  دلفي 7
ولكم من جزيل الشكر
Shaieb

[bassem_43]

و عليكم السلام 
تفضل هده الدالة تقوم بالعمل

PHP كود :

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 ; 


 و استعمالها يكون كالتالي :

PHP كود :

edit2.text:= ExtractNumberInString(edit1.text); 


بالتوفيق

[Shaieb]

مشكور جدا اخي الكريم
على الرد واتمنى لك مزيد من التقدم
خيركم من تعلم علما نافعا وعلمه

[Ben.Ja]

يمكن اضافة هذا لحدث onclick لButton تضعه

كود :

edit1.Text:=StringReplace(edit1.Text,',','',[rfReplaceAll]); edit1.Text:=StringReplace(edit1.Text,'.','',[rfReplaceAll]);

[Shaieb]

تسلم ايادي الجميع مشكورين على الرد والاهتمام
لدي سؤال آخر سأطرحه لاحقا ان شاء الله