Сообщение от
Smalovsky
Когда будет поддержка типов записей?
У меня уже есть Работает, правда, всё это очень медленно, но мы и над этим когда-нибудь поработаем
Код:
type
tPoint=record x,y:byte; end;
procedure putpixel(const point:tPoint);
var
x,y,a:word;
begin
x:=point.x;
y:=point.y;
a:=((y and 7) shl 8) + ((y and $38) shl 2) + ((y and $c0) shl 5);
a:=a+$4000+(x shr 3);
mem[a]:=mem[a] or (128 shr (x and 7));
end;
procedure test_rec;
var
i:byte;
pnt:tPoint;
begin
for i:=1 to 100 do
begin
pnt.x:=i*2;
pnt.y:=i;
putpixel(pnt);
end;
end;
begin
// ...
test_rec;
// ...
end.