Guest User

Untitled

a guest
Jul 17th, 2017
84
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.   VGameA: TGameA;
  3.   VGameB: TGameB;
  4.   a: TypeA;
  5.   b: TypeB;
  6. begin
  7.   if Assigmed(game) then begin
  8.     if (game is TGameB) then begin
  9.       VGameB := game as TGameB;
  10.       b := VGameB.B;
  11.     end else if (game is TGameA) then begin
  12.       VGameA := game as TGameA;
  13.       a := VGameA.A;
  14.     end;
  15.   end;
RAW Paste Data