Zeilen im RichEdit Nummerieren

[Blackheart]

Das Nummerieren kriegst Du mit TStringList und einer Schleife ziehmlich einfach hin, das entfernen wird schwieriger.

Edit: Hatte mal etwas Zeit, vieleicht gehts auch einfacher

Delphi-Quellcode:

procedure TForm1.NummerierenClick(Sender: TObject);
var
 Sl: TStrings;
 i: integer;
begin
  Sl := TStringList.Create;
  try
  Sl.Text := RichEdit1.Text;
  RichEdit1.Clear;
  for i := 0 to Sl.Count - 1 do
  RichEdit1.Lines.add('N'+ Format('%.04d',[i+1]) + ' ' + Sl[i]);
  finally
  sl.Free;
end;
end;

procedure TForm1.EntfernenClick(Sender: TObject);
var
 i:Integer;
begin
  for i := 0 to RichEdit1.Lines.Count-1 do
  begin
     RichEdit1.Text:=StringReplace(RichEdit1.Text,'N'+ Format('%.04d',[i+1]) + ' ' ,'',[rfReplaceAll, rfIgnoreCase]);
  end;
end;

Alle Rechte gesichert