Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Не знаю как сделать type xxx=record 


Василий Свиридов   (2002-02-03 00:08) [0]

Проблема заключается в следующем - мне необходимо описать сетевой пакет. (Свой протокол 7 уровня).

В заголовке пакета есть несколько частей, первые две - тип и флаги.

Оба по три байта, но обращаться нужно побитно.

т.е.
нужно не

type packethdr = record
type = byte; <-- кстати, как указать что здесь их 3?
end;

а примерно
type packehdr = record
t1 = bit; <-- такого нету, я просто для примера
end;

Сумбурно конечно, но люди которые пишут протоколы наверное меня поймут



aus   (2002-02-03 01:45) [1]

Странно, что ты взялся писать протоколы, не зная таких вещей.



~Sergius   (2002-02-03 07:17) [2]

Добрый совет -- начни изучение языка с изучения документации и не лезь в форумы с такими вопросоми. Поскольку засмеют.



panov   (2002-02-03 09:34) [3]

Как мне кажется, для работы с битами лучше описать свой класс, а не пользоваться record.



SoftOne   (2002-02-04 03:14) [4]

В принципе, ты прав. Именно так и нужно.
Замечание первое: если ты не работаеш с Д1, то пиши
type packethdr = packed record.
Byte1 : Byte;
Byte2 : Byte;
Flags : TFlags;
end;
Замечание второе: Битовые флаги, наиболее удобно (ИМХО) использовать через (извини panov, этот класс уже давно существует в паскале) set of. Например, описываем:
FlagsVal=(Flag0,Flag1,Flag2,Flag3,flag4,Flag5,Flag6,Flag7);
TFlags = set of TFlagsVal;



panov   (2002-02-04 08:19) [5]

Вот пример крошечного класса для работы с битами...

type TBit16 = class
private
FByte: Byte;
function GetBit(index: Integer): Boolean;
procedure SetBit(index: Integer; t: Boolean=True);
public
property Value: byte read FByte write FByte;
property Bit[index: Integer]: Boolean read GetBit write Setbit;
end;

function TBit16.GetBit(index: Integer): Boolean;
begin
Result := Boolean(FByte and (1 shl index));
end;

procedure TBit16.SetBit(index: Integer; t: Boolean=True);
begin
FByte := FByte or (1 shl index);
end;



Василий Свиридов   (2002-02-04 08:41) [6]

To Panov :>

Спасибо за помощь.

To остальные :>

Блин, страна советов!
Знаете анекдот -
Почему нельзя заниматься любовью на центральной площади города?
- Будут мешать советами!



SoftOne   (2002-02-05 02:37) [7]

Ничтоже сумняшеся, а для чего городить новый класс для обработки битов одного единственного байта? Чем же не подходит Set? А ведь с помощью Set можно обработать 32 байта! И без дополнительного кода.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
3-66501           Dinara                2002-01-25 11:49  2002.02.21  
Упаковка БД


3-66423           wicked                2002-01-25 15:39  2002.02.21  
асинхронное ADO


1-66559           AntBofh               2002-02-05 08:40  2002.02.21  
Памагите новичку %-)))


3-66450           yaJohn                2002-01-28 14:26  2002.02.21  
ADO, voprosiki prostie.


3-66420           Besa                  2002-01-25 17:11  2002.02.21  
SQL по 2 БД?