Zeilen im RichEdit Nummerieren

[manfred07]

Hi Delphigemeinde,

brauche mal HILFE von euch!
Weiß nicht wie ich das machen soll!!!!
Möchte den Text in Richedit durchnummerieren. Ich hatte mir das so vorgestellt.

Bei Button1 = Nummerieren

N0001 Text...........
N0002 Text...........
'' ''
N0010 Text...........

usw.


Bei Button2 = Nummerierung entfernen

Text..........
Text..........

usw.


Danke im voraus Gruß

Manfred

[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

[manfred07]

Hi Blackheart,

Danke schön!
Funktioniert einwandfrei.

Gruß Manfred

[manfred07]

Hi Blackheart und Delphigemeinde,

Danke nochmal für deine Hilfe.
Ich hätte noch eine Frage dazu!
Wie bekomme ich es hin das ich in 5 Schritten zählen kann.

N0005
N0010
N0015


Würde dir/euch sehr Dankbar sein wenn du/ihr mir da noch mal Helfen könntest/könnt.

Gruß Manfred

[Hobby-Programmierer]

Moin ...,

Zitat von manfred07:

Wie bekomme ich es hin das ich in 5 Schritten zählen kann.

N0005
N0010
N0015

einfach Blackhearts Code anpassen (Schleifen variable *5)

Delphi-Quellcode:

for i := 0 to Sl.Count - 1 do
  RichEdit1.Lines.add('N'+ Format('%.04d',[(i+1) *5]) + ' ' + Sl[i]);

oder aber

Delphi-Quellcode:

  with RichEdit1 do begin
  for i:= 0 to Lines.Count -1 do
    Lines.Strings[i]:= Format('N%.04d',[(i+1)*5]) + ' '+ Lines.Strings[i];
end;

LG Mario

[manfred07]

Hi Mario,

hatte es auch schon probiert mit *5, aber ich hatte keine klammer
benutzt....

RichEdit1.Lines.add('N'+ Format('%.04d',[i+1*5]) + ' ' + Sl[i]);

Vielen Dank für deine Hilfe

Gruß Manfred