Показать сообщение отдельно
  #11  
Старый 05.09.2011, 19:32
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

мы на 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;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием