Inhalt der textdatei löschen

[meik]

hallo,

ich wollte aus einer Textdatei den ersten Zeil löschen, das problem das ich die ganze textdatei lösche :-(

der code sieht so aus:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);  
var  
  S1: Integer;  
begin  
  S1 := 0;  
  try  
    memo1.Lines.LoadFromFile('command.txt');  
    S1 := StrToInt(memo1.Lines[0]);  
    deletefile('command.txt');  
  except  
  end;  
  case S1 of  
    1: button1click(self);  
    2: button2click(self);  
  end;

Frage: wie kann ich den Inhalt der Textdatei löschen ohne den ganzen FILE, bitte korrigiere mir den Code.


[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst einfügen. MfG, Matze[/edit]

[omata]

Hallo,

Delphi-Quellcode:

procedure DateiLeeren(Dateiname:string);
var Datei:Textfile;
begin
  try
    assignfile(Datei, Dateiname);
    rewrite(Datei);
  finally
    closefile(Datei);
  end;
end;

Gruss
Thorsten

[mkinzler]

Leerstring in Datei schreiben

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Internet / LAN / ASP.NET" nach "Sonstige Fragen zu Delphi" verschoben.
Das hat mit dem Thema Internet & Co. nichts zu tun.

[Hawkeye219]

Hallo,

hier ist noch eine Möglichkeit.

Gruß Hawkeye

[meik]

Zitat:

Zitat von omata

Hallo,

Delphi-Quellcode:

procedure DateiLeeren(Dateiname:string);
var Datei:Textfile;
begin
  try
    assignfile(Datei, Dateiname);
    rewrite(Datei);
  finally
    closefile(Datei);
  end;
end;

Gruss
Thorsten

vielen dank für deine Antwort. Hast du mit
Dateiname : "Inhalt"
datei: "textdatei"

so gemeint??

[omata]

Hallo meik,

ich weiss jetzt nicht was ich da antworten soll.

Die Variable Datei ist vom Typ Textfile und beinhaltet den Handle auf die Datei. Die Variable Dateiname, enthält den Namen der Datei + Pfad.

Aufruf...

Delphi-Quellcode:

DateiLeeren('c:\datei.txt');

Gruss
Thorsten

[meik]

Zitat:

Zitat von omata

Hallo meik,

ich weiss jetzt nicht was ich da antworten soll.

Die Variable Datei ist vom Typ Textfile und beinhaltet den Handle auf die Datei. Die Variable Dateiname, enthält den Namen der Datei + Pfad.

Aufruf...

Delphi-Quellcode:

DateiLeeren('c:\datei.txt');

Gruss
Thorsten

tut mir leid dass ich dich nochmal störe, aber ich glaube, dass ich mein problem nicht deutlich erklärt habe, ich muss den Inhalt der textdatei zuerst auslesen, und dann gleich danach den Inhalt löschen, wie kann ich meinen Quellcode mit deinem Code, den du mir geschickt hat kombieren. SORRY ich DELPHIANFÄNGER :-( und es gibt keinen Meister vom Himmel gefallen :-)

[meik]

Zitat:

Zitat von meik

Zitat:

Zitat von omata

Hallo meik,

ich weiss jetzt nicht was ich da antworten soll.

Die Variable Datei ist vom Typ Textfile und beinhaltet den Handle auf die Datei. Die Variable Dateiname, enthält den Namen der Datei + Pfad.

Aufruf...

Delphi-Quellcode:

DateiLeeren('c:\datei.txt');

Gruss
Thorsten

tut mir leid dass ich dich nochmal störe, aber ich glaube, dass ich mein problem nicht deutlich erklärt habe, ich muss den Inhalt der textdatei zuerst auslesen, und dann gleich danach den Inhalt löschen, wie kann ich meinen Quellcode mit deinem Code, den du mir geschickt hast kombinieren. SORRY ich bin DELPHIANFÄNGER :-( und es gibt keinen Meister vom Himmel gefallen :-)

[Nuclear-Ping]

Schau dir mal in der Delphi Hilfe TStringList an.

Damit hast du LoadFromFile, SaveToFile und kannst bequem auf einzelne Zeilen per Index zugreifen (MyStringList[0], MyStringList[1], ...) und Zeilen per .Delete löschen (MyStringList.Delete(0), MyStringList.Delete(1), ...).

[omata]

Hallo meik,

hier noch ein Beispiel...

Delphi-Quellcode:

procedure ZeileVerarbeiten(Zeile:string);
begin
  ...
end;

procedure ReadAndDelete(Dateiname:string);
var Datei:Textfile;
    Zeile:string;
begin
  try
    assignfile(Datei, Dateiname);
    reset(Datei);
    while not eof(Datei) do begin
      readln(Datei, Zeile);    
      ZeileVerarbeiten(Zeile);
    end;
    rewrite(Datei);
  finally
    closefile(Datei);
  end;
end;

Gruss
Thorsten

[Nuclear-Ping]

Warum so kompliziert?

Delphi-Quellcode:

uses SysUtils, Classes, Dialogs;

// ...
var
  sl: TStringList;

begin
  // Instanz von TStringList anlegen ...
  sl := TStringListr.Create;
  try
    // Datei laden
    sl.LoadFromFile ('C:\...\datei.txt');

    // erste Zeile ausgeben
    ShowMessage (sl[0]);

    // erste Zeile löschen (Achtung: alle anderen Zeilen "rutschen" nach oben!)
    sl.Delete (0);
  
    // Datei wieder speichern ...
    sl.SaveToFile ('C:\...\datei.txt');

    // StringList freigeben
    FreeAndNil (sl);
  except
    // ... Fehler beim Laden?
    FreeAndNil (sl);
    raise Exception.Create ('Datei nicht gefunden.');
  end;
end;

[Luckie]

[quote="meik"]hallo,

ich wollte aus einer Textdatei den ersten Zeil löschen, das problem das ich die ganze textdatei lösche :-(

der code sieht so aus:

Delphi-Quellcode:

deletefile('command.txt');

Warum wundert dich das bei dieser Funktion? :wall:

[marabu]

Hallo meik,

falls du nur eine Zeile aus der Textdatei entfernen möchtest und die Textdatei nicht zu groß ist, dann solltest du dir diese Funktion anschauen:

Delphi-Quellcode:

function RemoveLine(fn: TFileName; index: Integer): string;
begin
  with TStringList.Create do
  try
    LoadFromFile(fn);
    if index < 0 then
      index := Count - index;
    Result := Strings[index];
    Delete(index);
    SaveToFile(fn);
  finally
    Free;
  end;
end;

// var line: string;
// line := RemoveLine('test.txt', 0);

Beim Aufruf von RemoveLine('test.txt', 0) wird dir der Inhalt der ersten Zeile zurückgeliefert und diese Zeile aus der Textdatei entfernt.

Grüße vom marabu