كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟

[fhol]

السلام عليكم 

كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟ 

للتوضيح ابرمج في برنامج يقسم ارقام هواتف يجلب قائمة ارقام من ميمو 1 و يقسمها الى 20 في ميمو 2 

و الشكل المطلوب لازم ميمو1 و ميمو2 يقبل هكذا الارقام 

+56464789789

اي الرقم و جنبه علامة + 

و جزاكم الله خيرا و بارك الله فيكم 

[fhol]

للتوضيح : عملية الجلب و الفتح برمجتها

باقي كيف اجعله يقبل ارقام فقط مع علامة +

[AX302]

السلام عليكم
اخي على الاقل ارفق مثالك او ضع لنا تجربتك ليقوم الاعضاء بتصحيحها... يجب عليك ان تعمل حلقة تكرارية لقراءة كل اسطر Memo و داخل خلقة تعمل شرط بسيط ...ادا كان طول السطر (Length) يساوي مثلا عدد ارقام الهاتف 10 و مع حرف '+' ادا ادا كان طول السطر يساوي 11 اعمل شرط اخر داخل هدا الشرط الدي بدوره يتحقق ادا كان الحرف الاول من كل سطر هو '+' ادا تحقق الشرط اعمل شرط اخر ادا كان باقي الحروف integer ..بالتوفيق.

[fhol]

السلام عليكم
اخي على الاقل ارفق مثالك او ضع لنا تجربتك ليقوم الاعضاء بتصحيحها... يجب عليك ان تعمل حلقة تكرارية لقراءة كل اسطر 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 ; 


[AX302]

السلام عليكم
مثال بسيط

[fhol]

السلام عليكم
مثال بسيط

بارك لله فيك اخي على المرفق و لكن للاسف لم يعمل معي و الصورة توضح , المشكل فين طلع معي 

يبالي السبب نسخة ؟ علما استعمل دلفي 7 

و ربي يحفظك على كل مداخلاتك اخي

[AX302]

تم تعديل المثال لكي يعمل على دلفي 7

[fhol]

فعلا اخي الغالي اشتغل و الله لا اعرف كيف اشكرك جزاك الله عنا كل الخير و الله يفتحها عليك دنيا و اخرة كما فتحتها علينا
ربي يكرمك بالخير و ينفع بيك , امين

[Ben.Ja]

غير السطر

PHP كود :

if Memo1.Lines[i].Chars[0] = '+' then 


إلى

PHP كود :

if Memo1.Lines[i][1] = '+' then 


[fhol]

غير السطر

PHP كود :

if Memo1.Lines[i].Chars[0] = '+' then 


إلى

PHP كود :

if Memo1.Lines[i][1] = '+' then 


الله يرضى عليك و الله يفتحها عليك اخي 
الاخ الكريم ارفق ملف تصحيحي 
و جزاك لله خيرا على نيتك و ربي يوفقك لما تتمنى 
شكرا جزيلا لك مرة ثانية