Question

delphi逐行读取richedit里面的内容，并判断

richedit内容如下
ABCDE 123
BCDEF 234
ABCDE 888888
CDEFG 234
...

要求：读取第一行，判断是否有ABC，如果有复制空格后面的内容一直到行尾的内容到memo里面，如果没有就判断下一行 一直到文件尾

如上面的内容，正确应该将123和888888复制到memo里面，格式如下
123
888888

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

var i:integer;
s:string;
begin
for i := 0 to richedit.lines.count - 1 do
begin
s := richedit.lines[i];
if pos('ABC',s)>0 then
begin
if pos(' ',trim(s))>0 then
memo.lines.add(copy(s,pos(' ',trim(s)),length(trim(s))-pos('ABC',trim(s))+1));
end;
end;
end;

追问

大侠，能不能解释下if pos(' ',trim(s))>0 then
memo.lines.add(copy(s,pos(' ',trim(s)),length(trim(s))-pos('ABC',trim(s))+1));这个的意思？