Delphi INI 파일 인스턴스(2)

1. INI 파일 읽기와 쓰기
INI 파일의 구조:주석 [소절 이름] 키워드 = 값
 

uses IniFiles;  {uses    TIniFile    }

var

  ini: TIniFile;

  path: string;         {ini     }

  Section,Key: string;  {     ini          }

{

  ini    :

  ;  

  [   ]

     = 

  INI    : string、integer、boolean、Date、Time、DateTime、Double       

  string      

  boolean      1、0   

}

procedure TForm1.FormCreate(Sender: TObject);

begin

  path := ChangeFileExt(ParamStr(0),'.ini');

  ini := TIniFile.Create(path);  {ini             ,          Windows  }

end;

//   ini   :

procedure TForm1.Button1Click(Sender: TObject);

begin

  Section := 'AAA';

  Key := 'AString';

  ini.WriteString(Section,Key,'AAA-String');

  Key := 'AInteger';

  ini.WriteInteger(Section,Key,111);

  Key := 'ABoolean';

  ini.WriteBool(Section,Key,True);

  Key := 'ADate';

  ini.WriteDate(Section,Key,Now);

  Key := 'ATime';

  ini.WriteTime(Section,Key,Now);

  Key := 'ADateTime';

  ini.WriteDateTime(Section,Key,Now);

  Key := 'ADouble';

  ini.WriteFloat(Section,Key,Pi);

  Section := 'BBB';

  Key := 'BString';

  ini.WriteString(Section,Key,'BBB-String');

  Key := 'BInteger';

  ini.WriteInteger(Section,Key,222);

  Key := 'BBoolean';

  ini.WriteBool(Section,Key,True);

  Key := 'BDate';

  ini.WriteDate(Section,Key,Now);

  Key := 'BTime';

  ini.WriteTime(Section,Key,Now);

  Key := 'BDateTime';

  ini.WriteDateTime(Section,Key,Now);

  Key := 'BDouble';

  ini.WriteFloat(Section,Key,Pi);

  Section := 'CCC';

  Key := 'CString';

  ini.WriteString(Section,Key,'CCC-String');

  Key := 'CInteger';

  ini.WriteInteger(Section,Key,333);

  Key := 'CBoolean';

  ini.WriteBool(Section,Key,False);

  Key := 'CDate';

  ini.WriteDate(Section,Key,Now);

  Key := 'CTime';

  ini.WriteTime(Section,Key,Now);

  Key := 'CDateTime';

  ini.WriteDateTime(Section,Key,Now);

  Key := 'CDouble';

  ini.WriteFloat(Section,Key,Pi);

{    :

  [AAA]

  AString=AAA-String

  AInteger=111

  ABoolean=1

  ADate=2007-12-17

  ATime=22:06:23

  ADateTime=2007-12-17 22:06:23

  ADouble=3.14159265358979

  [BBB]

  BString=BBB-String

  BInteger=222

  BBoolean=1

  BDate=2007-12-17

  BTime=22:06:23

  BDateTime=2007-12-17 22:06:23

  BDouble=3.14159265358979

  [CCC]

  CString=CCC-String

  CInteger=333

  CBoolean=0

  CDate=2007-12-17

  CTime=22:06:23

  CDateTime=2007-12-17 22:06:23

  CDouble=3.14159265358979

}

end;

//   ini   :

procedure TForm1.Button2Click(Sender: TObject);

var

  s: string;

  i: Integer;

  b: Boolean;

  f: Double;

  d: TDate;

  t: TTime;

  dt: TDateTime;

begin

  s := ini.ReadString('BBB','BString','');  {          }

  i := ini.ReadInteger('BBB','BInteger',0);

  b := ini.ReadBool('BBB','BBoolean',False);

  f := ini.ReadFloat('BBB','BDouble',0);

  d := ini.ReadDate('BBB','BDate',Now);

  t := ini.ReadTime('BBB','BTime',Now);

  dt := ini.ReadDateTime('BBB','BDateTime',Now);

  ShowMessage(s);                 {BBB-String}

  ShowMessage(IntToStr(i));       {222}

  ShowMessage(BoolToStr(b));      {-1(True)}

  ShowMessage(FloatToStr(f));     {3.14159265358979}

  ShowMessage(DateToStr(d));      {2007-12-17}

  ShowMessage(TimeToStr(t));      {22:06:23}

  ShowMessage(DateTimeToStr(dt)); {2007-12-17 22:06:23}

end;

//         TStrings:

procedure TForm1.Button3Click(Sender: TObject);

var

  List: TStrings;

begin

  List := TStringList.Create;

  ini.ReadSections(List);

  ShowMessage(List.Text);

  {

    AAA

    BBB

    CCC

  }

  List.Free;

end;

//              TStrings:

procedure TForm1.Button4Click(Sender: TObject);

var

  List: TStrings;

begin

  List := TStringList.Create;

  ini.ReadSection('AAA',List);

  ShowMessage(List.Text);

  {

    AString

    AInteger

    ABoolean

    ADate

    ATime

    ADateTime

    ADouble

  }

  List.Free;

end;

//                TStrings:

procedure TForm1.Button5Click(Sender: TObject);

var

  List: TStrings;

begin

  List := TStringList.Create;

  ini.ReadSectionValues('BBB',List);

  ShowMessage(List.Text);

  {

    BString=BBB-String

    BInteger=222

    BBoolean=1

    BDate=2007-12-17

    BTime=22:06:23

    BDateTime=2007-12-17 22:06:23

    BDouble=3.14159265358979

  }

  List.Free;

end;

//     

procedure TForm1.Button6Click(Sender: TObject);

begin

  ini.DeleteKey('BBB','BString');  {     }

  ini.EraseSection('CCC');         {    }

//  ini.UpdateFile;                {     }

{            ,       }

end;

//    

procedure TForm1.Button7Click(Sender: TObject);

var

  b: Boolean;

  s: string;

begin

  b := ini.SectionExists('DDD');         {          }

  b := ini.ValueExists('AAA','AString'); {             }

  s := ini.FileName;                     {     }

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  ini.Free;

end;

end.