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:

zusammenfalten · markieren

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]

Hallo,

markieren

Delphi-Quellcode:

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

Gruss
Thorsten

Leerstring in Datei schreiben

Hallo,

hier ist noch eine Möglichkeit.

Gruß Hawkeye

Zitat von omata:

Hallo,

markieren

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??

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

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

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

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