+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم ازالة الفواصل من الارقام (/showthread.php?tid=8729)
كيف يتم ازالة الفواصل من الارقام - Shaieb - 21-06-2017
السلام عليكم
اخواني ارغب في الحصول على كود ازالة الفواصل من الارقام
مثلا ازالة الفواصل من الرقم 1,000,000.000 بحيث يصبح الرقم 1000000000 بدون فواصل
على ان يكون ذلك في Edit1.text field في دلفي 7
ولكم من جزيل الشكر
Shaieb
RE: كيف يتم ازالة الفواصل من الارقام - bassem_43 - 22-06-2017
و عليكم السلام
تفضل هده الدالة تقوم بالعمل
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);
بالتوفيق
RE: كيف يتم ازالة الفواصل من الارقام - Shaieb - 22-06-2017
مشكور جدا اخي الكريم
على الرد واتمنى لك مزيد من التقدم
خيركم من تعلم علما نافعا وعلمه
RE: كيف يتم ازالة الفواصل من الارقام - Ben.Ja - 24-06-2017
يمكن اضافة هذا لحدث onclick لButton تضعه
كود :
edit1.Text:=StringReplace(edit1.Text,',','',[rfReplaceAll]);
edit1.Text:=StringReplace(edit1.Text,'.','',[rfReplaceAll]);RE: كيف يتم ازالة الفواصل من الارقام - Shaieb - 24-06-2017
تسلم ايادي الجميع مشكورين على الرد والاهتمام
لدي سؤال آخر سأطرحه لاحقا ان شاء الله