Zeilen aus datei löschen

[StefanDP]

Zitat von Chewie:

Du liest die Datei ein und leerst dann die Datei auf der Platte. Dann schreibst du die Daten wieder in die Datei, das, was du löschen willst, schreibst du dann einfach nicht.

so hab ichs gemeint!

halt mit backup

[Pseudemys Nelsoni]

Zitat:

Du liest die Datei ein und leerst dann die Datei auf der Platte. Dann schreibst du die Daten wieder in die Datei, das, was du löschen willst, schreibst du dann einfach nicht.

Hallo Chewie,

Kannst du mir sagen wo ich sie am besten reinlade? Wie gesagt das ganze ist ohne VCL und daher habe ich sowas wie stringlist nicht 8)

Zitat:

oder, um einen Datenverlust zu vermeiden, kannst Du die neue, gekürzte Datei, auch erst einmal temporär anlegen.
Wenn diese fertig erstellt ist, dann die alte löschen, und die neue entsprechend umbenennen.

Hallo Christian,

auch eine gute Idee, mal sehen wie ich das alles per api realisiere


Danke euch beiden schonmal.

[Chewie]

Nimm irgendeinen Puffer, der groß genug ist, um die ganze Datei zu speichern. Am einfachsten dürfte ein Array of Byte sein.

[Luckie]

Habe ich mich denn so unverständlich ausgedrückt? Etwas Pseudocode, da ich kein Delphi hier habe:

Delphi-Quellcode:

var
  F_Old, F_New: TextFile;
  FilenameOld, FilenameNew: String;
  s: String;
begin
  if FileExists(FilenameOld) then
  begin
    AssignFile(F_Old, FilenameOld);
    Reset(F_Old);
    AssignFile(F_New, FilenameNew);
    Rewrite(F_New)
    while not EOF(F_Old) do
    begin
      readln(F, s);
      if s <> '' then
        writeln(F_NEW, s); 
    end;
    CloseFile(F_Old);
    CloseFile(F_New);
  end;