这段语句谁能解释一下,多谢了 if (bock = 0) and (MLen < > 0) then begin Dec(BP, MLen); Memo := ''; for m := 1 to MLen do begin if (BP^< > #13) and (BP^< > #10) and (BP^< > #32) then Memo := Memo + BP^; //去掉回车换行、空格带来的影响 Inc(bp); end;
if OP then begin memo1.Lines.Add(TiTle + memo); OP := not (OP); end else if Pos(Memo, Signal) < > 0 then begin TiTle := Memo; OP := not (OP); end; end;
begin
Dec(BP, MLen);
Memo := '';
for m := 1 to MLen do
begin
if (BP^< > #13) and (BP^< > #10) and (BP^< > #32) then Memo := Memo + BP^; //去掉回车换行、空格带来的影响
Inc(bp);
end;
if OP then
begin
memo1.Lines.Add(TiTle + memo);
OP := not (OP);
end
else
if Pos(Memo, Signal) < > 0 then
begin
TiTle := Memo;
OP := not (OP);
end;
end;
MLen := 0;
inc(bock);
end;