Lesen Schreiben Textdatei zu erstellen, mit Schale

Lesen Schreiben Textdatei zu erstellen, mit Schale

Lesen Schreiben Textdatei zu erstellen, mit Schale : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel ist für Anfänger bis Fortgeschrittene Entwickler, möchte lesen / schreiben / drucken und Löschen von Text-Datei. Hoffe, dass es für viele Entwickler hilfreich sein wird.

Erstellen Sie, lesen Sie, schreiben Sie, drucken, löschen
Textdateien mit KYLIX

Von Rahul Tamrakar

Dieser Artikel ist für Anfänger bis Fortgeschrittene Entwickler, möchte lesen / schreiben / drucken und Löschen von Text-Datei. Hoffe, dass es für viele Entwickler hilfreich sein wird.
Jetzt zeige ich Ihnen die wichtigsten Befehle zum Lesen und schreiben. Es ist sehr sehr einfach.
General i/o-Routinen
AssignFileAssigns den Namen einer externen Datei auf eine Dateivariable.
Um die Arbeit mit Textdateien von KYLIX beginnen müssen wir eine Datei auf einem Datenträger mit einer Datei Variablen in unserem Programm zu verknüpfen. Um diese Verknüpfung zu erstellen müssen wir zuerst eine Variable vom Typ TextFile deklarieren und anschließend mit AssignFile Prozedur um eine Variable für eine Datei auf einem Datenträger zugeordnet. Es sei denn, die Datei namens Dateiname im aktuellen Verzeichnis befindet, müssen wir vollständigen Pfad angeben.
ResetOpens eine vorhandene Datei (zum Lesen)
Um Informationen aus einer Datei Zeile für Zeile zu lesen, müssen wir die Datei für die Eingabe mit der Reset-Prozedur öffnen. Der Reset öffnet die bestehende Datei mit dem Namen einer Textdatei-Variablen zugewiesen. Ein Fehler führt, wenn keine vorhandenen externen Datei mit dem angegebenen Namen vorhanden ist.
RewriteCreates und öffnet eine neue Datei (oder öffnet und löscht eine vorhandene Datei!)
Umschreiben von Adressen erstellt eine neue Datei (öffnet die Datei für die Ausgabe) mit OpenFile zugewiesene Name. Wenn eine Datei mit demselben Namen bereits vorhanden ist, wird Sie gelöscht und an seiner Stelle wird eine neue leere Datei erstellt. Wenn SomeTextFile bereits geöffnet ist, ist es zunächst geschlossen und anschließend neu erstellt. Die aktuelle Dateiposition wird an den Anfang der leeren Datei festgelegt.
WriteLnWrite Zeile in die Textdatei.
Der WriteLn-Befehl ist, einzelne Stücke von Informationen in eine Datei zu senden
ReadLnRead Zeile aus der Textdatei.
ReadLn Informationen Zeile für Zeile aus einer Datei lesen.
EofReturns der EOF-Status. (True bedeutet dies am Ende der Datei)
EOF ist die EndOfFile Funktion zu überprüfen. Wir können diese Funktion verwenden, um sicherzustellen, dass wir nicht versuchen, über das Ende der Datei lesen
OpenFile.EOF
CloseFileCloses eine geöffnete Datei.
Schließen Sie, um den Link des OpenFile schließen.
AssignPrnAssigns Datei auf Drucker;

EraseErases einer externen Datei.



Diese Routinen sind in der Unit SysUtils außer 'Assignprn' dafür du musst 'QPrinters' Einheit im Bereich Einheit hinzufügen.


Warum ich TMEMO mit Textdatei
Die folgenden Beispiele zeigen, wie speichern und Laden von einem TMemo aus Datei 'Lehrgeld'.
Sie könnten natürlich die SaveToFile und LoadFromFile Methoden von TStrings verwenden, aber dann würde nicht Sie Informationen zum Text Dateieingabe/-Ausgabe! und viele Programmierer haben meist 2 problem
1Wie Drucken TMEMO Inhalt und TEXT-Dateien zu speichern...
2. wie man mit Textdatei in KYLIX spielen.

Auf diese Weise erfahren Sie...
1. wie speichern / Retrive TMEMO Inhalt in Textdatei.
2. wie TMEMO Inhalt durch Programm zu drucken.
3. wie erstellen / schreiben / lesen/drucken und Löschen von TEXTDATEIEN.


1. erstellen und Inhalt in Textdatei schreiben

Gewährleistet, dass OutFile immer geschlossen werden, selbst wenn eine Ausnahme, beim Schreiben der Datei ausgelöst wird.

