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

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;

procedure THIGlobalVar.SetData;
begin
   if not _IsNull(Data) then
    _work_doValue(Data,0);
end;

procedure THIGlobalVar.SetData;
begin
   if not _IsNull(Data) then
    _work_doValue(Data,0);
end;

Add(MainForm,10741152,21,105)
{
 Left=20
 Top=105
 Width=177
 Height=131
 Position=1
}
Add(Button,20380,189,189)
{
 Left=25
 Top=45
 Width=120
 Caption="Изменяю 333 на 222"
 Data=String(Изменяю 333 на 222)
 link(onClick,7228754:doEvent1,[])
}
Add(GlobalVar,1967620,406,147)
{
 Name="222"
 Data=Real(22.22)
 Point(doName)
}
Add(GlobalVar,13903320,406,182)
{
 Name="333"
 Data=String(333)
 Point(doName)
}
Add(Label,11904068,21,56)
{
 Left=50
 Top=5
 Width=61
 Height=17
 Caption="222 = 22.22"
}
Add(Label,10049459,406,266)
{
 Left=50
 Top=70
 Width=61
 Height=17
 Caption=""
 AutoSize=1
 Alignment=2
 link(Text,13903320:Var,[])
}
Add(Timer,8038524,189,266)
{
 link(onTimer,10890006:doWork2,[(371,272)])
}
Add(Hub,7228754,245,189)
{
 OutCount=3
 link(onEvent1,8137749:doData,[])
 link(onEvent2,10890006:doWork1,[(375,202)])
}
Add(DoData,8137749,301,189)
{
 Data=String(222)
 link(onEventData,13903320:doName,[(369,195)(369,195)])
}
Add(HubEx,10890006,371,259)
{
 link(onEvent,10049459:doText,[])
}
Add(Label,1245301,21,168)
{
 Left=50
 Top=25
 Width=52
 Height=17
 Caption="333 = 333"
}

procedure THIGlobalVar._work_doName;
var nName:string;
begin
  nName := LowerCase(ToString(_Data));
  if nName<>'' then GData := ForceGVar(nName);
end;

function ForceGVar(const sName:string):PData;
var i:integer;Name:string;
begin
  Result := nil;
  if sName='' then exit;
  Name := LowerCase(sName);
  i := NList.IndexOf(Name);
  if i>=0 then
    Result := PData(NList.Objects[i])
  else begin
    new(Result);
    dtNull(Result^);
    NList.AddObject(Name,cardinal(Result));
  end;
end;

procedure THIGlobalVar.SetName;
begin
  GData := ForceGVar(Value);
end;

procedure THIGlobalVar._work_doName;
begin
  GData := ForceGVar(ToString(_Data));
end;