Сишные аналоги

[Matich]

Код: Выделить всё

typedef union{
  short W;
  struct{
      byte l,h;
  } B;
} word;

Можно ли что-то похожее сделать на pascal?

[alexs]

простейшая запись с вариантами

Код: Выделить всё

type
  TUnion = record
     case byte of
       1:(W:short);
       2:(h,l:byte);
     end
  end

кажется так - писал по памяти
вобще это в любом учебнике по паскалю есть

[e-moe]

можно еще и с Absolute поиграться

[Sergei I. Gorelkin]

Тот тип, что описан - это WordRec

[alexs]

я ему принцип показал - а так, конечно - есть куча уже определённых типов - просто иногда полезно полазить по стандартным библиотекам - много интересного для себя узнаёш, иногда понимаеш, что ты - ВЕЛОСЕПЕДИСТ

p.s. А интересно - человек не с LOR-а пришёл - там буквально на днях ьподобный вопрос задали...

[Tariel]

Не совсем правильно написано на паскале, если дословно переписывать:

Код: Выделить всё

type
  TB = record
     h,l:byte;
  end;
 TUnion = record
     W:short;
     B:TB;
  end;
var
  word:TUnion;

[Brainenjii]

Можно и проще

Код: Выделить всё

Type
  TUnion = record
    W: ShortInt;
    TB: record
       h,l: Byte;
    End;
End;

[alexs]

я написал запись с вариантами - может просто я не понял сишный аналог- там запись - в записи?

[Brainenjii]

Вроде да, union - объединение struct'ов...

[Matich]

На сях:

Код: Выделить всё

#include <stdio.h>

typedef union{ 
  short W; 
  struct{ 
      unsigned char l,h; 
  } B; 
} word;


main(){
  word A;
  A.B.l = 0x10;
  A.B.h = 0x20;
  printf("%x", A.W);
  return 0;
}
//EOF


bash#./test
bash#2010

на FPC:

Код: Выделить всё

type
  TB = record
     h,l:byte;
  end;
 TUnion = record
     W : word;
     B : TB;
  end;
var
  wrd : TUnion;

begin
  wrd.B.l := 10;
  wrd.B.h := 20;
  writeln(wrd.W);
  readln;
end.


#./test
#0

[bw]

Код: Выделить всё

type
  TUnion = record
  case Boolean of
    False: (W: Word);
    True : (B: record
      l, h: Byte;
    end);
  end;

var
  U: TUnion;
begin
  U.B.l := $10;
  U.B.h := $20;
  WriteLn(HexStr(U.W, 4));
end.

..bw

[Matich]

bw

Спасибо.
Работает, но только вот немного не понятно с true и false.

[bw]

Можешь использовать другие типы, обычно это Integer. Это такой синтаксис. Можно, например, сделать так:

Код: Выделить всё

type
  TUnion = packed record
  case Size: Byte of
    1: (B: record l, h: Byte; end);
    2: (W: Word);
  end;

var
  U: TUnion;
begin
  WriteLn(SizeOf(U));
  U.Size := 2;
  U.B.l := $10;
  U.B.h := $20;
  WriteLn('Word: ', HexStr(U.W, 4));
  WriteLn('Size: ', U.Size);
end.

Если в предыдущем примере размер структуры был равен 2 байтам, то в этом - трем.

..bw