Главная страница
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.012 c
14-71328
Маша
2002-07-26 21:49
2002.08.22
Помощь окажите плиз...


3-70963
НАРИК
2002-07-30 08:39
2002.08.22
создание программы


1-71224
Сергей Плоткин
2002-08-11 14:45
2002.08.22
Как послать сообщение одной копии программы другой?


3-71045
domino
2002-08-01 14:50
2002.08.22
НАРОД подскажите пожалуйста как распечатать содежимое DBGrid


6-71280
newbie1
2002-06-11 14:35
2002.08.22
немогу получить сообщение от сервера