ก้าวแรกกับ Delphi ตอนที่ 3 Delphi XE2 อ่าน ไฟล์ INI

  จากตอนที่ 2 ผมกล่าวถึงปัญหาการใช้ Component ที่ใช้สร้าง Turbo HOSxP ในเรื่องของ INI File ใช้ไม่ได้กับ Delphi Xe2 ครับ  ผมจึงเลือกที่จะประยุกต์ใช้ ผมทำดังนี้ครับ (ขอข้ามขั้นตอนการสร้าง Form ไปเลยนะครับ) ผมเพิ่ม System.IniFiles ลงใน uses พิมพ์ system ตามด้วย "." แล้วมันจะโชว์ให้เราเลือก

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

unit TiniU;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,

   Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs,system.IniFiles, Vcl.StdCtrls;

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

ในส่วนนี้ อาจใช้กับ Event ของ Button เพราะว่าเป็นคำสั่งอ่าน File INI

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

var

   Ini: TIniFile;

begin

   Ini := TIniFile.Create( ChangeFileExt(Application.ExeName, '.INI' ) );

   try

     Top     := Ini.ReadInteger( 'Form', 'Top', 100 );

     Left    := Ini.ReadInteger( 'Form', 'Left', 100 );

     Caption := Ini.ReadString( 'Form', 'Caption', 'New Form' );

     if Ini.ReadBool( 'Form', 'InitMax', false ) then

       WindowState := wsMaximized

     else

       WindowState := wsNormal;

   finally

      Ini.Free;

   end;

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

ในส่วนของ Source Code ผมจะ Upload ไว้ที่ SourceForge.Net ครับ