TPOFile

type TPOFile = class

protected

  FItems: TFPList;

  FIdentifierToItem: TStringHashList;

  FIdentVarToItem: TStringHashList;

  FOriginalToItem: TStringHashList;

  FCharSet: String;

  FHeader: TPOFileItem;

  FAllEntries: Boolean;

  FTag: Integer;

  FModified: Boolean;

  FHelperList: TStringList;

  FModuleList: TStringList;

  procedure RemoveTaggedItems();

  procedure RemoveUntaggedModules;

public

  procedure Create();

  destructor Destroy; override;

  procedure ReadPOText();

  procedure Add();

  function Translate();

  property CharSet: String; [r]

  procedure Report;

  procedure CreateHeader;

  procedure UpdateStrings();

  procedure SaveToFile();

  procedure UpdateItem();

  procedure UpdateTranslation();

  procedure ClearModuleList;

  procedure AddToModuleList();

  procedure UntagAll;

  property Tag: Integer; [rw]

  property Modified: Boolean; [r]

  property Items: TFPList; [r]

end;

TPOFile

TObject