Lazarus/Dateien - Versionsgeschichte

Matthias Scharwies: formatiert

2019-08-10T06:25:09Z

formatiert

← Nächstältere Version		Version vom 10. August 2019, 06:25 Uhr
Zeile 1:		Zeile 1:
	~~{{Lazarus-Buch}}~~
	== Allgemeines zu Dateien ==		== Allgemeines zu Dateien ==

Zeile 32:		Zeile 31:
	\|}		\|}

	~~{{blau\|~~<source line lang="pascal">		<source line lang="pascal">
	unit Dateitest_main;		unit Dateitest_main;

Zeile 103:		Zeile 102:

	end.		end.
	</source>}}		</source>

	== Manipulation von Dateien und Ordnern als Ganzes ==		== Manipulation von Dateien und Ordnern als Ganzes ==
Zeile 175:		Zeile 174:
	\|-		\|-
	\|}		\|}


			{{Lazarus-Buch}}

Matthias Scharwies: Matthias Scharwies verschob die Seite Lazarus-Buch/Dateien nach Lazarus/Dateien: kürzere URL

2019-08-10T06:24:32Z

Matthias Scharwies verschob die Seite Lazarus-Buch/Dateien nach Lazarus/Dateien: kürzere URL

← Nächstältere Version

Version vom 10. August 2019, 06:24 Uhr

Matthias Scharwies: 9 Versionen importiert

2019-08-10T05:00:15Z

9 Versionen importiert

← Nächstältere Version

Version vom 10. August 2019, 05:00 Uhr

Karl Kirst: Kasten blau/gelb -> blau/gelb

2018-04-18T21:30:42Z

Kasten blau/gelb -> blau/gelb

