fpcsrc/tests/webtbs/tw7817b.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{$mode macpas}

{$inline on}

uses
  tw7817a;

var
  byteorder: cfbyteorder;
begin
  byteOrder := CFByteOrderGetCurrent;
end.