TCartChunk

type TCartChunk = class(TWavFixedDefinedChunk)

protected

  procedure AssignTo(); override;

public

  CartRecord: TCartRecord;

  constructor Create; override;

  class function GetClassChunkSize; override;

  class function GetClassChunkName; override;

published

  property Version: Integer; [rw]

  property Title: string; [rw]

  property Artist: string; [rw]

  property CutID: string; [rw]

  property ClientID: string; [rw]

  property Category: string; [rw]

  property Classification: string; [rw]

  property OutCue: string; [rw]

  property StartDate: string; [rw]

  property StartTime: string; [rw]

  property EndDate: string; [rw]

  property EndTime: string; [rw]

  property ProducerAppID: string; [rw]

  property ProducerAppVersion: string; [rw]

  property UserDef: string; [rw]

  property dbLevelReference: Integer; [rw]

end;

TCartChunk

TWavFixedDefinedChunk

TFixedDefinedChunk

TDefinedChunk

TCustomChunk

TObject,IStreamPersist