المشاركات : 367
المواضيع 54
:
: 506
الإنتساب : Jan 2011
b.m.abdelaziz كتب :
اشتريت (بعد بحث كثير) كتاب pascal وحاولت قراءته صدقني لم افهم شيئ حينها
سامحني هل هذا يعني انك بدأت برمجه من خلال القراءه والمحاوله وبدون معلم او شخص يساعدك ؟
ان كان الامر كذلك فإنها بشرا لي ان شاء الله .
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
إقتباس : بدأت برمجه من خلال القراءه والمحاوله وبدون معلم او شخص يساعدك ؟
نعم، ولم تكن حينها internet
نعود للموضوع، ما المشكل حتى الان ؟
المشاركات : 367
المواضيع 54
:
: 506
الإنتساب : Jan 2011
أنحلت المشكل والحمد لله بفضل الله و حسن توجيهاتكم
شكرا لكم على حسن المتابعه
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
المشاركات : 367
المواضيع 54
:
: 506
الإنتساب : Jan 2011
معذرة تواجهني مشكله بسيطه
اود كتابه شرط اذا كان Edit1.Text=' جزء من نص'
مثال الشرط هو لو النص يحتوي على كلمه Delphi لا تفعل المفتاح
طبعا اذا كان النص Hello Delphi او Wellcome Delphi او اي نص يحوي كلمه Delphi يتم تنفيذ الشرط
ولو كانت Delphi في اول النص او منتصفه او اخره
كيف يتم ذلك ؟
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
استخدم Pos ترجع موضع نص بنص اخر راجع الHelp حولها
كود :
Button1.Enabled:=True;
if pos('Delphi',Edit1.Text)<>0 then Button1.Enabled:=False;
المشاركات : 367
المواضيع 54
:
: 506
الإنتساب : Jan 2011
تم بنجاح 100%
بارك الله فيك اعطني نبذه عن معنى Pos<> 0
وان كانا موجودين في شرح باسكال سأراجع الامر
الف شكر
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
pos ترجع موضع كلمة/نص/حروف ضمن سلسلة نصية String
فان لم تجدها ترجع صفر
لتفهم ضف زر Button اضغط عليه مرتين واكتب
كود :
showmessage( inttostr(pos('ELARAPY','delphi4arab') ) );
كود :
showmessage( inttostr(pos('arab','delphi4arab') ) );
ثم جرب
كود :
showmessage( inttostr( pos('delphi','delphi4arab') ) );
المشاركات : 367
المواضيع 54
:
: 506
الإنتساب : Jan 2011
متهى الجمال والله
المعلومه وصلت لي بطريقه سليمه وسلسه والحمد لله
ما فهمته هو
Pos امر كأنه يعمل مقارنه بين نصين النص الاول بين علمتين التنصيص وهو المطلوب والنص الثاني بين علمتين التنصين هو الجمله كلها
فان وجد النص الاول ضمن النص الثاني في اي مكان يحسب مكانه بقيمه البت bit ويخبر بمكانه
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
بطريقة أبسط:
PHP كود :
AnsiContainsStr(AText, ASubText)
AnsiContainsText(AText, ASubText)
أو مباشرة استخدام:
PHP كود :
function AnsiPos(const Substr, S: string): Integer;
بالتوفيق.
المشاركات : 367
المواضيع 54
:
: 506
الإنتساب : Jan 2011
25-04-2011, 08:07 PM
(آخر تعديل لهذه المشاركة: 25-04-2011, 08:28 PM بواسطة kachwahed.)
بقى شئ ينقصني في هذا الموضوع
كيف استخدم اكثر من نص
بمعنى في هذا المثال
كود :
if pos('Delphi',Edit1.Text)<>0 then Button1.Enabled:=False;
الجزء المطلوب هو Delphi
كيف اكتب كلمة اخرى مع Delphi
على سبيل أستخدم POS للجزئين 'DELPIH','delphi'
علما اني حاولت اليوم اكثر من ساعتين ولم اصل لحل
كتبتهم في جمله واحده مع تغير في الفاصله وعلامات التنصيص والحاضنتين
وجربتهم على جملتين مثل موضوع OR
ولكن لا جدوى
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
