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

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

← →
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;


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

---

← →
Elen ©   (2007-03-15 11:58) [5]

> Плохиш ©   (15.03.07 11:39) [3]

Точно. Приношу свои извинения.

---

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

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



Память: 0.46 MB
Время: 0.027 c