السلام عليكم
كيف أجعل Memo يقبل فقط ارقام هواتف بهذا الشكل ؟
للتوضيح ابرمج في برنامج يقسم ارقام هواتف يجلب قائمة ارقام من ميمو 1 و يقسمها الى 20 في ميمو 2
و الشكل المطلوب لازم ميمو1 و ميمو2 يقبل هكذا الارقام
+56464789789
اي الرقم و جنبه علامة +
و جزاكم الله خيرا و بارك الله فيكم
للتوضيح : عملية الجلب و الفتح برمجتها
باقي كيف اجعله يقبل ارقام فقط مع علامة +
السلام عليكم
اخي على الاقل ارفق مثالك او ضع لنا تجربتك ليقوم الاعضاء بتصحيحها... يجب عليك ان تعمل حلقة تكرارية لقراءة كل اسطر Memo و داخل خلقة تعمل شرط بسيط ...ادا كان طول السطر (Length) يساوي مثلا عدد ارقام الهاتف 10 و مع حرف '+' ادا ادا كان طول السطر يساوي 11 اعمل شرط اخر داخل هدا الشرط الدي بدوره يتحقق ادا كان الحرف الاول من كل سطر هو '+' ادا تحقق الشرط اعمل شرط اخر ادا كان باقي الحروف integer ..بالتوفيق.
(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 ;
(11-05-2018, 06:31 PM)AX302 كتب : [ -> ]السلام عليكم
مثال بسيط
بارك لله فيك اخي على المرفق و لكن للاسف لم يعمل معي و الصورة توضح , المشكل فين طلع معي
يبالي السبب نسخة ؟ علما استعمل دلفي 7
و ربي يحفظك على كل مداخلاتك اخي
تم تعديل المثال لكي يعمل على دلفي 7
فعلا اخي الغالي اشتغل و الله لا اعرف كيف اشكرك جزاك الله عنا كل الخير و الله يفتحها عليك دنيا و اخرة كما فتحتها علينا
ربي يكرمك بالخير و ينفع بيك , امين
غير السطر
PHP كود :
if Memo1.Lines[i].Chars[0] = '+' then
إلى
PHP كود :
if Memo1.Lines[i][1] = '+' then
(11-05-2018, 08:35 PM)Ben.Ja كتب : [ -> ]غير السطر
PHP كود :
if Memo1.Lines[i].Chars[0] = '+' then
PHP كود :
if Memo1.Lines[i][1] = '+' then
الله يرضى عليك و الله يفتحها عليك اخي
الاخ الكريم ارفق ملف تصحيحي
و جزاك لله خيرا على نيتك و ربي يوفقك لما تتمنى
شكرا جزيلا لك مرة ثانية