السلام عليكم
اخواني ارغب في الحصول على كود ازالة الفواصل من الارقام
مثلا ازالة الفواصل من الرقم 1,000,000.000 بحيث يصبح الرقم 1000000000 بدون فواصل
على ان يكون ذلك في Edit1.text field في دلفي 7
ولكم من جزيل الشكر
Shaieb
و عليكم السلام
تفضل هده الدالة تقوم بالعمل
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);
بالتوفيق
مشكور جدا اخي الكريم
على الرد واتمنى لك مزيد من التقدم
خيركم من تعلم علما نافعا وعلمه
يمكن اضافة هذا لحدث onclick لButton تضعه
كود :
edit1.Text:=StringReplace(edit1.Text,',','',[rfReplaceAll]);
edit1.Text:=StringReplace(edit1.Text,'.','',[rfReplaceAll]);
تسلم ايادي الجميع مشكورين على الرد والاهتمام
لدي سؤال آخر سأطرحه لاحقا ان شاء الله