View source for Basic Pascal Tutorial/Chapter 2/Files/de

{{Basic Pascal Tutorial/Chapter 2/Files}}
{{TYNavigator|Chapter 2/Formatting output|Chapter 2/EOLN and EOF}}


== 2D - Dateien ==

''(Autor: Tao Yue, Übersetzung ins Deutsche)''


Das Lesen aus einer Datei anstelle der Konsole (Tastatur) ist möglich:
<syntaxhighlight lang="pascal">
read (file_variable, argument_list);
write (file_variable, argument_list);
</syntaxhighlight>

Ähnlich ist es mit <tt>readln</tt> und <tt>writeln</tt>. file_variable wird wie folgt deklariert:
<syntaxhighlight lang="pascal">
var
  ...
  filein, fileout : text;
</syntaxhighlight> 

Der Datentyp <tt>text</tt> zeigt an, dass es sich bei der Datei um reinen Text handelt.

Nachdem wir eine Variable für die Datei deklariert haben und bevor wir von ihr lesen oder in sie schreiben, müssen wir die Variable dem Dateinamen auf der Festplatte zuordnen und die Datei öffnen. Dies kann auf zwei Arten geschehen. Typischerweise:
 reset (file_variable, 'filename.extension');
 rewrite (file_variable, 'filename.extension');
<tt>reset</tt> öffnet eine Datei zum Lesen, und rewrite öffnet eine Datei zum Schreiben. Eine mit <tt>reset</tt> geöffnete Datei kann nur mit <tt>read</tt> und <tt>readln</tt> verwendet werden. Eine mit <tt>rewrite</tt> geöffnete Datei kann nur mit <tt>write</tt> und <tt>writeln</tt> verwendet werden.

Turbo Pascal führte die Zuweisungsnotation ein. Zuerst weisen Sie einer Variablen einen Dateinamen zu, dann rufen Sie <tt>reset</tt> oder <tt>rewrite</tt> nur mit der Variablen auf.
<syntaxhighlight lang="pascal">
assign (file_variable, 'filename.extension');
reset (file_variable);
</syntaxhighlight>

Die Darstellung des Pfades ist je nach Betriebssystem unterschiedlich. Windows verwendet Backslashes und Laufwerksbuchstaben aufgrund seiner DOS-Erfahrung (z.B. <tt>c:\directory\name.pas</tt>), während macOS und Linux aufgrund ihrer UNIX-Herkunft Schrägstriche verwenden.

Nachdem Sie mit der Datei fertig sind, können Sie sie schließen:
<syntaxhighlight lang="pascal">
close (File_Identifier);
</syntaxhighlight>

Hier ist ein Beispiel für ein Programm, das Dateien verwendet. Dieses Programm wurde für Turbo Pascal und DOS geschrieben und erzeugt file2.txt mit dem ersten Zeichen aus file1.txt:
<syntaxhighlight lang="pascal">
program CopyOneByteFile;

var
   mychar : char;
   filein, fileout : text;

begin
   assign (filein, 'c:\file1.txt');
   reset (filein);
   assign (fileout, 'c:\file2.txt');
   rewrite (fileout);
   read (filein, mychar);
   write (fileout, mychar);
   close(filein);
   close(fileout)
end. 
</syntaxhighlight>

{{TYNavigator|Chapter 2/Formatting output|Chapter 2/EOLN and EOF}}