Sign in Join
Wiki copytemporary

$include/de: what changed

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

OldNewLine
11## \$I oder \$INCLUDE
22
33Die Direktive \$INCLUDE oder \$I dient dem Einfügen einer Datei.\
44Die Direktive \$INCLUDE oder \$I fügt an der Stelle an der die Anweisung steht eine Datei ein.\
55Falls die einzufügende Datei keine Dateiendung hat, dann sucht der Compiler nach einer Datei mit der Endung .pp.\
66Die Anzahl der einzufügenden Dateien ist auf die Anzahl der verfügbaren file descriptors des Free Pascal Compilers beschränkt.\
7-\
7+
88Beispiel:\
99
1010``` pascal
1111{$INCLUDE test1.pas} // sucht im aktuellen Verzeichnis nach der Datei test1.pas
1212{$INCLUDE ../test2.pas} // sucht im übergeordneten Verzeichnis nach der Datei test2.pas
1313```
1414
1515## \$I und \$INCLUDE
1616
1717Die Direktiven \$I und \$INCLUDE haben die gleiche Bedeutung.\
1818Die Direktiven \$I und \$INCLUDE unterstützen die gleichen Bezeichner.\
19-\
20-Die Direktiven kennen folgende Bezeichner:\
2119
22-<table>
23-
24-<tr>
25-
26-<td>
20+Die Direktiven kennen folgende Bezeichner:\
2721
2822TIME
2923
30-</td>
31-
32-<td>
33-
3424Gibt das aktuelle Datum und die aktuelle Zeit aus.
3525
36-</td>
37-
38-</tr>
39-
40-<tr>
41-
42-<td>
43-
4426DATE
4527
46-</td>
47-
48-<td>
49-
5028Fügt das aktuelle Datum ein.
5129
52-</td>
53-
54-</tr>
55-
56-<tr>
57-
58-<td>
59-
6030FPCTARGET
6131
62-</td>
63-
64-<td>
65-
6632Fügt den Namen des Zielprozessors ein. Dieser Bezeichner ist deprecated (hinfällig). Der neue Bezeichner heisst FPCTARGETCPU.
6733
68-</td>
69-
70-</tr>
71-
72-<tr>
73-
74-<td>
75-
7634FPCTARGETCPU
7735
78-</td>
79-
80-<td>
81-
8236Fügt den Namen des Zielprozessors ein.
8337
84-</td>
85-
86-</tr>
87-
88-<tr>
89-
90-<td>
91-
9238FPCTARGETOS
9339
94-</td>
95-
96-<td>
97-
9840Fügt den Namen des Zielbetriebsystems ein.
9941
100-</td>
101-
102-</tr>
103-
104-<tr>
105-
106-<td>
107-
10842FPCVERSION
10943
110-</td>
111-
112-<td>
113-
11444Fügt die aktuelle Compilerversion ein.
11545
116-</td>
117-
118-</tr>
119-
120-<tr>
121-
122-<td>
123-
12446FILE
12547
126-</td>
127-
128-<td>
129-
13048Dateiname, in der die Direktive steht.
13149
132-</td>
133-
134-</tr>
135-
136-<tr>
137-
138-<td>
139-
14050LINE
14151
142-</td>
143-
144-<td>
145-
14652Nummer der Zeile, in der die Direktive steht.
14753
148-</td>
149-
150-</tr>
151-
152-<tr>
153-
154-<td>
155-
15654CURRENTROUTINE
15755
158-</td>
159-
160-<td>
161-
16256Name der aktuellen Routine.
16357
164-</td>
165-
166-</tr>
167-
168-</table>
169-
17058Andere Bezeichner werden aus den Umgebungsvariablen des Compiler Prozesses genommen.\
17159Beispiel:
17260
17361``` pascal
17462Program InfoDemo;
17563begin
17664 WriteLn('Compilierzeit: ' + {$I %TIME%});
17765 WriteLn('Compilierdatum: ' + {$I %DATE%});
17866 WriteLn('Erforderliche CPU: ' + {$I %FPCTARGETCPU%});
17967 WriteLn('Erforderliche CPU (veraltet): ' + {$I %FPCTARGET%});
18068 WriteLn('Betriebssystem: ' + {$I %FPCTARGETOS%});
18169 WriteLn('FPC Version: ' + {$I %FPCVERSION%});
18270 WriteLn('Name der Datei: ' + {$I %FILE%});
18371 WriteLn('Aktuelle Zeile als String: ' + {$I %LINE%});
18472 WriteLn('Aktuelle Zeile als Int: ' + IntToStr({$I %LINENUM%}));
18573 WriteLn('Compilierer: ' + {$I %USER%});
18674 WriteLn('Home-Ordner des Benutzers: ' + {$I %HOME%});
18775 WriteLn('Name der aktuellen Routine: ' + {$I %CURRENTROUTINE%});
18876end.
18977```
19078
191-\
192-\
193-Hinweis: Für Infos über Lazarus, kann die Unit <b>LCLVersion</b> eingebunden werden.
79+Hinweis: Für Infos über Lazarus, kann die Unit LCLVersion eingebunden werden.
19480
19581---
19682*From the Free Pascal wiki, page "$include/de", as it stood on 2022-04-09 after a change by PascalDragon, out of the wiki's dump of 2024-05-26. 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