+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ (/showthread.php?tid=9381)
الصفحات:
1
2
كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - fhol - 10-05-2018
السلام عليكم
كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟
للتوضيح ابرمج في برنامج يقسم ارقام هواتف يجلب قائمة ارقام من ميمو 1 و يقسمها الى 20 في ميمو 2
و الشكل المطلوب لازم ميمو1 و ميمو2 يقبل هكذا الارقام
+56464789789
اي الرقم و جنبه علامة +
و جزاكم الله خيرا و بارك الله فيكم
RE: كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - fhol - 11-05-2018
للتوضيح : عملية الجلب و الفتح برمجتها
باقي كيف اجعله يقبل ارقام فقط مع علامة +
RE: كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - AX302 - 11-05-2018
السلام عليكم
اخي على الاقل ارفق مثالك او ضع لنا تجربتك ليقوم الاعضاء بتصحيحها... يجب عليك ان تعمل حلقة تكرارية لقراءة كل اسطر Memo و داخل خلقة تعمل شرط بسيط ...ادا كان طول السطر (Length) يساوي مثلا عدد ارقام الهاتف 10 و مع حرف '+' ادا ادا كان طول السطر يساوي 11 اعمل شرط اخر داخل هدا الشرط الدي بدوره يتحقق ادا كان الحرف الاول من كل سطر هو '+' ادا تحقق الشرط اعمل شرط اخر ادا كان باقي الحروف integer ..بالتوفيق.
RE: كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - fhol - 11-05-2018
(11-05-2018, 03:33 PM)AX302 كتب : السلام عليكم
اخي على الاقل ارفق مثالك او ضع لنا تجربتك ليقوم الاعضاء بتصحيحها... يجب عليك ان تعمل حلقة تكرارية لقراءة كل اسطر Memo و داخل خلقة تعمل شرط بسيط ...ادا كان طول السطر (Length) يساوي مثلا عدد ارقام الهاتف 10 و مع حرف '+' ادا ادا كان طول السطر يساوي 11 اعمل شرط اخر داخل هدا الشرط الدي بدوره يتحقق ادا كان الحرف الاول من كل سطر هو '+' ادا تحقق الشرط اعمل شرط اخر ادا كان باقي الحروف integer ..بالتوفيق.
حياك لله اخي العزيز و هذا هو مثال الي عملته بحيث يقوم بتقسيم قائمة أرقام الهواتف الى كل 1000 رقم
المطلوب اخي العزيز لم اعرف كيف اضع شروط تحقق يستلزم ادخال رقم هاتف فقط و امامها علامة +
و بارك لله فيكم
PHP كود :
var
i:integer ;
begin
i:=j ;
if i <=memo1.Lines.Count-1 then begin
memo2.clear ;
for j:=j to j+999 do
begin
Memo2.Lines.Add(Memo1.Lines[j]);
end ;
end ;
RE: كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - AX302 - 11-05-2018
السلام عليكم
مثال بسيط
RE: كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - fhol - 11-05-2018
(11-05-2018, 06:31 PM)AX302 كتب : السلام عليكم
مثال بسيط
بارك لله فيك اخي على المرفق و لكن للاسف لم يعمل معي و الصورة توضح , المشكل فين طلع معي
يبالي السبب نسخة ؟ علما استعمل دلفي 7
و ربي يحفظك على كل مداخلاتك اخي
RE: كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - AX302 - 11-05-2018
تم تعديل المثال لكي يعمل على دلفي 7
RE: كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - fhol - 11-05-2018
فعلا اخي الغالي اشتغل و الله لا اعرف كيف اشكرك جزاك الله عنا كل الخير و الله يفتحها عليك دنيا و اخرة كما فتحتها علينا
ربي يكرمك بالخير و ينفع بيك , امين
RE: كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - Ben.Ja - 11-05-2018
غير السطر
PHP كود :
if Memo1.Lines[i].Chars[0] = '+' then
PHP كود :
if Memo1.Lines[i][1] = '+' then
RE: كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ - fhol - 11-05-2018
(11-05-2018, 08:35 PM)Ben.Ja كتب : غير السطر
إلىPHP كود :if Memo1.Lines[i].Chars[0] = '+' then
PHP كود :if Memo1.Lines[i][1] = '+' then
الله يرضى عليك و الله يفتحها عليك اخي
الاخ الكريم ارفق ملف تصحيحي
و جزاك لله خيرا على نيتك و ربي يوفقك لما تتمنى
شكرا جزيلا لك مرة ثانية