Показать сообщение отдельно
  #40  
Старый 24.10.2012, 20:36
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Params не трогай. Его оставь как есть.
Просто для VAR переменных если обычно Params[i] := value, то теперь
Код:
var value: pointer;
...
value := GetMem(n); // тут размер типа
Integer(value^) := VAL; // VAL - передаваемое число, integer для примера
pVar[i].addr := value;
pVar[i].type :=  0; // для примера опять же, пусть 0 означает integer 
inc(i);
Params[count] = DWORD(value);
inc(count);
Примерно. А если переменная не VAR, то все как прежде.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием