Teil-Records aus Stream lesen

[marabu]

Hallo Michael,

ich hatte dir unterstellt, dass du den feinen Unterschied zwischen String[6] und array [0..5] of Char nicht kennst - entschuldige.

Dein Problem kannst du viel einfacher lösen:

Delphi-Quellcode:

type
  TGIF_Header = packed record
    Signature: array [0..2] of Char;
    Version: array [0..2] of Char;
  end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  gh: TGIF_Header;
begin
  gh.Signature := 'GIF';
  gh.Version := '89a';
  ShowMessage(Format('<%s> <%s>', [String(gh.Signature), String(gh.Version)]));
end;

Du brauchst kein getürktes Längenbyte.

Freundliche Grüße