Ord vs. Byte

[Mathias]

Gibt es da einen Unterschied ?
Oder ist Ord() nur ein Relikt aus der TP Zeit ?

Code: Alles auswählen

  WriteLn(Ord('x'));   // -> 120
  WriteLn(byte('x'));  // -> 120

[theo]

RFTM "Historical note":
https://www.freepascal.org/docs-html/rt ... m/ord.html

[Mathias]

Wie ich es vermutet habe.
Ich verwende fast ausschliesslich Byte, und für den Rückweg Char().

[Warf]

Ord funktioniert halt auf beliebigen Ordinaltypen beliebiger Größe. Beispiel:

Code: Alles auswählen

type
  TTest = (A=1337);

begin
  WriteLn(Byte(A)); // 57
  WriteLn(Ord(A)); // 1337
end.

Wenn du einen Typcast machst hast du halt immer die implizite Annahme über die Größe des typen. Wenn du weist das dein Source typ nur 1 Byte groß ist, wie AnsiChar, dann ist Byte ungefährlich. Wenn du allerdings nicht sicher bist, z.b. bei einem Enum das du nicht selbst definierst, nimm besser Ord

[Mathias]

Wenn du einen Typcast machst hast du halt immer die implizite Annahme über die Größe des typen.

Code: Alles auswählen

var
  p:Pointer;
begin
  WriteLn(Ord(1234));    // io.
  WriteLn(Ord('ö'));     // error.
  WriteLn(Ord(p));       // error.

Dies geht leider nicht. Somit sehe ich eigentlich keinen Sinn dahinter. Einen Integer in einen Integer umwandeln braucht man eigentlich gar nicht.

[Warf]

Naja es gibt noch mehr ordinaltypen. Enums oder die diversen bolean Typen (z.b. longbool).

Ord nimmt einen ordinaltypen beliebiger Größe und gibt dir das Ergebnis als integer Typ in der entsprechenden Größe zurück. Also bei einem 2 byte enum gibt dir ord ein word zurück.

Das ist z.b. wichtig wenn du mit generics arbeitest und im Vorhinein nicht weißt wie groß der Typ ist den du in der Hand hälst

[wp_xyz]

Code: Alles auswählen

  WriteLn(Ord('ö'));     // error.

'ö' ist in der von Lazarus verwendeten UTF8-Kodierung kein Char, sondern ein String bestehend aus zwei Chars (#$C3#$B6), also kein Ordinal-Typ.