Дано това ти помогни да разбереш защо



unit Unit1;

interface

type
tRec = record
a : integer;
b : integer;
c : byte;
end;
tArr = array[0..8] of byte;

{}function Glupost(var Arr: tArr): tRec;

implementation

{}function Glupost(var Arr: tArr): tRec;
var
x: tRec absolute Arr;
begin
move(x,Result,sizeOf(Result));
end;

end.

Редактирано от NikB на 26.02.04 09:45.