{SaveToFile:
Diese Prozedur speichert den Inhalt eines Memo an einer bestimmten Datei Pfad und Name
}
Verfahren SaveToFile (MemoName: TMemo; Dateiname: string);
var
OpenFile: TextFile; {Datei}
Zähler: Ganzzahl; {Schleifenzähler}
beginnen
AssignFile (OpenFile, FileName); {Ordnen Sie OpenFile gegeben Dateipfad und-Name}
Rewrite(OpenFile); {Öffnen}
versuchen Sie
versuchen Sie
für Zähler: = 0 to MemoName.Lines.Count - 1
Writeln (OpenFile, Memoname.Lines[Counter]);
Anwendung. MessageBox ('Memo sparen in Text-Datei' + FileName);
außer auf E:EInOutError Do
MessageDlg ('Save mit Fehler abgebrochen: '+ IntToStr(E.ErrorCode)
MtError, [MbOK], 0);
Ende;
Schließlich
CloseFile(OpenFile);
Ende;
Ende;

Das obige Beispiel zeigt, wie zu fangen eine I/O-Ausnahme-Datei und extrahieren den Fehlercode aus. Beachten Sie, dass es gute Form den äußeren Try-finally-Block zu halten für den Fall, dass eine nicht I/O-Ausnahme ausgelöst wird.

2. Lesen von Inhalt aus Textdatei

{ReadFromFile:
Dieses Verfahren lesen Inhalt aus einer Datei Pfadnamen
}
Verfahren ReadFromFile (MemoName: TMemo; Dateiname: string);
var
OpenFile: TextFile; {Datei}
Linie: String; {Das gelesene Zeile}
beginnen
MemoName.Lines.Clear; {Leeren Sie das Memo}
AssignFile (OpenFile, FileName); {Dateiname OpenFile zuordnen}
Reset(OpenFile); {Ohne beschuldigen es öffnen}
versuchen Sie
versuchen Sie
während nicht Eof(OpenFile) tun
beginnen
ReadLn(OpenFile,Line);
MemoName.Lines.Add(Line);
Ende;
außer auf E:EInOutError Do
MessageDlg (' können nicht Read-Fehler: '+ IntToStr(E.ErrorCode)
MtError, [MbOK], 0);
Ende;
Schließlich
CloseFile(openFile);
Ende
Ende;

Schließlich zeigt dieses Beispiel, wie umgekehrte Vorgang Text aus einer Datei zu lesen. Beachten Sie, dass Readln alle Text bis zu kopiert aber nicht einschließlich Ende der Linie Markierung in der angegebenen Zeichenfolge. Es hüpft dann hinter dem Ende der Linie Markierung auf die nächste Zeile, falls vorhanden. Wenn es keine nächste Zeile dann EOF wird wahr.
3. Drucken mit Textdatei
Ein Vorteil von Object Pascal-Textdateien, die ich noch nicht erwähnt ist, dass sie verwendet werden können, um Daten direkt an Geräte senden. Dieses Beispiel zeigt, wie Sie Text direkt an den Drucker senden können.
{PrintMemo:
Dieses Verfahren von Memo Inhalt lesen und ausdrucken
}
Prozedur PrintMemo (MemoName: TMemo; Dateiname: string);
var
OpenFile: TextFile; {Datei}
Zähler: Ganzzahl; {Schleifenzähler}
beginnen
AssignPrn(OpenFile); {QPrinters zuweisen Textdatei PRN Einheit}
Rewrite(OpenFile); {Öffnen}
versuchen Sie
versuchen Sie
für Zähler: = 0 to MemoName.Lines.Count - 1
Writeln(OpenFile,MemoName.Lines[Counter]);
außer auf E:EInOutError Do
MessageDlg (' kann nicht drucken Fehler: '+ IntToStr(E.ErrorCode)
MtError, [MbOK], 0);
Ende;
Schließlich
CloseFile(OpenFile);
Ende;
Ende;
Beachten Sie, dass in diesem Fall ich AssignPrn eher als AssignFile verwende. Dies getan haben, die Sie an den Drucker einfach schreiben können, als wäre es eine 'normale' Textdatei.
4. löschen Sie Text-Datei
Prozedur EraseFile(FileName: string);
var
OpenFile: TextFile; {Datei}
beginnen
Wenn FileExists (FileName) dann
beginnen
AssignFile (OpenFile, FileName); {Dateiname OpenFile zuordnen}
versuchen Sie
Reset(OpenFile); {Ohne beschuldigen es öffnen}
CloseFile(openfile);
Erase(OpenFile);
Anwendung. MessageBox (Dateiname + '! GELÖSCHT ');
außer auf E:EInOutError Do
MessageDlg (' kann nicht löschen Fehler: '+ IntToStr(E.ErrorCode)
MtError, [MbOK], 0);
Ende;
Ende
sonst
Anwendung. MessageBox('ERROR! '+ FileName +'! Nicht gefunden ');
Ende;

5. wie man Anwendungspfad
{FilePathName:
Diese Funktion zurück Anwendungspfad mit Namen der Textdatei
}
Funktion FilePathName: string;
var
Validierungsoption, Fname: String;
beginnen
{ExtractFilePath() gibt den Pfad der Anwendung zurück}
Validierungsoption: = ExtractFilePath (Anwendung. ExeName);
Fname: = 'MyFile.txt';
FilePathName: = Validierungsoption + Fname;
Ende;

Glücklich Programmierung

KYLIX_TEXTFILE. RTF