16-02-2009, 09:59 PM
الدالة MatchText موجودة فى الوحدة StrUtils . لم اجدها فى الدالفى 7 . اطلعى على كود هذه الدالة و حاولى التعديل عليه ( اخذ الاندكس عندما يجد الكلمة ) لقراءت السطر السابق والتالي .
+
لم اجرب الدلة . لاكن ما فائدتها بما انها موجودة ضمن عدة حلقات .. . + يمكن الاستغناء عن بعض المتغيرات .
+
لم اجرب الدلة . لاكن ما فائدتها بما انها موجودة ضمن عدة حلقات .. . + يمكن الاستغناء عن بعض المتغيرات .
PHP كود :
Memo1.Clear;
if MatchText(Edit1.Text,WArray) then
Memo1.Lines.Add(Edit1.Text)
else ShowMessage('Not Found');