摘要：
1.创建一个全局的HASH表initialization g_hash := THashedStringList.Create;finalization FreeAndNil(g_hash);2.往全局HASH表里面写入 INI文件的指定小节(字符串定义集中放在一个小节里面)读取到的所有行，每次更选择语言以后都要执行此操作。ini.ReadSectionValues('messages', g_hash);3.所有需要使用字符串变量从这个全局HASH表中检索function GetHashStr(const key: string): string;begin Result : 阅读全文
摘要：
一、有必要了解 INI 文件的结构：;注释 [小节名] 关键字=值...INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。注释以分号“;”开头。二、定义 1、在Interface的Uses节增加IniFiles；2、在Var变量定义部分增加一行：myinifile:Tinifile; 然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。 三、打开INI文件myinifile:=Tinifile.create('PRog 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); 阅读全文