TTitanModule

type TTitanModule = class(TStringList)

public

  Name: string;

  FileName: string;

  LanguageName: string;

  Namespaces: TTitanIds;

  S1: Integer;

  P1: Integer;

  C1: Integer;

  S2: Integer;

  P2: Integer;

  C2: Integer;

  IsSource: Boolean;

  BuffStream: TStream;

  Scripter: TTitanBaseScripter;

  constructor Create();

  destructor Destroy; override;

  procedure AddNamespace();

  function GetTextPos();

  procedure _SaveToStream();

  procedure _LoadFromStream();

end;

TTitanModule

TObject