Главная страница
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.016 c
8-71271
BJValentine
2002-02-09 20:43
2002.08.22
Эквалайзер


4-71413
Ivan Voronov
2002-06-18 00:50
2002.08.22
Form Refresh


3-70991
AndbyOne
2002-07-31 13:17
2002.08.22
Непонятки


1-71155
Spooky
2002-08-13 14:28
2002.08.22
Регистр символа


1-71166
Андрусь
2002-08-13 18:32
2002.08.22
поясните,пожалуйста,ежели не сложно...