Console parameters/de: what changed

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

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