Difference between revisions of "untyped files/de"

From Free Pascal wiki
m (Datensatz an Datei anfügen)
(AssignFile -> Assign; Prozeduren sind identisch und Assign ist in allen Compiler-Modes verfügbar)
Line 16: Line 16:
 
   sinGehalt: Single;
 
   sinGehalt: Single;
 
begin
 
begin
   AssignFile(datDatei,'d:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu und öffnet die Datei
+
   Assign(datDatei,'d:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu und öffnet die Datei
 
   ReWrite(datDatei); // Die alte Datei wird überschrieben
 
   ReWrite(datDatei); // Die alte Datei wird überschrieben
 
   strName := 'qwert';
 
   strName := 'qwert';
Line 32: Line 32:
 
   sinGehalt: Single;
 
   sinGehalt: Single;
 
begin
 
begin
   AssignFile(datDatei,'d:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu
+
   Assign(datDatei,'d:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu
 
   Reset(datDatei); // Setzt den Dateizeiger auf den Anfang der Datei
 
   Reset(datDatei); // Setzt den Dateizeiger auf den Anfang der Datei
 
   ReadLn(datDatei, strName, sinGehalt); // Liest die erste Zeile aus der Datei ein
 
   ReadLn(datDatei, strName, sinGehalt); // Liest die erste Zeile aus der Datei ein
Line 60: Line 60:
 
   sinGehalt: Single;
 
   sinGehalt: Single;
 
begin
 
begin
   AssignFile(datDatei,'d:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu
+
   Assign(datDatei,'d:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu
 
   Append(datDatei); // Öffnet die Datei für den Schreibzugriff und erlaubt das Anfügen von Datensätzen an das Ende der Datei
 
   Append(datDatei); // Öffnet die Datei für den Schreibzugriff und erlaubt das Anfügen von Datensätzen an das Ende der Datei
 
   strName := 'sdf';
 
   strName := 'sdf';
Line 76: Line 76:
 
   sinGehalt: Single;
 
   sinGehalt: Single;
 
begin
 
begin
   AssignFile(datDatei, 'D:\beispiel.txt');
+
   Assign(datDatei, 'D:\beispiel.txt');
 
   Reset(datDatei);
 
   Reset(datDatei);
 
   while not eof(datDatei)  //solange noch Daten zu lesen sind
 
   while not eof(datDatei)  //solange noch Daten zu lesen sind
Line 85: Line 85:
 
end;
 
end;
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 16:42, 23 October 2012 (UTC)
 
 
[[Category:Code/de]]{{AutoCategory}}
 
[[Category:Code/de]]{{AutoCategory}}

Revision as of 10:43, 4 January 2016

Deutsch (de)
Zurück zu den Dateitypen.


untypisierte Textdatei

Eine untypisierte Textdatei eignet sich für die Verarbeitung von Dateien jeder Grösse.
Bei untypisierten Dateien, wird der Inhalt einer Datei Zeile für Zeile eingelesen. Umgekehrt wird die Datei Zeile für Zeile geschrieben. Die Datensätze einer untypisierten Datei können von unterschiedlicher Länge sein.

Datei erstellen

var
  datDatei: TextFile;
  strName: String;
  sinGehalt: Single;
begin
  Assign(datDatei,'d:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu und öffnet die Datei
  ReWrite(datDatei); // Die alte Datei wird überschrieben
  strName := 'qwert';
  sinGehalt := '1800.23';
  WriteLn(datDatei, strName, sinGehalt); // Schreibt den ersten Datensatz in die neue Datei
  ...
end;


Datei öffnen

var
  datDatei: TextFile;
  strName: String;
  sinGehalt: Single;
begin
  Assign(datDatei,'d:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu
  Reset(datDatei); // Setzt den Dateizeiger auf den Anfang der Datei
  ReadLn(datDatei, strName, sinGehalt); // Liest die erste Zeile aus der Datei ein
  ReadLn(datDatei, strName, sinGehalt); // Liest die zweite Zeile aus der Datei ein
  ...
end;


Datei schliessen

var
  datDatei: TextFile;
  strName: String;
  sinGehalt: Single;
begin
  ...
  CloseFile(datDatei); //Schliesst die Datei
end;


Datensatz an eine vorhandenen Datei anfügen

Bei Textdateien (untypisierten Dateien) kann mit Hilfe des Befehls Append am Ende der Datei ein Datensatz angefügt werden.

var
  datDatei: TextFile;
  strName: String;
  sinGehalt: Single;
begin
  Assign(datDatei,'d:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu
  Append(datDatei); // Öffnet die Datei für den Schreibzugriff und erlaubt das Anfügen von Datensätzen an das Ende der Datei
  strName := 'sdf';
  sinGehalt := 2001.21;
  WriteLn(datDatei, strName,sinGehalt); // Schreibt einen weiteren Datensatz in die neue Datei
  CloseFile(datDatei); //Schliesst die Datei


Datei komplett lesen

var
  datDatei: TextFile;
  strName: String;
  sinGehalt: Single;
begin
  Assign(datDatei, 'D:\beispiel.txt');
  Reset(datDatei);
  while not eof(datDatei)   //solange noch Daten zu lesen sind
    do begin
      read(datDatei, strName, sinGehalt);
    end;
  CloseFile(datDatei);
end;