Aufzählungstyp per indy versenden.....

[Thomas83]

hi,

habe einen Aufzählungstyp und möchte diesen gerne per indy versenden.

Delphi-Quellcode:

Type
  TMyTyp = (mtEins,mrZwei,mtDrei);

...

var
  mytyp : TMyTyp;
begin
  mytyp := mtZwei;  
  fIdTcpClient.WriteBuffer(mytyp,sizeof(TMyTyp)); //<-vielleicht so
  //oder doch
  case mytyp of
    mtEins : fIdTcpClient.WriteInteger(1);
    mtZwei : fIdTcpClient.WriteInteger(2);
    mtDrei : fIdTcpClient.WriteInteger(3);
  end;
  //...
end;