Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: löschen und dateizeiger setzen

  Alt 29. Mai 2004, 13:41
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...
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat