Const/de
│
Deutsch (de) │
English (en) │
español (es) │
suomi (fi) │
français (fr) │
中文(中国大陆) (zh_CN) │
Zurück zu den Datentypen.
Zurück zu den reservierten Wörtern.
const
Allgemeines zu Konstanten
Mit dem Schlüsselwort const beginnt die Deklaration der Konstanten.
Es gibt zwei Arten von Konstanten:
- untypisierte Konstanten
- typisierte Konstanten
Unypisierte Konstanten
Einer untypisierten Konstanten kann nur einmal und zwar zum Zeitpunkt ihrer Deklaration (Bekanntmachung, Erstellung) ein Wert zugewiesen werden. Dieser Wert kann während der Laufzeit des Programmes nicht mehr geändert werden.
Für untypisierte Konstanten können einfache Datentypen verwendet werden.
Beispieldeklaration untypisierter Konstanten:
const
IntegerZahl = 210; // Konstante vom Datentyp Integer
FliesskommaZahl = 2.1; // Konstante vom Datentyp Fliesskomma
TextString = 'Änderung'; // Konstante vom Datentyp String
Buchstabe = 'F'; // Konstante vom Datentyp String und vom Datentyp Char
Typisierte Konstanten
Bei typisierten Konstanten wird der Konstanten ein bestimmter Datentyp zugewiesen. Damit ist es möglich neben einfachen Datentypen, einer typisierten Konstanten z.B. auch Records und Arrays zuzuweisen.
Im Gegensatz zu untypisierten Konstanten kann der Wert einer typisierten Konstanten zur Laufzeit des Programms geändert werden.
Damit bietet unter Pascal die typisierte Konstante eine ähnliche Funktionalität, wie es in anderen Programmiersprachen der Befehl static bietet.
Beispieldeklaration typisierter Konstanten:
const
Steuersatz: Single = 18.0;
// Konstante Array aus 6 Buchstaben.
Alpha: array[1..6] of Char = ('A', 'B', 'C', 'D', 'E', 'F');
// Andere Variante für Char.
Ziffer: array[0..5] of char = '123456';
// Als record.
rec: record
x, y, z: integer;
end
= (x: 123; y: 456; z: 789);
// Verschachtelt
rec2: record
x, y, z: integer;
f: record
a, b: single;
end;
c: array[0..5] of char;
end
= (x: 123; y: 456; z: 789;
f: (a: 1.2; b: 3.4);
c: '123456');
Verwendung function/procedure-Kopf
Wird const im function/procedure-Kopf verwendet, dann wird (regelmäßig, nicht zwingend) nur ein Zeiger der Variable übergeben. Bei dem Beispiel mit dem String, würde es ohne const den ganzen String bei der Übergabe kopieren.
Dies könnte man auch mit var machen, aber dann wäre es nicht möglich eine Konstante der function/procedure zu übergeben.
Dafür kann die Variable in der function/procedure nicht geändert werden.
procedure Ausgabe(const s :String);
begin
WriteLn(s);
end;
var
s1: string;
begin
s1 := 'Ein String';
Ausgabe(s1);
Ausgabe('Hello World !'); // Auch als Konstante möglich.
end.