← Nächstältere Version		Version vom 18. April 2018, 21:30 Uhr
Zeile 32:		Zeile 32:
	\|}		\|}

	{{~~kasten_blau~~\|<source line lang="pascal">		{{blau\|<source line lang="pascal">
	unit Dateitest_main;		unit Dateitest_main;

main>Peterdauscher: /* Lesen von Schreiben von Daten in Dateien */

2014-01-19T19:28:19Z

Lesen von Schreiben von Daten in Dateien

← Nächstältere Version		Version vom 19. Januar 2014, 19:28 Uhr
Zeile 40:		Zeile 40:

	uses		uses
	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
	~~LazIOStuff~~;

	type		type
Zeile 94:		Zeile 93:
	AssignFile(Datei,'MeineDatei.txt');		AssignFile(Datei,'MeineDatei.txt');
	Reset(Datei);		Reset(Datei);
	Clear~~(Memo1)~~;		Memo1.Lines.Clear;
	while not eof(Datei)		while not eof(Datei)
	do begin		do begin
	readln(Datei,s);		readln(Datei,s);
	~~WriteLnTo~~(~~Memo1,~~s);		Memo1.Lines.Add(s);
	end;		end;
	CloseFile(Datei);		CloseFile(Datei);

main>Peterdauscher: /* Lesen von Schreiben von Daten in Dateien */

2013-06-17T06:58:20Z

Lesen von Schreiben von Daten in Dateien

← Nächstältere Version		Version vom 17. Juni 2013, 06:58 Uhr
Zeile 28:		Zeile 28:
	\| Writeln(Datei,Variable)\|\| Schreibt eine Variable (String, Integer, Double) in die Datei.		\| Writeln(Datei,Variable)\|\| Schreibt eine Variable (String, Integer, Double) in die Datei.
	\|-		\|-
	\| ~~Close~~(Datei)\|\| Schließt die Datei. <br> Am Ende des Programms oder der Dateimanipulation nicht vergessen, sonst können Daten verloren gehen.		\| CloseFile(Datei)\|\| Schließt die Datei. <br> Am Ende des Programms oder der Dateimanipulation nicht vergessen, sonst können Daten verloren gehen.
	\|-		\|-
	\|}		\|}

main>Peterdauscher am 5. Februar 2013 um 14:01 Uhr

2013-02-05T14:01:30Z

← Nächstältere Version		Version vom 5. Februar 2013, 14:01 Uhr
Zeile 5:		Zeile 5:

	== Lesen von Schreiben von Daten in Dateien ==		== Lesen von Schreiben von Daten in Dateien ==

			Wir betrachten nun, wie Programme selbst Dateien erstellen, Daten hineinschreiben und Daten herauslesen können. Wir beschränken uns dabei hier auf reine Text-Dateien, also Dateien, in denen die Daten auch in menschenlesbarer Form abgelegt sind.

			Um Textdateien manipulieren zu können, gibt es einen neuen Variablentyp <tt>TextFile</tt>. Die folgenden Befehle sind hierfür verfügbar:

			{\| class ="wikitable toptextcells"
			! Befehl
			! Bedeutung
			\|-
			\| AssignFile(Datei,Dateiname)\|\| Verbindet die <tt>Datei</tt> vom Typ <tt>TextFile</tt> mit der Datei mit dem angegebenen <tt>Dateinamen</tt>.
			\|-
			\| Rewrite(Datei)\|\| Öffnet die Datei zum (Über-)Schreiben. Die bisher enthaltenen Daten werden gelöscht.
			\|-
			\| Reset(Datei)\|\| Öffnet die Datei zum Lesen.
			\|-
			\| Append(Datei)\|\| Öffnet die Datei zum Anhängen zusätzlicher Daten
			\|-
			\| EOF(Datei) \|\| Diese Funktion (Abkürzung für "End of File") liefert <tt>true</tt>, wenn das Ende der Datei erreicht ist, wenn also keine weiteren Daten mehr kommen.
			\|-
			\| Readln(Datei,Variable)\|\| Liest eine Variable (String, Integer, Double) aus der Datei aus.
			\|-
			\| Writeln(Datei,Variable)\|\| Schreibt eine Variable (String, Integer, Double) in die Datei.
			\|-
			\| Close(Datei)\|\| Schließt die Datei. <br> Am Ende des Programms oder der Dateimanipulation nicht vergessen, sonst können Daten verloren gehen.
			\|-
			\|}

			{{kasten_blau\|<source line lang="pascal">
			unit Dateitest_main;

			{$mode objfpc}{$H+}

			interface

			uses
			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
			LazIOStuff;

			type

			{ TForm1 }

			TForm1 = class(TForm)
			Button1: TButton;
			Button2: TButton;
			Button3: TButton;
			Memo1: TMemo;
			procedure Button1Click(Sender: TObject);
			procedure Button2Click(Sender: TObject);
			procedure Button3Click(Sender: TObject);
			private
			{ private declarations }
			public
			{ public declarations }
			end;

			var
			Form1: TForm1;
			Datei : TextFile;
			s : string;

			implementation

			{$R *.lfm}

			{ TForm1 }

			procedure TForm1.Button1Click(Sender: TObject);
			begin
			AssignFile(Datei,'MeineDatei.txt');
			Rewrite(Datei);
			writeln(Datei,'Hallo');
			writeln(Datei,'Welt');
			CloseFile(Datei);
			end;

			procedure TForm1.Button2Click(Sender: TObject);
			begin
			AssignFile(Datei,'MeineDatei.txt');
			Append(Datei);
			writeln(Datei,'Hallo');
			writeln(Datei,'Welt');
			CloseFile(Datei);
			end;

			procedure TForm1.Button3Click(Sender: TObject);
			begin
			AssignFile(Datei,'MeineDatei.txt');
			Reset(Datei);
			Clear(Memo1);
			while not eof(Datei)
			do begin
			readln(Datei,s);
			WriteLnTo(Memo1,s);
			end;
			CloseFile(Datei);
			end;

			end.
			</source>}}

	== Manipulation von Dateien und Ordnern als Ganzes ==		== Manipulation von Dateien und Ordnern als Ganzes ==

main>Peterdauscher am 23. Januar 2013 um 21:55 Uhr

2013-01-23T21:55:03Z

← Nächstältere Version		Version vom 23. Januar 2013, 21:55 Uhr
Zeile 7:		Zeile 7:

	== Manipulation von Dateien und Ordnern als Ganzes ==		== Manipulation von Dateien und Ordnern als Ganzes ==

			Für alle folgenden Befehle muss die Unit <tt>sysutils</tt> in der<tt> uses ...</tt>-Klasel eingebunden werden, was standardmäßig auch der Fall ist. Näheres zu dieser Unit, die noch sehr viele andere nützliche Befehle enthält, findet sich auf den Dokumentationsseiten zu [http://lazarus-ccr.sourceforge.net/docs/rtl/sysutils/ systutils] des Lazarus-Projekts.

main>Peterdauscher am 23. Januar 2013 um 21:50 Uhr

2013-01-23T21:50:53Z

← Nächstältere Version		Version vom 23. Januar 2013, 21:50 Uhr
Zeile 16:		Zeile 16:
	! Bedeutung		! Bedeutung
	\|-		\|-
	\|DeleteFile \|\|		\|DeleteFile(Dateiname : String) : Boolean \|\| Löscht die Datei mit dem gegebenen Dateiname. <br/> Liefert "false" zurück, wenn die Datei nicht gelöscht werden kann.
	\|-		\|-
	\|RenameFile \|\|		\|RenameFile(AlterName, NeuerName : String) : Boolean \|\| Benennt eine Datei um. <br/> Liefert "false" zurück, wenn die Datei nicht umbenannt werden kann.
	\|-		\|-

	\|}		\|}



	=== Löschen, Umbenennen und Erzeugen von Ordnern ===		=== Löschen, Umbenennen und Erzeugen von Ordnern ===

	{\| class ="wikitable toptextcells"		{\| class ="wikitable toptextcells"
	! Befehl		! Befehl
	! Bedeutung		! Bedeutung
	\|-		\|-
	\|RemoveDir \|\|		\|RemoveDir(Ordnername : String) : Boolean \|\| Löscht den angegebenen Ordner. <br/> Liefert "false" zurück, wenn der Ordner nicht gelöscht werden kann.
	\|-		\|-
	\|RenameFile \|\|		\|RenameFile(Ordnername : String) : Boolean \|\| Benennt den angegebenen Ordner um. <br/> Liefert "false" zurück, wenn der Ordner nicht umbenannt werden kann.
	\|-		\|-
	\|ForceDirectories \|\|		\|ForceDirectories(Pfadname : String) : Boolean \|\| Erzeugt den gesamten angegebenen Pfad. <br/> Liefert "false" zurück, wenn das nicht möglich ist.
	\|-		\|-
	\|}		\|}



	=== Überprüfen der Existenz von Dateien und Ordnern ===		=== Überprüfen der Existenz von Dateien und Ordnern ===
Zeile 47:		Zeile 42:
	! Bedeutung		! Bedeutung
	\|-		\|-
	\|FileExists\|\|		\|FileExists(Dateiname : String) : Boolean \|\| Liefert "true" zurück, wenn die Datei mit dem angegebenen Namen existiert.
	\|-		\|-
	\|DirectoryExists \|\|		\|DirectoryExists(Ordnername: String) : Boolean \|\| Liefert "true" zurück, wenn der Ordner mit dem angegebenen Namen existiert.
	\|-		\|-
	\|}		\|}
