请问如何在memo字段中查找字符窜？？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
    Pos1,Pos2,i : integer;
    Str        : string;
    Flag        : Boolean;
begin
    for i:=0 to Memo1.Lines.Count-1 do
    begin
        Str:=Memo1.Lines[i];
        Flag:=True;
        while Flag do
        begin
            Pos1:=Pos('要查找的字符',Str);
        if (Pos1<>0) then
            begin
                //DO
            end
end；
            

Answer 1

我指的是数据库的memo字段。。
能否直接在内查找？

Answer 2

用Query
Select * From 库名 where MemoField Like '%待查值%'
用Table
在OnFilterRecord中
begin
  if Pos('待查值',Table1.FieldByName('MemoField').AsString)<>0 then
    Accept:=True;
end;

Answer 3

sundayboys(sunboy)的回答有一个漏洞，如果待查值在某一行的结尾和下一行的开头各有一部分...