HiAsm

Форумы Компоненты GlobalVarEx ← Ctrl12 3 4Ctrl →

Разработчик

Ответов: 26066

Рейтинг: 2120

#1: 2006-10-15 12:26:01 ЛС | профиль | цитата

Galkov, все это было нужно для занесения переменной через данные, но, похоже, я перемудрил. Спасибо, исправил, вот так пойдет:

procedure ThiGlobalVarEx._var_Var;
begin
  if (GData <> nil) then
     if (not _IsNull(GData^)) then
        _Data := GData^
     else
        begin
           GData^ := ReadData(_Data,_data_Data,nil);
           _Data := GData^
        end
  else dtNull(_Data);
end;

Проверил, вроде работает. Исправление выложил в Upload и добавил пример.

[size=-2]------ Добавлено в 12:26
Исправленная версия GlobalVarEx.

карма: 22

файлы: 2 code_426.txt [627B] [700], _GlobalVarEx.zip [2.9KB] [558]

Форумы Компоненты GlobalVarEx ← Ctrl12 3 4Ctrl →