Changeset 5 for trunk/StringTables.pas

Timestamp:

Jan 7, 2017, 11:20:43 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Use AnsiChar/AnsiString for loading texts from string tables.

File:

• trunk/StringTables.pas (modified) (4 diffs)

trunk/StringTables.pas

@@ -9 +9 @@
 
 type
-TCharList=array[0..9999999] of char;
+TCharList=array[0..9999999] of AnsiChar;
 
 TStringTable=class
   constructor Create;
   destructor Destroy; override;
-  function LoadFromFile(const FileName: string): boolean;
-  function GetHandle(const Item: string): integer;
+  function LoadFromFile(const FileName: String): boolean;
+  function GetHandle(const Item: AnsiString): integer;
   function LookupByHandle(Handle: integer; Index: integer =-1): string;
   function Lookup(const Item: string; Index: integer =-1): string;
@@ -22 +22 @@
   Count: integer;
   Data: ^TCharList;
-  Lines: array[0..MaxCount-1] of PChar;
+  Lines: array[0..MaxCount-1] of PAnsiChar;
   end;
 
@@ -42 +42 @@
 end;
 
-function TStringTable.LoadFromFile(const FileName: string): boolean;
+function TStringTable.LoadFromFile(const FileName:string): boolean;
 var
 nData, i: integer;
@@ -71 +71 @@
 end;
 
-function TStringTable.GetHandle(const Item: string): integer;
+function TStringTable.GetHandle(const Item: AnsiString): integer;
 var
 i,l: integer;