In eine Datei was schreiben, wie?

[ferby]

Hallo,

ich habe in meinen Delphi Buch folgendes stehen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  textvar:textfile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  assignfile(textvar, 'test.txt');
  reset(textvar);
  write(textvar, 'test');
  closefile(textvar);
end;

end.

Die Datei test.txt befindet sich im selben order. Der Inhalt von test.txt wird zwar gelöscht aber es wird nichts hineingeschrieben, was ist hier falsch?

Danke

[Bowler]

Das Problem hatte ich auch mal. Es hängt irgendwie mit den Textfiles zusammen. Bzw. mit dem Typ "textfile". Die sind von Haus aus geschützt. Versuche mal den Befehl Append, um die Datei zu öffnen (anstelle von reset).

PS: wieso wird der Inhalt gelöscht? Müsste der bei Reset nicht bleiben?

Gruß
Christian

[Shaman]

Mach mal Rewrite anstatt Reset

Gruss
Shaman

[Nikolas]

Ich glaub der Fehler liegt im 'Write' mit write setzt du typisierte Datein wie record in eine Datei. Zeilen schreibst du in eine Testdatei per writeln

[ferby]

Hallo,

mit Rewrite statt rest gehts, aber warum? Kann mir das wer erklären?

[Bowler]

Korrekt @toxman. Habe ich auch gerade nochmal nachgeguckt.

Das Folgende ich eine Funktion, welche einfach eine Text-Datei öffnet und am Ende eine Zeile anhängt. Die ist schon im Einsatz und funktioniert.

Delphi-Quellcode:

procedure writeLog(value:string);
var
     ferrlog:text;
begin
   Assign(ferrlog,'logfile.log');
   if fileexists('logfile.log') then
      append(ferrlog)
   else
      rewrite(ferrlog);
   writeln(ferrlog,value);
   Close(ferrlog);   
end;

[Shaman]

Mit Rewrite erstellst Du die Datei neu, mit Reset beginnst Du sie zu lesen.

Gruss
Shaman

[ferby]

....aha....


Danke

[ManuelM]

Wenn es eine stink normale Textdatei nimmst, dann verwende lieber TStringlist. Das ist objektionirteres Programmieren ;)


Gruß

[ferby]

Hi,

Was ist TStringlist? Wie muss ich das dann machen?