08-09-2011, 09:43 PM
كود :
var
posm, posl, i, j: integer;
trouv: boolean;
begin
trouv := false;
for i := 0 to Memo1.lines.count do // هنا تحسب عدد الاسطر
begin { posl = search in line }
posl := pos(Edit1.text, Memo1.lines[i]);
{ edit1.text تعبر عن الكلمة المراد البحث عنها في السطر المحدد ب memo1.lines[i] واذا وجدها فأنه يرجع قيمة عددية ثمتل رقم الحرف الاول من الكلمة الموجودة في السطر على ان يكون الترقيم من العدد 1 }
if posl <> 0 then { طبعا ضروري الاختبار في حالة وجدت الكلمة }
begin { posl = يحدد اول الكلمة }
// posm := 0; { posm = }
// for j := 0 to i - 1 do
//
// posm := posl + length(Memo1.lines[j]);
//
// posm := posm + (i * 2);
// posm := posm + posl - 1;
Memo1.setfocus; // يحدد بالتظليل
Memo1.selstart := posl -1 ;
Memo1.sellength := length(Edit1.text);
trouv := true; (* Switch ON *)
messagebeep(0);
break; // go out from loop
end;
end;
if trouv = false then
showmessage('word not found');
messagebeep(0);
end;