Zeile 55:		Zeile 50:

	=== Dateinamen und Pfade ===		=== Dateinamen und Pfade ===

			In Microsoft-Windows besteht ein (vollständiger) Dateiname wie <tt><nowiki>C:\Programme\lazarus\bin\lazarus.exe</nowiki> </tt> aus verschiedenen Bestandteilen:
			* Dem Laufwerk (<tt><nowiki>C</nowiki></tt>)
			* Dem Dateipfad (<tt><nowiki>C:\Programme\lazarus\bin\</nowiki></tt>) <br> bzw. dem Dateiordner (<tt><nowiki>C:\Programme\lazarus\bin</nowiki></tt>)
			* Dem eigentlichen Dateimnamen (<tt><nowiki>lazarus.exe</nowiki></tt>)
			* Der Dateiendung (<tt><nowiki>exe</nowiki></tt>)



	{\| class ="wikitable toptextcells"		{\| class ="wikitable toptextcells"
	! Befehl		! Befehl
	! Bedeutung		! Bedeutung
	\|-		\|-
	\|ExtractFileDrive\|\|		\|ExtractFileDrive(vollst_Dateiname : String) : String \|\| Liefert das Laufwerk zurück
			\|-
			\|ExtractFilePath(vollst_Dateiname : String) : String \|\| Liefert den Dateipfad zurück
	\|-		\|-
	\|~~ExtractFilePath~~\|\|		\|ExtractFileDir(vollst_Dateiname : String) : String \|\| Liefert den Dateiordner zurück
	\|-		\|-
	\|ExtractFileName\|\|		\|ExtractFileName(vollst_Dateiname : String) : String \|\| Liefert den eigentlichen Dateinamen zurück
	\|-		\|-
	\|ExtractFileExt\|\|		\|ExtractFileExt(vollst_Dateiname : String) : String \|\| Liefert die Endung zurück
	\|-		\|-
	\|}		\|}

Karl Kirst: Navigation

2013-01-22T14:55:13Z

Navigation

← Nächstältere Version		Version vom 22. Januar 2013, 14:55 Uhr
Zeile 1:		Zeile 1:
			{{Lazarus-Buch}}
	== Allgemeines zu Dateien ==		== Allgemeines zu Dateien ==