1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var datei: Textfile;
begin;
 
 //Mit Assignfile öffnest du die Datei, die du schreiben möchtest.
 assignfile(datei, includeTrailingPathDelimiter(extractfilepath(application.exename)) + 'Dateiname.txt');

 {
  Jetzt kann folgendes passieren:

    a) die Datei existiert schon -> du kannst sie leeren oder weiter in sie schreiben
    b) sie existiert noch nicht -> du erzeugst sie neu

  Für das Beispiel gehen wir von Möglichkeit b) aus.
 }

 //neue, leere Datei
 rewrite(Datei);

 //Schreiben der ersten Zeile in die Datei
 writeLn(datei, {hier das eine Editfeld angeben});

 //Schreiben der zweiten Zeile in die Datei
 writeLn(datei, {hier das andere Editfeld});

 //Ganz wichtig zum Schluss -> alles was du öffnest und nicht mehr benötigst -> schlließen.
 closefile(datei);
 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.FormCreate(Sender: TObject);
var datei: Textfile;
begin


        assignfile(datei, includeTrailingPathDelimiter(extractfilepath(application.exename)) + 'Dateiname.txt');



            rewrite(Datei);


      writeLn(datei, Edit1.Text);


      writeLn(datei, Edit2.Text);


          closefile(datei);


end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var datei: TextFile;
begin
 assignfile(datei, includetrailingpathdelimiter(extractfilepath(application.exename)) + 'MeineDatei.txt');
 rewrite(datei);

 //Schreiben der Kopfzeile
 writeln('Das ist Ihr Login');
 writeln('');
 writeln('Benutzername: ' + edit1.text);
 writeln('Passwort: ' + edit2.text);

 closefile(datei);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

 writeLn(datei,'Spiele      : ' +  edit2.text);
 writeLn(datei,'');
 writeLn(datei,'#######################################################');

 closefile(datei);

  Append(datei);


  WriteLn(datei, 'Final line added');


  CloseFile(datei);


  Reset(datei);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Die Prozedur öffnet eine vorhandene Datei.

Unit

System

Kategorie

Ein-/Ausgabe

Delphi-Syntax:

procedure Reset(var F [: File; RecSize: Word ] );

Beschreibung

In Delphi öffnet Reset die in F angegebene externe Datei in dem Modus, der in der globalen Variable FileMode festgelegt ist. Ist keine Datei mit diesem Namen vorhanden oder kann die Datei nicht im aktuellen Dateimodus geöffnet werden, tritt ein Fehler auf. Ist F bereits offen, wird sie zuerst geschlossen und dann erneut geöffnet. Nach dem Öffnen wird der Dateizeiger an den Anfang der Datei gesetzt.

Warnung:  Der Standardwert von FileMode ist 2 (Lesen/Schreiben). Auch wenn die Datei nur gelesen werden soll, verursacht der Standardwert von FileMode (Schreib-/Lesezugriff), dass das Öffnen einer schreibgeschützten Datei fehlschlägt.

F ist eine Variable eines beliebigen Dateityps, die zuvor mit AssignFile einer externen Datei zugewiesen wurde. RecSize ist ein optionaler Ausdruck, der nur bei untypisierten Dateien angegeben werden kann. Wenn F eine untypisierte Datei ist, gibt RecSize die Blockgröße für Datenübertragungen an. Wenn Sie RecSize nicht angeben, wird der Standardwert 128 verwendet.

Wird F ein leerer String zugewiesen (z.B. AssignFile(F, '')), zeigt die Variable nach dem Aufruf von Reset auf die Standardeingabedatei.

Bei einer Textdatei ist F nach dem Öffnen schreibgeschützt.

Nach dem Aufruf von Reset hat Eof(F) den Wert true, wenn die Datei leer ist. Andernfalls ist Eof(F) false.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Die Prozedur bereitet eine vorhandene Datei auf das Anhängen von Textdaten vor.

Unit

System

Kategorie

Ein-/Ausgabe

Delphi-Syntax:

procedure Append(var F: Text);

Beschreibung

Mit Append können Sie sicherstellen, dass eine Datei schreibgeschützt geöffnet und der Dateizeiger auf das Ende der Datei gesetzt wird. F ist eine Textdateivariable und muss zuvor mit AssignFile einer externen Datei zugeordnet werden. Ist die Datei mit dem angegebenen Namen nicht vorhanden, tritt ein Fehler auf. Wenn F bereits offen ist, wird sie geschlossen und anschließend erneut geöffnet. Die aktuelle Dateiposition wird dann auf das Dateiende gesetzt.

Wenn im letzten 128-Byte-Block der Datei das Zeichen Strg+Z (ASCII 26) vorhanden ist, wird die aktuelle Dateiposition so gesetzt, dass das nächste zu der Datei hinzugefügte Zeichen das erste Strg+Z des Blocks überschreibt. Auf diese Weise kann Text an eine Datei angehängt werden, die mit Strg+Z endet.

Wurde F kein Name zugewiesen, verweist die Variable nach dem Aufruf von Append auf die Standardausgabe.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Die Funktion leert den Puffer einer für die Ausgabe geöffneten Textdatei.

Unit

System

Kategorie

Textdateien

Delphi-Syntax:

function Flush(var t: Text): Integer;

Beschreibung

F ist eine Textdateivariable.

Der Dateipuffer einer mit Rewrite oder Append für die Ausgabe geöffneten Textdatei kann durch einen Aufruf von Flush geleert werden. Dadurch wird sichergestellt, dass alle zu diesem Zeitpunkt in die Datei geschriebenen Zeichen tatsächlich in die externe Datei eingetragen werden. Flush wirkt sich nicht auf Dateien aus, die für die Eingabe geöffnet sind.

Flush gibt 0 zurück, wenn die Operation erfolgreich war. Ansonsten wird der Fehlercode zurückgeliefert. Wenn beim Compilieren das Flag {$I-} verwendet wird, gibt die Methode IOResult diesen Wert zurück.

Hinweis:  Mit dem Compiler-Schalter {$I+} können Laufzeitfehler durch Exceptions behandelt werden. Wenn Sie {$I-} verwenden, müssen Sie mit IOResult explizit auf E/A-Fehler prüfen.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var

  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { Textdatei öffnen }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, 'I am appending some stuff to the end of the file.'); 
    { Hier Code einfügen, der ein Flush vor dem Schließen der Datei erfordert }
    Flush(f);  { Sicherstellen, dass der Text in die Datei geschrieben wird }
    CloseFile(f);
  end;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

(3) writeLn(datei,'Spiele      : ' +  edit2.text);
(3) writeLn(datei,'');
(3) writeLn(datei,'#######################################################');

(4) closefile(datei);

(2) Append(datei);


(3) WriteLn(datei, 'Final line added');


(-)  CloseFile(datei); //kannst du wegwerfen ;-)


(1)  Reset(datei);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

 


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, XPMan, Buttons, Mask;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    XPManifest1: TXPManifest;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var datei: Textfile;
begin


 assignfile(datei, includeTrailingPathDelimiter(extractfilepath(application.exename)) + 'Meine Steam Accounts.txt');

 rewrite(Datei);

 writeLn(datei,'#######################################################');
 writeLn(datei,'');
 writeLn(datei,'Benutzername: ' +  edit1.text);
 writeLn(datei,'Password    : ' +  edit2.text);
 writeLn(datei,'Spiele      : ' +  edit2.text);
 writeLn(datei,'');
 writeLn(datei,'#######################################################');

 closefile(datei);


end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True; // hier befindet dich der fehler bei MainFormOnTaskbar
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.