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

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

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

shreck ©   (2007-03-15 11:16:00) 


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


---

Elen   (2007-03-15 11:58:00) [1]

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

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

---

shreck   (2007-03-15 11:44:00) [2]

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


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

---

Плохиш   (2007-03-15 11:39:00) [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;

---

Elen   (2007-03-15 11:28:00) [4]

Помоему так :

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:20:00) [5]

молча

---

Наверх