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

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

zusammenfalten · markieren

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

Hi Blackheart,

Danke schön!
Funktioniert einwandfrei.

Gruß Manfred

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

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)

markieren

Delphi-Quellcode:

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

oder aber

markieren

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

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