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

[Hawkeye219]

Hallo,

hier ist noch eine Möglichkeit.

Gruß Hawkeye

[meik]

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...
DateiLeeren('c:\datei.txt'); Gruss
Thorsten

[meik]

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...
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 von meik:

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...
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), ...).