equal
deleted
inserted
replaced
63 begin |
63 begin |
64 with tl do |
64 with tl do |
65 s:= str; |
65 s:= str; |
66 end; |
66 end; |
67 |
67 |
68 function RegisterVariable(Name: string; VType: TVariableType; p: pointer; Trusted: boolean): PVariable; |
68 function RegisterVariable(Name: shortstring; VType: TVariableType; p: pointer; Trusted: boolean): PVariable; |
69 var value: PVariable; |
69 var value: PVariable; |
70 begin |
70 begin |
71 New(value); |
71 New(value); |
72 TryDo(value <> nil, 'RegisterVariable: value = nil', true); |
72 TryDo(value <> nil, 'RegisterVariable: value = nil', true); |
73 FillChar(value^, sizeof(TVariable), 0); |
73 FillChar(value^, sizeof(TVariable), 0); |