TPOFile

type TPOFile = class

protected

  FItems: TFPList;

  FIdentifierLowToItem: TStringToPointerTree;

  FOriginalToItem: TStringHashList;

  FCharSet: string;

  FHeader: TPOFileItem;

  FAllEntries: Boolean;

  FTag: Integer;

  FModified: Boolean;

  FHelperList: TStringList;

  FPoName: string;

  function Remove();

  function GetCount;

  procedure SetCharSet();

  function GetPoItem();

  procedure ReadPOText();

public

  constructor Create();

  destructor Destroy; override;

  function Translate();

  property CharSet: string; [r]

  procedure Report();

  procedure CreateHeader;

  procedure UpdateStrings();

  procedure SaveToStrings();

  procedure SaveToFile();

  procedure UpdateItem();

  procedure FillItem();

  procedure UpdateTranslation();

  procedure UntagAll;

  procedure RemoveTaggedItems();

  procedure RemoveIdentifier();

  procedure RemoveOriginal();

  procedure RemoveIdentifiers();

  procedure RemoveOriginals();

  property Tag: Integer; [rw]

  property Modified: Boolean; [r]

  property Items: TFPList; [r]

  procedure CleanUp;

  property PoName: string; [r]

  property PoRename: string; [w]

  property Statistics: TTranslationStatistics; [r]

  procedure InvalidateStatistics;

  function FindPoItem();

  function OriginalToItem();

  property PoItems []: TPOFileItem; [r]

  property Count: Integer; [r]

  property Header: TPOFileItem; [r]

end;

TPOFile

TObject