===== Ord()-Funktion =====
\\
==== Einleitung====
Zeichen auf dem Computer werden in Zeichentabellen gespeichert und sind standardisiert. In unserem Sprachraum üblich ist der Zeichensatz LATIN-1 der maximal 256 Zeichen umfasst. Die Zeichen 0-128 entsprechen dabei dem früher gebräuchlichen ASCII-Zeichensatz, der nur 7-bit = 128 Zeichen speichern konnte. Durch die Erweiterung auf 8-bit war es möglich, weitere Zeichen, z.B. das €-Symbol in den Tabellen unterzubringen.

Die [[..:standardfunktionen|Standardfunktion]] Ord() wandelt ein Zeichen in seinen entsprechenden Zahlenwert aus der ANSI (American National Standardization Institute) Tabelle um, orientiert sich aber an dem bei uns gebräuchlichen Zeichensatz, der auch Umlaute einschließt.

\\
==== Syntax ====
^  Befehl | Ord(ch:Char)  |
^  Funktion | Liefert den Zahlenwert für ein Zeichen aus der Zeichentabelle |
^  Rückgabewert | Integer |
\\


==== Codebeispiel ====
{{ :cockpit-xp:addon:standardfunktionen:cp-wiki-ord-funktion.png?nolink|}}

<Code:pascal linenums>const
  CrLf = Chr(13) + Chr(10);
  
var
  zeichenfolge : String;

begin

  zeichenfolge := 'Cockpit-XP' + CrLf +
                  'in Zahlen:' + CrLf +
                  'C: ' + IntToStr(Ord('C')) + CrLf + 
                  'o: ' + IntToStr(Ord('0')) + CrLf +
                  'c: ' + IntToStr(Ord('c')) + CrLf +
                  'k: ' + IntToStr(Ord('k')) + CrLf +
                  'p: ' + IntToStr(Ord('p')) + CrLf +
                  'i: ' + IntToStr(Ord('i')) + CrLf +
                  't: ' + IntToStr(Ord('t')) + CrLf +
                  '-: ' + IntToStr(Ord('-')) + CrLf +
                  'X: ' + IntToStr(Ord('X')) + CrLf +
                  'P: ' + IntToStr(Ord('P'));
  
  cpShowMessage(zeichenfolge);

end.</Code>
 

==== Hinweise ====
Möchte man herausfinden, welches Zeichen einem bestimmten Zahlenwert entspricht, leistet das die [[.:chr|Chr()-Funktion]]. Dort ist auch eine ASCII-Tabelle am Ende eingefügt.

Diese Zahlen darf man nicht mit den Tastencode-Werten verwechseln, die Cockpit.Parameter im [[cockpit-xp:addon:ereignisse:keydown|Event KeyDown]] liefert!

\\
----

[[cockpit-xp:start|Start]] - [[cockpit-xp:faq|FAQ]] - [[cockpit-xp:glossar|Glossar]] - [[cockpit-xp:sitemap|Sitemap]] - [[cockpit-xp:impressum|Impressum]]