Programmiersprache Pascal

Datentyp STRING

In Pascal ist zu unterscheiden:

• Die Arbeit mit Zeichenketten fester Länge.
  Diese werden realisiert mit Hilfe von Arrays.
  In Standard Pascal ist dies die einzigste Möglichkeit.
• Die Arbeit mit Zeichenketten variabler Länge.
  Diese werden realisiert mit Hilfe des Datentyps STRING.
  Standard Pascal verfügt über diesen Datentyp nicht. In vielen Pascal-Systemen ist er jedoch im Rahmen von - oft nicht zueinander kompatiblen - Spracherweiterungen vorhanden.
  Extended Pascal definiert den Datentyp STRING.

• Zusätzlich zur Zeichenkette wird eine Längeninformation abgespeichert.
  Diese Variante wird in Extended Pascal und in den meisten aktuellen Pascal-Systemen verwendet.
• Der Zeichenkette wird ein spezielles Ende-Zeichen nachgestellt.
  Üblich ist eine binäre Null (Zeichen mit dem Ordinalwert 0).
  Solche Null-terminierten Zeichenketten werden in C verwendet.
  Einige Pascal-Versionen unterstützen (zusätzlich) diese Variante.

Standard Pascal

Eine Zeichenkettenvariable der Länge n wird vereinbart als

  VAR str : PACKED ARRAY [1..n] OF CHAR;

Turbo Pascal

Eine Zeichenkettenvariable der Länge n kann alternativ zur Standard Pascal Variante vereinbart werden als

  VAR str : STRING[n];

Das i-te Zeichen der Zeichenkette str wird mit str[i] angesprochen.
str[0] verschlüsselt die Länge der Zeichenkette.

Für die Manipulation von Variablen vom Typ STRING gibt es den Verkettungsoperator + sowie eine Reihe von speziellen Prozeduren.

Achtung:
Der Turbo Pascal String unterscheidet sowohl in der syntaktischen Handhabung als auch in der internen Darstellung vom String in Extended Pascal !

Ferner kann - ab der Version 7.0 - mit Null-terminierten Zeichenketten gearbeitet werden:

  VAR nstr :  ARRAY [0..n] OF CHAR;

Mit PChar kann ein Zeiger auf eine Null-terminierte Zeichenkette vereinbart werden.

Beispiel:

  VAR s : ARRAY[0..10] OF CHAR;
      p : PChar;

  StrCopy(s, 'Ottokar');
  p1 := @s1;
  Writeln(s, ' ', p^);          { liefert  Ottokar O }

Delphi

Delphi besitzt die Typvarianten

• ShortString (short string)
  entspricht dem Turbo Pascal String
• AnsiString (long string)
  Bei dieser Typvariante wird der benötigte Speicherplatz dynamisch bereitgestellt. Es können auf diesem Wege (theoretisch) bis zu 2 Gigabyte lange Zeichenketten abgespeichert werden.
  Ein long string ist Null-terminiert, d.h. hinter dem letzten Zeichen steht eine binäre Null (wie in C).

XL Pascal

Eine Zeichenkettenvariable der Länge n kann alternativ zur Standard Pascal Variante vereinbart werden als

  VAR str : STRING(n);

Das i-te Zeichen der Zeichenkette str wird mit str[i] angesprochen.

Für die Manipulation von Variablen vom Typ STRING gibt es den Verkettungsoperator + bzw. || sowie eine Reihe von speziellen Prozeduren.

Extended Pascal

Eine Zeichenkettenvariable der Länge n kann alternativ zur Standard Pascal Variante vereinbart werden als

  VAR str : STRING(n);

  STRING = RECORD
             capacity : INTEGER;
             length   : INTEGER;
             string   : PACKED ARRAY[1..capacity] OF CHAR;
           END;

Teilzeichenketten

Teilbereiche einer Zeichenkette können in Extended Pascal wie folgt angesprochen werden:

  [start..stop]

Beispiel:

  VAR s : STRING(10);

  s := 'abcdefghij';
  s[2..3] := 'BC';
  Writeln(s[2..8]);

Gnu Pascal

Gnu Pascal beruht auf Extended Pascal, dies gilt auch für den Umgang mit Zeichenketten.

Daneben läßt Gnu Pascal bei Deklarationen auch die Turbo Pascal Syntax zu.
Beispiel:

  VAR s1 : STRING(20);             { Extended Pascal Syntax }
      s2 : STRING[20];             { Turbo Pascal Syntax }

Literale

Zeichenkettenliterale sind in Apostrophe einzuschließen. Ein Apostroph innerhalb einer Zeichenkette läßt sich durch zwei aufeinanderfolgende Apostrophe darstellen.

Beispiele:

  str1 := 'Pascal';
  str2 := 'Wie geht''s ?';      { Apostroph in Zeichenkette } 
  str3 := '''';                 { Apostroph }
  str4 := '';                   { leere Zeichenkette }

Achtung:
Eine Zeichenkette der Länge 1 unterscheidet sich in der internen Darstellung von einem Zeichen (Datentyp CHAR) !

Standard-Unterprogramme zur Arbeit mit Strings

Extended Pascal

Konvertierungen in das Textformat bzw. aus dem Textformat

ReadStr    liest Daten von einer Zeichenkette
WriteStr   schreibt Daten auf eine Zeichenkette

Eq         Lexikographisch gleich
Ge         Lexikographisch größer oder gleich
Gt         Lexikographisch größer
Le         Lexikographisch kleiner oder gleich
Lt         Lexikographisch kleiner
Ne         Lexikographisch verschieden

Length     ermittelt Länge einer Zeichenkette
Index      ermittelt Anfangsposition einer Teilzeichenkette
Substr     extrahiert eine Teilzeichenkette
Trim       entfernt abschließende Leerzeichen

---

P. Böhme, 09.07.1996