Скачать: CL | DM;

union в Delphi   Найти похожие ветки 

← →
stain   (2002-10-05 23:53) [0]

Скажите как в 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;

---

← →
Оливейра ©   (2002-10-06 01:53) [1]

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

---

← →
stain   (2002-10-06 11:08) [2]

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;
}

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c