Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Как заставить локалный Variant не освобождаться?   Найти похожие ветки 

 
SAVwa ©   (2002-08-09 21:23) [0]

var
V: Variant;
begin
V := VarArrayOf("1", 1);
Action1.Tag := Integer(@V);
//V is going to free there
end;

procedure TMyForm.Action1Execute(Sender: TObject);
var
V: Variant;
begin
V := PVariant(Pointer(Action1.Tag))^;
ShowMessage(V[1]); // - error accessing Variant array
end;

Как мне передать вариант через поинтер?


 
Poirot ©   (2002-08-10 01:52) [1]

Скорее всего надо юзать параметры и глобальные переменные... т.к. локальные они и в африке локальные... они уничтожаются после работы подпрограммы... И на их месте может быть что угодно(есть малая вероятность что и ваши данный - но не факт(скорее случайность))
PS: Если кто-то мне напомнит, но я не могу вспомнить переменных типа static (напр как в VB)...


 
Набережных С.   (2002-08-10 10:15) [2]


var
PV:PVariant;
begin
GetMem(PV,SizeOf(Variant));
Action1.Tag := Integer(PV);
PV^:=VarArrayOf(["1",1]);
end;

procedure TMyForm.Action1Execute(Sender: TObject);
var
V: Variant;
begin
V := PVariant(Action1.Tag)^;
ShowMessage(V[1]); // - no error accessing Variant array
end;




Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-71203
nikolo
2002-08-09 12:29
2002.08.22
Как получить список функций и процедур, объявленных в DLL?


1-71216
Ksion
2002-08-10 23:08
2002.08.22
Сравнение строчки и текста.


3-71042
Slin
2002-08-01 16:02
2002.08.22
Господа, подскажите пожалуйста


1-71122
zzet
2002-08-12 21:23
2002.08.22
Игнорировать нажатие


14-71362
ZLOST
2002-07-28 07:22
2002.08.22
Народ,поможите,срочно нужен компонент типа TXPForm можно и Dll-ку