用正则表达式在每行开头插入行号需要匹配每一行，可用规则'(^\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