本文整理自网络,侵删。
用正则表达式在每行开头插入行号需要匹配每一行,可用规则'(^\w+[^.])',然后对于每个匹配,插入行号
代码为:
var
Rgr: TRegExpr;
i: Integer;
begin
i := 0;
Memo1.Lines.Clear;
Memo1.Lines.LoadFromFile('d:\a1.txt');
Memo2.Lines.Clear;
Rgr := TRegExpr.Create;
Rgr.ModifierM := True;
Rgr.Expression := '(^\w+[^.])';
try
if Rgr.Exec(Memo1.Text) then
repeat
i := i + 1;
memo2.Lines.Add(Format('%d. ', [i]) + Rgr.Match[1]);
until not Rgr.ExecNext;
finally
Rgr.Free;
end;
end;
d:\a1.txt文件为
AA
BB
CC
DD
EE
FF
相关阅读 >>
Delphi stringtowidestring widestringtostring
更多相关阅读请进入《Delphi》频道 >>