| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

union в Delphi

stain ©   (2002-10-05 23:53:00) 

Скажите как в Delphi описать тип который будет аналогом union в C.

Это написано на C:
typedef struct tagRECORD
{
int type;
union
{
char ch;
int i;
double dbl;
};
} RECORD;


void CharToVar(RECORD *ptr, char ch)
{
ptr->type = 1;
ptr->ch = ch;
}

Опишите эту структуру на Delhi:
А то я попытался это сделать, но как-то не получилось:

type
P_VARIANT = ^T_VARIANT;
T_VARIANT = record
index : integer;
case vtvalue : integer of
1: (ch : shortint);
2: (i : integer);
3: (dbl : double);
end;

procedure IntToVar(var pvar : P_VARIANT; i : integer); external "test1.dll";
..............

procedure TForm1.Button1Click(Sender: TObject);
var vtvalue : T_VARIANT;
ptr : P_VARIANT;
i,j : integer;
begin
i:= 1;
ptr := @vtvalue;
IntToVar(ptr,i);
j:= vtvalue.i;
end;

---

stain   (2002-10-06 11:08:00) [1]

void CharToVar(RECORD *ptr, char ch)
{
ptr->type = 1;
ptr->ch = ch;
}

void IntToVar(RECORD *ptr, int i)
{
ptr->type = 2;
ptr->i = i;
}

void DoubleToVar(RECORD *ptr, double dbl)
{
ptr->type = 3;
ptr->dbl = dbl;
}

---

Оливейра   (2002-10-06 01:53:00) [2]

Тогда уж и код IntToVar на сях приводи,
а так - сразу в глаза бросается- нахрена указатель по ссылке передавать?
var pvar : P_VARIANT

---

Наверх