diff options
Diffstat (limited to 'extras/contributed/ats/ats_main.pas')
-rw-r--r-- | extras/contributed/ats/ats_main.pas | 18 |
1 files changed, 2 insertions, 16 deletions
diff --git a/extras/contributed/ats/ats_main.pas b/extras/contributed/ats/ats_main.pas index e8efb251..767d9774 100644 --- a/extras/contributed/ats/ats_main.pas +++ b/extras/contributed/ats/ats_main.pas @@ -45,43 +45,29 @@ type protected function FindRow(const atextid : string) : TatsTextRow; - - function AddRow(const atextid : string) : TatsTextRow; - public constructor Create; destructor Destroy; override; - procedure Clear; - procedure AddLang(const alangid : string); - procedure SetText(const atextid, alangid, atext : string); function GetText(const atextid, alangid : string; var found : boolean) : string; overload; function GetText(const atextid : string) : string; overload; - // later this can prepare a fast search table too: procedure SelectLang(const alangid : string); - //procedure SetFallbackOrder(const alangids : string); - property CurrentLang : string read FCurrentLangId; - public - function LoadFromFile(const afilename : string) : boolean; - function LoadFromPascalFile(const afilename : string) : boolean; - function LoadFromArray(const aarr : array of string) : boolean; - procedure LoadPureText(const fdata : string); - procedure SaveToFile(const afilename : string; aformat : TatsFormat); - + // utility functions function RowCount : integer; function GetRow(arow : integer) : TatsTextRow; + function AddRow(const atextid : string) : TatsTextRow; property LangList : TStringList read FLangIds; end; |