Question

delphi的memo控件，如何查找到某个字符（字符串），并提取该行的内容？

Answer 1

memo控件是一种行编辑控件，只要你不按换行键，memo中无论你写了多少字符，都只作为一行看待。
要全文查找某个字符串的第一个位置，用pos('',memo.text),该函数返回的值是一个整数；也就是字符串第一个字符在全文中的序号。
要查找某个字符串在已知行的位置用：
pos('要查的字符串',memo.lines.strings[行号];行号是一个从零开始的正整数。
授之以渔,比授之以鱼要好

追问

谢谢你的解答，最后一句说得很好！呵呵，谢谢！

Answer 2

function TForm1.getString(str: string):String;
var
i:integer;
tmpStr:string;
begin
i:=0;
while (i<memo1.Lines.Count) do
begin
tmpStr:=memo1.Lines.Strings[i];
if pos(str,tmpStr)>0 then
begin
result:= tmpStr;
exit;
end;
inc(i);
end;
Result:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(getString('3456'));
end;

用我写的函数吧 getString 如果函数返回为空 那就是没有找到