Lines Matching refs:Locals
583 Locals: TLocalStorage;
585 Locals.Initialize;
587 Locals.AsInteger['x'] := 2;
588 Locals.AsInteger['X'] := 3;
589 CheckEquals(2, Locals.AsInteger['x']);
590 CheckEquals(3, Locals.AsInteger['X']);
591 CheckEquals(0, Locals.AsInteger['y']);
592 Locals.AsInteger['X'] := Locals.AsInteger['x'] * 2;
593 CheckEquals(4, Locals.AsInteger['X']);
594 CheckEquals(2, Locals.Count);
596 Locals.Finalize;
602 Locals: TLocalStorage;
604 Locals.Initialize;
608 Locals['Z'] := TANTLRString.Create('Value Z');
610 Locals['x'] := TANTLRString.Create('Value x');
611 Locals['X'] := TANTLRString.Create('Value X');
612 CheckEquals('Value x', (Locals['x'] as IANTLRString).Value);
613 CheckEquals('Value X', (Locals['X'] as IANTLRString).Value);
614 Check(Locals['y'] = nil);
616 Locals['X'] := TANTLRString.Create(
617 (Locals['X'] as IANTLRString).Value + ' Update');
618 CheckEquals('Value X Update', (Locals['X'] as IANTLRString).Value);
619 CheckEquals(3, Locals.Count);
621 Locals.Finalize;
