fpc/tests/webtbs/tw7817b.pp
Jonas Maebe efee92be40 * fixed unit name
git-svn-id: trunk@5415 -
2006-11-17 15:33:34 +00:00

14 lines
127 B
ObjectPascal

{$mode macpas}
{$inline on}
uses
tw7817a;
var
byteorder: cfbyteorder;
begin
byteOrder := CFByteOrderGetCurrent;
end.