Console parameters/de: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		│ Deutsch (de) │
2		-	~~****~~
3	2
4	3		Zurück zur [[Console/de\|Konsolenseite]].
5	4
6	5
7		-
8		-	~~## Contents~~
9		-
10		-	* 1 Auswertung der an der Konsole übergebenen Parameter
11		-	* 2 Hilfedatei
12		-	* 3 Parameterauswertung
13		-	* 4 Hauptprogramm
14	6
15	7		# Auswertung der an der Konsole übergebenen Parameter
16	8
17	9		Dieser Artikel handelt von der Parameterauswertung bei Konsole und Terminal. Das Tutorial ist für Projekte gedacht, die unter Lazarus als Programm erstellt wurden.
18	10		Zu besseren Veranschaulichung ist das Tutorial in drei Teile aufgeteilt. Die Hilfedatei, die Parameterauswertung, das Hauptprogramm.
19	11
20	12		# Hilfedatei
21	13
22	14		Die Hilfedatei:
23	15		```
24	16		unit uHilfe;
25	17
26	18		{$mode objfpc}{$H+}
27	19		{$IMPLICITEXCEPTIONS OFF}
28	20
29	21		interface
30	22
31	23		procedure subHilfe;
32	24
33	25		implementation
34	26
35	27		procedure subHilfe;
36	28		begin
37	29		// hier steht die Hilfe für die Konsolenausgabe
38	30		WriteLn('...');
39	31		end;
40	32
41	33		end.
42	34		```
43	35
44	36		# Parameterauswertung
45	37
46	38		Beispiel für die Parameterauswertung:
47	39		```
48	40		unit uParameter;
49	41
50	42		{$mode objfpc}{$H+}
51	43		{$IMPLICITEXCEPTIONS OFF}
52	44
53	45		interface
54	46
55	47		uses
56	48		SysUtils;
57	49
58	50		// hier können noch mehr Funktionen und Prozeduren deklariert werden
59	51		function funHatParameter: boolean;
60	52		function funHatHilfeParameter: boolean;
61	53
62	54		implementation
63	55
64	56		function funHatParameter: boolean;
65	57		begin
66	58		Result := False;
67	59
68	60		// Prüft, ob es Parameter jenseits
69	61		// von ParamStr(0) gibt
70	62		if ParamCount > 0 then
71	63		Result := True;
72	64		end;
73	65
74	66
75	67
76	68		function funHatHilfeParameter: boolean;
77	69		var
78	70		intI: integer;
79	71
80	72		begin
81	73
82	74		// Prüft alle übergebenen Parameter, ob einer von Ihnen die Hilfe aufruft
83	75		// ParamStr(0) enthält immer Pfad und Dateiname
84	76		for intI := 1 to ParamCount do
85	77		begin
86	78		// Wandelt den Parameter in Kleinbuchstaben um
87	79		case LowerCase(ParamStr(intI)) of
88	80		'-?', '--?', '/?':
89	81		Result := True;
90	82		'-h', '--h', '/h':
91	83		Result := True;
92	84		'-help', '--help', '/help':
93	85		Result := True;
94	86		'-hilfe', '--hilfe', '/hilfe':
95	87		Result := True;
96	88		else
97	89		Result := False;
98	90		end;
99	91		end;
100	92
101	93		end;
102	94
103	95		end.
104	96		```
105	97
106	98		# Hauptprogramm
107	99
108	100		Beispiel für das Hauptprogramm:
109	101		```
110	102		...
111	103
112	104		uses
113	105		uParameter, uHilfe, ...;
114	106
115	107		...
116	108
117	109		// Prüft, ob das Programm mit Parametern gestartet wurde
118	110		if uParameter.funHatParameter = True then
119	111		begin
120	112
121	113		// Prüft, ob an der Konsole / Terminal die Hilfe angefordert wurde
122	114		if uParameter.funHatHilfeParameter = True then
123	115		begin
124	116
125	117		// Gibt die Hilfe aus
126	118		uHilfe.subHilfe;
127	119
128	120		// Beendet das Programm mit dem Rückgabewert 0
129	121		// d. h. es sind keine Fehler aufgetreten
130	122		Halt(0);
131	123		end;
132	124
133	125		// unter Umständen weitere Prüfungen auf Parameter
134	126
135	127		...
136	128
137	129		else
138	130
139	131		// Was passiert, wenn das Programm ohne Parameter gestartet wurde
140	132
141	133		end;
142	134
143	135		...
144	136		```
145	137
146	138		---
147	139		From the Free Pascal wiki, page "Console parameters/de", as the Internet Archive kept it on 2025-03-27, last changed on 2020-02-12. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history