From c2a473ff6534ff03c376dca05f94e3fe33d3c8d3 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 2 Apr 2015 15:24:02 +0100 Subject: ats: Made the AddRow() function publicly visible --- extras/contributed/ats/ats_main.pas | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) (limited to 'extras') 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 @@ TatsTextTable = class 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; -- cgit v1.2.3-54-g00ecf