+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسار عن الجملة المشروطه if (/showthread.php?tid=3016)
استفسار عن الجملة المشروطه if - ELARAPY - 22-04-2011
b.m.abdelaziz كتب :سامحني هل هذا يعني انك بدأت برمجه من خلال القراءه والمحاوله وبدون معلم او شخص يساعدك ؟
اشتريت (بعد بحث كثير) كتاب pascal وحاولت قراءته صدقني لم افهم شيئ حينها
ان كان الامر كذلك فإنها بشرا لي ان شاء الله .
استفسار عن الجملة المشروطه if - محمد عبد العزيز - 22-04-2011
إقتباس : بدأت برمجه من خلال القراءه والمحاوله وبدون معلم او شخص يساعدك ؟نعم، ولم تكن حينها internet
نعود للموضوع، ما المشكل حتى الان ؟
استفسار عن الجملة المشروطه if - ELARAPY - 23-04-2011
أنحلت المشكل والحمد لله بفضل الله و حسن توجيهاتكم
شكرا لكم على حسن المتابعه
استفسار عن الجملة المشروطه if - ELARAPY - 24-04-2011
معذرة تواجهني مشكله بسيطه
اود كتابه شرط اذا كان Edit1.Text=' جزء من نص'
مثال الشرط هو لو النص يحتوي على كلمه Delphi لا تفعل المفتاح
طبعا اذا كان النص Hello Delphi او Wellcome Delphi او اي نص يحوي كلمه Delphi يتم تنفيذ الشرط
ولو كانت Delphi في اول النص او منتصفه او اخره
كيف يتم ذلك ؟
استفسار عن الجملة المشروطه if - محمد عبد العزيز - 24-04-2011
استخدم Pos ترجع موضع نص بنص اخر راجع الHelp حولها
كود :
Button1.Enabled:=True;
if pos('Delphi',Edit1.Text)<>0 then Button1.Enabled:=False;استفسار عن الجملة المشروطه if - ELARAPY - 24-04-2011
تم بنجاح 100%
بارك الله فيك اعطني نبذه عن معنى Pos<> 0
وان كانا موجودين في شرح باسكال سأراجع الامر
الف شكر
استفسار عن الجملة المشروطه if - محمد عبد العزيز - 24-04-2011
pos ترجع موضع كلمة/نص/حروف ضمن سلسلة نصية String
فان لم تجدها ترجع صفر
لتفهم ضف زر Button اضغط عليه مرتين واكتب
كود :
showmessage( inttostr(pos('ELARAPY','delphi4arab') ) );كود :
showmessage( inttostr(pos('arab','delphi4arab') ) );ثم جرب
كود :
showmessage( inttostr( pos('delphi','delphi4arab') ) );استفسار عن الجملة المشروطه if - ELARAPY - 24-04-2011
متهى الجمال والله
المعلومه وصلت لي بطريقه سليمه وسلسه والحمد لله
ما فهمته هو
Pos امر كأنه يعمل مقارنه بين نصين النص الاول بين علمتين التنصيص وهو المطلوب والنص الثاني بين علمتين التنصين هو الجمله كلها
فان وجد النص الاول ضمن النص الثاني في اي مكان يحسب مكانه بقيمه البت bit ويخبر بمكانه
استفسار عن الجملة المشروطه if - kachwahed - 24-04-2011
بطريقة أبسط:
PHP كود :
AnsiContainsStr(AText, ASubText)
AnsiContainsText(AText, ASubText)
أو مباشرة استخدام:
PHP كود :
function AnsiPos(const Substr, S: string): Integer;
بالتوفيق.
استفسار عن الجملة المشروطه if - ELARAPY - 25-04-2011
بقى شئ ينقصني في هذا الموضوع
كيف استخدم اكثر من نص
بمعنى في هذا المثال
كود :
if pos('Delphi',Edit1.Text)<>0 then Button1.Enabled:=False;الجزء المطلوب هو Delphi
كيف اكتب كلمة اخرى مع Delphi
على سبيل أستخدم POS للجزئين 'DELPIH','delphi'
علما اني حاولت اليوم اكثر من ساعتين ولم اصل لحل
كتبتهم في جمله واحده مع تغير في الفاصله وعلامات التنصيص والحاضنتين
وجربتهم على جملتين مثل موضوع OR
ولكن لا جدوى