aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Gibt die Ordinalzahl(=ASCII-Code) des Zeichens zurück.

Deklaration

funcion ord(zeichen:char);

Beispiel

uses crt,dos;
var taste:char;

begin
writeln('Programm mit Enter-Taste beenden !');
writeln;
writeln('Taste druecken, von der Sie den ASCII-Code haben wollen !');
writeln;
repeat
taste:=readkey;
writeln('Der ASCII-Code von ',taste,' ist : ',ord(taste));
until taste=#13; { Der ASCII-Code der Entertaste=13 )
end.

---