Как в делфях сделать то, что на С выглядит следующим образом:

← →
shreck (2007-03-15 11:16) [0]

union Tb2f { float f; char buff[4]; }; float g(const char *b) { Tb2f b2f; for (int i=0; i<4; ++i) b2f.buff[i] = b[i]; return b2f.f; }

← →
Правильный Вася (2007-03-15 11:20) [1]

молча

← →
Elen © (2007-03-15 11:28) [2]

Помоему так :

union Tb2f
{
float f;
char buff[4];
};
это :
type Tb2f=record f:real; buff: array[0..3] of char end;

float g(const char *b)
{
Tb2f b2f;
for (int i=0; i<4; ++i)
b2f.buff[i] = b[i];
return b2f.f;
}
Это :

Function g(const b:pchar):real; var b2f:Tb2f;i:integer; begin for i:-0 to 3 do begin b2f.buff[i]:=b [i]; end; result:=b2f.f; end;

← →
Плохиш © (2007-03-15 11:39) [3]

> union Tb2f
> {
> float f;
> char buff[4];
> };

type Tb2f = record case Boolean of true: (f: double); false: (buff: array[0..3] of char); end;

← →
shreck (2007-03-15 11:44) [4]

> type Tb2f = record
> case Boolean of
> true: (f: double);
> false: (buff: array[0..3] of char);
> end;

Большое спасибо. Кажется то, что надо.

Как в делфях сделать то, что на С выглядит следующим образом: Найти похожие ветки