Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c