мы на Delphi Sources или где?
Код:
with TStack.Create do
begin
Push(Pointer(a));
Push(Pointer(b));
Push(Pointer(c));
Push(Pointer(d));
a:=Integer(Pop);
d:=Integer(Pop);
c:=Integer(Pop);
b:=Integer(Pop);
Free;
end;
__________________
Пишу программы за еду.
__________________
|