本文整理自网络，侵删。
用正则表达式在每行开头插入行号需要匹配每一行，可用规则'(^\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 [函数] unicode 检查字符串是否含中文字
winapi 字符及字符串函数(7): ischarlower - 是否是个小写字母
更多相关阅读请进入《Delphi》频道 >>
