Объединение в дельфи?

[VintProg]

Есть объединение на C++

typedef union 
{
	DWORD	dwParam;
	int		nParam;
	float	fParam;
	void *	pParam;
	char *	szParam;
} SCRIPT_VAR;

Вопрос в том как такой определить на дельфи?

[Serge_Bliznykov]

к сожалению совсем не знаю C/C++
но похоже, что в delphi это будет запись с вариантами.

[Tronix]

Может быть записи просто?

Type
      Script_Var = record
            dwParm      : Cardinal;
            nParam      : Integer;
            fParam      : Real;
            szParam     : Char;
      End;
Var
      Script      : Script_Var;
Begin
      Script.dwParm := 123;
      Script.fParam := 2.25;
      WriteLn('Size of structure: ',SizeOf(Script),' bytes');
      ReadLn;
End.

[VintProg]

Tronix
Не это не то.

[Serge_Bliznykov]

так, а запись с вариантами Вас чем не устроила? Имхо, именно то!

Type
  Script_Var = record
      case Integer of
         1:   (dwParm      : Cardinal);
         2:   (nParam      : Integer);
         3:   (fParam      : Real);
         4:   (szParam     : Char);
      End;
Var
      Script      : Script_Var;
Begin
      Script.dwParm := 5000;
      WriteLn(Script.nParam);
      WriteLn('Size of structure: ',SizeOf(Script),' bytes');
      ReadLn;
End.

[VintProg]

так, а запись с вариантами Вас чем не устроила? Имхо, именно то!

Это тоже самое что и union?

[Пепел Феникса]

да тоже самое.

[VintProg]

Ясно, Спасибо.