Neue hinzugefügte Zeile in Textdatei jeweils neu nummerieren

[Sharky]

Hai Sunny123,

habe mal schnell etwas gebastet:

Delphi-Quellcode:

procedure NeueZeilennummern (fname : String);
var
  myStringList : TStringList;
  delimiter : Char;
  line : String;
  delpos : Integer;
  ndx      : Integer;
begin
  delimiter := '|'; // Trennzeichen (darf nicht in den Textzeilen vorkommen!
  myStringList := TStringList.Create;
  try
    myStringList.LoadFromFile(fname);  // Datei laden
    for ndx := 0 to myStringList.Count -1 do
    begin
      line := myStringList.Strings[ndx];
      delpos := Pos(delimiter,line);  // Position des Trennzeichens
      Delete (line,1,delpos);  // Alles bis einschliesslich Trennzeichen löschen
      myStringList.Strings[ndx] := IntToStr (ndx) + delimiter + line; // Neue Zeilennummer
    end;
    myStringList.SaveToFile(fname); // Datei speichern.
  finally
    FreeAndNil (myStringList);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (OpenDialog1.Execute) then
  begin
    NeueZeilennummern (OpenDialog1.FileName);
  end;
end;

Eventeull hilft Dir das ja.