字符串的问题.(30分)

一个文本文件中有有N行字符串...如文件名001.txt
在Memo也有N行字符串...
如何查找一样的字符串...

var
001txt:textfile;
tempstr:string;
i:integer;
begin
assignfile(001txt,'001.txt');
reset(001txt);//只读打开文件
while not eof(001txt) then
begin
tempstr:=readln(001txt,tempstr);
for i:=0 to memo1.lines.count-1 do
begin
if tempstr=memo1.Lines.Strings then
//你的处理代码
end;
end;

谢谢！
我看懂了.在试.