löschen und dateizeiger setzen

[gordenfreeman2]

hi!

und zwar habe ich folgendes Problem. Ich muss mitten aus einer Textdatei 4 Zeilen löschen. Mein Problem ist das ich jetzt nicht weiss wie ich das machen soll. Soviel ich mir denken kann ist das ich meine Dateizeiger auf die Position setzten muss, und ich glaube das geht mit seek oder??? nur wie finde ich heraus das der text denn ich dort löschen will genau dort ist??? und das nächste ist angenommen ich bin jetzt auf der Position mit was muss ich das überschreiben damit ich das löschen kann. oder gibt es da eine eigenen funktion???

danke im voraus

lg stef

[SirThornberry]

mitten aus einer datei was löschen geht nicht so einfach wie du dir das vermutlich vorstellst. Du wirst das ganze als String etc. einlesen müssen und dann den teil daraus entfernen und dann die datie komplette neu schreiben. Die position wo dein text anfängt musst du selbst rausfinden indem du die datei durchgehst und die zeilenumbrüche suchst. Die einfachere Variante wäre das ganze in ein TStringlist zu laden und dann die gewünschten Zeilen zu löschen.

Also so

Delphi-Quellcode:

var LListe: TStringlist;
begin
  LListe := TStringlist.Create;
  LListe.LoadFromFile(DeinDateiname);
  LListe.Delete(5);
  LListe.Delete(5);
  LListe.Delete(5);
  LListe.Delete(5);
  LListe.SaveToFile(DeinDateiname);
  LListe.Free;
end;

damit werden zeile 6, 7, 8 und 9 aus deiner Datei gelöscht. Du solltest da allerdings noch eine abfrage einbauen ob diese zeilen auch existieren...