حول بناء محرك بحث بـ استخدام دلفي

[iTechnical]

محاولة ناجحه ولله الحمد لقراءة محتوى ملف نصي (سطر سطر String)

كود :

procedure TForm1.Button2Click(Sender: TObject); begin Form1.Close end; procedure TForm1.Button1Click(Sender: TObject); var myFile: textFile; text:string; begin assignFile(myFile, '1.txt'); reset (myFile); repeat readln(myFile,text); Memo1.Lines.add(text); until eof(myFile); closeFile(myFile); end;