summaryrefslogtreecommitdiff
path: root/extras/contributed/ats/ats_main.pas
diff options
context:
space:
mode:
Diffstat (limited to 'extras/contributed/ats/ats_main.pas')
-rw-r--r--extras/contributed/ats/ats_main.pas18
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;