22-04-2011, 04:38 PM
b.m.abdelaziz كتب :سامحني هل هذا يعني انك بدأت برمجه من خلال القراءه والمحاوله وبدون معلم او شخص يساعدك ؟
اشتريت (بعد بحث كثير) كتاب pascal وحاولت قراءته صدقني لم افهم شيئ حينها
ان كان الامر كذلك فإنها بشرا لي ان شاء الله .
22-04-2011, 04:38 PM
22-04-2011, 04:55 PM
إقتباس : بدأت برمجه من خلال القراءه والمحاوله وبدون معلم او شخص يساعدك ؟نعم، ولم تكن حينها internet
نعود للموضوع، ما المشكل حتى الان ؟
23-04-2011, 03:07 PM
أنحلت المشكل والحمد لله بفضل الله و حسن توجيهاتكم
شكرا لكم على حسن المتابعه
شكرا لكم على حسن المتابعه
24-04-2011, 07:27 AM
معذرة تواجهني مشكله بسيطه
اود كتابه شرط اذا كان Edit1.Text=' جزء من نص'
مثال الشرط هو لو النص يحتوي على كلمه Delphi لا تفعل المفتاح
طبعا اذا كان النص Hello Delphi او Wellcome Delphi او اي نص يحوي كلمه Delphi يتم تنفيذ الشرط
ولو كانت Delphi في اول النص او منتصفه او اخره
كيف يتم ذلك ؟
اود كتابه شرط اذا كان Edit1.Text=' جزء من نص'
مثال الشرط هو لو النص يحتوي على كلمه Delphi لا تفعل المفتاح
طبعا اذا كان النص Hello Delphi او Wellcome Delphi او اي نص يحوي كلمه Delphi يتم تنفيذ الشرط
ولو كانت Delphi في اول النص او منتصفه او اخره
كيف يتم ذلك ؟
24-04-2011, 12:25 PM
استخدم Pos ترجع موضع نص بنص اخر راجع الHelp حولها
كود :
Button1.Enabled:=True;
if pos('Delphi',Edit1.Text)<>0 then Button1.Enabled:=False;24-04-2011, 01:11 PM
تم بنجاح 100%
بارك الله فيك اعطني نبذه عن معنى Pos<> 0
وان كانا موجودين في شرح باسكال سأراجع الامر
الف شكر
بارك الله فيك اعطني نبذه عن معنى Pos<> 0
وان كانا موجودين في شرح باسكال سأراجع الامر
الف شكر
24-04-2011, 01:32 PM
pos ترجع موضع كلمة/نص/حروف ضمن سلسلة نصية String
فان لم تجدها ترجع صفر
لتفهم ضف زر Button اضغط عليه مرتين واكتب
نفذ ولاحظ النتيجة، ثم غيرها الىنفس الشيئ نفظ ولاحظ
ثم جرب
فان لم تجدها ترجع صفر
لتفهم ضف زر Button اضغط عليه مرتين واكتب
كود :
showmessage( inttostr(pos('ELARAPY','delphi4arab') ) );كود :
showmessage( inttostr(pos('arab','delphi4arab') ) );ثم جرب
كود :
showmessage( inttostr( pos('delphi','delphi4arab') ) );24-04-2011, 02:42 PM
متهى الجمال والله
المعلومه وصلت لي بطريقه سليمه وسلسه والحمد لله
ما فهمته هو
Pos امر كأنه يعمل مقارنه بين نصين النص الاول بين علمتين التنصيص وهو المطلوب والنص الثاني بين علمتين التنصين هو الجمله كلها
فان وجد النص الاول ضمن النص الثاني في اي مكان يحسب مكانه بقيمه البت bit ويخبر بمكانه
المعلومه وصلت لي بطريقه سليمه وسلسه والحمد لله
ما فهمته هو
Pos امر كأنه يعمل مقارنه بين نصين النص الاول بين علمتين التنصيص وهو المطلوب والنص الثاني بين علمتين التنصين هو الجمله كلها
فان وجد النص الاول ضمن النص الثاني في اي مكان يحسب مكانه بقيمه البت bit ويخبر بمكانه
24-04-2011, 04:26 PM
بطريقة أبسط:
مع إدراج المكتبة StrUtils
أو مباشرة استخدام:
فقط من المكتبة SysUtils
بالتوفيق.
PHP كود :
AnsiContainsStr(AText, ASubText)
AnsiContainsText(AText, ASubText)
أو مباشرة استخدام:
PHP كود :
function AnsiPos(const Substr, S: string): Integer;
بالتوفيق.
25-04-2011, 08:07 PM
بقى شئ ينقصني في هذا الموضوع
كيف استخدم اكثر من نص
بمعنى في هذا المثال
الجزء المطلوب هو Delphi
كيف اكتب كلمة اخرى مع Delphi
على سبيل أستخدم POS للجزئين 'DELPIH','delphi'
علما اني حاولت اليوم اكثر من ساعتين ولم اصل لحل
كتبتهم في جمله واحده مع تغير في الفاصله وعلامات التنصيص والحاضنتين
وجربتهم على جملتين مثل موضوع OR
ولكن لا جدوى
كيف استخدم اكثر من نص
بمعنى في هذا المثال
كود :
if pos('Delphi',Edit1.Text)<>0 then Button1.Enabled:=False;الجزء المطلوب هو Delphi
كيف اكتب كلمة اخرى مع Delphi
على سبيل أستخدم POS للجزئين 'DELPIH','delphi'
علما اني حاولت اليوم اكثر من ساعتين ولم اصل لحل
كتبتهم في جمله واحده مع تغير في الفاصله وعلامات التنصيص والحاضنتين
وجربتهم على جملتين مثل موضوع OR
ولكن لا جدوى