查找字符串在MEMO的绝对行,函数该怎么写?

Question

memo1.text中有以下内容：
1行 1
2行 2
3行 44455
4行 44
5行 445445
6行 5比如要查找字符串“44”在哪一行，而不是第3、5行字符串中的“44”，如果找到匹配内容则返回行数，否则返回-1，
请问这个函数该怎么写？请多多指教！我需要最快速的查找方法。

Answer 1

function GetLineNum(s:string):integer;
var
i:integer;
begin
result:=-1;
for i:=0 to form1.Memo1.Lines.Count-1 do
   if form1.Memo1.Lines[i]=s then
      begin
      result:=i+1;
      break;
      end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(GetLineNum('44')));
end;

Answer 2

I := Memo1.Lines.IndexOf('44');不知道数量大到那个级别？上千行？上万行？