11-05-2018, 03:33 PM
السلام عليكم
اخي على الاقل ارفق مثالك او ضع لنا تجربتك ليقوم الاعضاء بتصحيحها... يجب عليك ان تعمل حلقة تكرارية لقراءة كل اسطر Memo و داخل خلقة تعمل شرط بسيط ...ادا كان طول السطر (Length) يساوي مثلا عدد ارقام الهاتف 10 و مع حرف '+' ادا ادا كان طول السطر يساوي 11 اعمل شرط اخر داخل هدا الشرط الدي بدوره يتحقق ادا كان الحرف الاول من كل سطر هو '+' ادا تحقق الشرط اعمل شرط اخر ادا كان باقي الحروف integer ..بالتوفيق.
اخي على الاقل ارفق مثالك او ضع لنا تجربتك ليقوم الاعضاء بتصحيحها... يجب عليك ان تعمل حلقة تكرارية لقراءة كل اسطر Memo و داخل خلقة تعمل شرط بسيط ...ادا كان طول السطر (Length) يساوي مثلا عدد ارقام الهاتف 10 و مع حرف '+' ادا ادا كان طول السطر يساوي 11 اعمل شرط اخر داخل هدا الشرط الدي بدوره يتحقق ادا كان الحرف الاول من كل سطر هو '+' ادا تحقق الشرط اعمل شرط اخر ادا كان باقي الحروف integer ..بالتوفيق.
:: من يملك المعلومة يملك الميدان ::
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)