Difference between revisions of "untyped files/de"
From Free Pascal wiki
Jump to navigationJump to searchLine 52: | Line 52: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
<br> | <br> | ||
− | =Datensatz an Datei anfügen= | + | =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. | Bei Textdateien (untypisierten Dateien) kann mit Hilfe des Befehls Append am Ende der Datei ein Datensatz angefügt werden. | ||
<syntaxhighlight> | <syntaxhighlight> | ||
Line 68: | Line 68: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
<br> | <br> | ||
+ | |||
=Datei komplett lesen= | =Datei komplett lesen= | ||
<syntaxhighlight> | <syntaxhighlight> |
Revision as of 21:51, 10 January 2014
│
Deutsch (de) │
English (en) │
polski (pl) │
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
AssignFile(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
AssignFile(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
AssignFile(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
AssignFile(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;
--Olaf 16:42, 23 October 2012 (UTC)