delphi逐行读取richedit里面的内容,并判断
发布网友
发布时间：2022-12-16 17:19
共1个回答
热心网友
时间：2024-11-22 04:09
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));这个的意思？
