Turbo Pascal - Teil 5
Mit Zeichenketten (Strings) arbeiten !
Ein String ist eine einfache Zeichenkette, welche maximal 255 Zeichen
lang sein kann.
Die String-Deklaration erfolgt nach folgendem Muster :
Var Kette : string[50];
In den eckigen Klammern gibt man die Maximallänge der Stringvariablen ein.
Dieser Wert darf aber 255 nicht Überschreiten !
Läßt man die eckigen Klammern mit Längenangabe weg, so erhält der String
automatisch eine maximale Länge von 255.
Folgende Merkmale weist der String auf :
Die Maximallänge eines String's beträgt 255 Zeichen.
Ein String besteht nur aus Elementen des Datentyps Char.
Die Größe eines Strings wird vom Programmierer innerhalb der
vorgegebenen Maximallänge variabel.
Befehle für die Arbeit mit Strings :
| Concat |
Verbindet zwei oder mehrere Stringteile miteinander. Sie können
aber auch "+" für diesen Befehl verwenden.
Syntax :
Concat(Kette1,Kette2);
oder
Kette1+Kette2;
Beispiel :
Procedure Test;
VAR ZKette1,ZKette2,ZKette3 : string;
Begin
ZKette1 := 'Guten';
ZKette2 := 'Tag';
ZKette3 := concat(ZKette1,ZKette2);
End;
|
| Copy |
Gibt einen bestimmten Teil eines Strings an.
Syntax :
Copy(Zeichenkette,Anfang,Anzahl);
Zeichenkette steht für die Variable des Strings.
Anfang steht für die Position, ab welcher der Teilstring kopiert werden soll.
Anzahl steht für die Anzahl der Zeichen, welche kopiert werden sollen.
Anfang und Anzahl sind vom Typ Integer.
Beispiel :
Procedure Kopiere;
VAR Kette1, Kette2 : string;
Begin
Kette1 := 'Hallo';
Kette2 := copy(Kette1,1,5);
End;
|
| Delete |
Löscht X Zeichen ab der Position A im String Kette.
Syntax : Delete(Kette,A,X);
A und X sind vom Typ INTEGER .
Beispiel :
Procedure Lösche;
VAR Kette1, Kette2 : string;
Begin
Kette1 := 'HIHALLO';
Kette2 := Delete(Kette1,1,2);
End;
|
| Insert |
Fügt den String ZKette ab der Position A in den String ZKette2 ein.
Syntax : Insert(ZKette,ZKette2,A);
Beispiel :
Procedure Einfueg;
VAR Kette1,Kette2 : string;
Begin
Kette1 := 'Hallo';
Kette2 := 'Welt';
Kette1 := Insert(Kette2,Kett1,7);
End;
|
| Length |
Liefert die Länge des Strings zurück.
Syntax : Length(zeichekette);
Zeichenkette steht für die Variable des Strings.
Beispiel :
Procedure Länge;
Var Zeichenkette : string;
Länge : integer;
Begin
Zeichenkette := 'Hallo';
Länge := length(zeichenkette);
writeln(' Der String besteht aus ',Länge,' Zeichen .');
End;
|
| Pos |
Liefert die Position des Vorkommen eines Strings innerhalb eines anderen.
Syntax : pos(Teilkette,Zeichenkette);
Teilkette steht für die Variablen eines Teils der Zeichenkette.
Zeichenkette ist die Variable für den String.
Beispiel :
Procedure Position;
Var Kette : string;
Begin
Kette := 'Surfen ist cool';
writeln('Das Wort "ist" steht an folgender Stelle : ',pos('ist',Kette));
End;
|
| Val |
Übergibt die Zeichenkette als Integer- oder Real-Wert an eine entsprechende Variable.
Syntax : val(kette,zahl);
Kette steht für die String-Variable.
Zahl steht für eine numerische Variable.
Beispiel :
Procedure Wandle;
Var kette : string;
zahl : integer;
Begin
kette := '99';
zahl := val(kette,zahl);
writeln(zahl);
|
| Str |
Übergibt einen nummerischen Wert als String an eine entsprechende Variable.
Syntax : str(zahl,kette);
Zahl steht für eine nummerische Variable.
Kette steht für eine String-Variable.
Beispiel :
Procedure Wandle_2;
Var Zahl : integer;
Kette : string;
Begin
Zahl := 100;
Kette := str(zahl,kette);
writeln(kette);
End;
|
|