Получить слова с Longint Опции

[Bokul]

Как получить старшее и младшее слово с longint?

[Bokul]

Думаю твой пример надо запостить в Faq.

[Malice]

Еще варианты:

1:

type tp= record case byte of
0: (l:longint);
1: (lo,hi:word);
end;
var x:tp;

begin
x.l:=70000;
writeln (x.lo,' ',x.hi);
end.

2.

function loWord (x:longint):longint;
begin
loword:=x and $FFFF;
end;
function hiWord (x:longint):longint;
begin
hiword:=x shr 16;
end;

2-ой поправиленее, т.к. не требует смены типа для каждой longint переменной.