【델파이】INI 파일 읽고 쓰기

델파이에서는 INI파일을 읽고 쓰는 것이 정말 간단한 것같다.
예제만 봐도 알기 쉬우니까...

procedure TfrmMain.btnTestClick(Sender: TObject);
var
  iniSet:TIniFile;
  sFile :string;
  iT1   :integer;
  sT    :string;
  bT    :bool;
begin
  sFile := 'temp.ini';

  // INI파일 만들기(기존에 파일있는 경우는 파일 열기로 됨)
  iniSet := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    // INI파일에 정수 쓰기
    iniSet.WriteInteger('Section', 'Num', 33);
    // INI파일에 문자열 쓰기
    iniSet.WriteString('Section', 'String', 'TESTINI');
    // INI파일에 Bool형 쓰기
    iniSet.WriteBool('Section', 'Bool', true);
  finally
    // INI파일 닫기
    iniSet.Free;
  end;

  iniSet := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    // INI파일에 정수 읽기
    iT1 := iniSet.ReadInteger('Section', 'Num', 1);
    // INI파일에 문자열 읽기
    sT := iniSet.ReadString('Section', 'String', 'New Form');
    // INI파일에 Bool형 읽기
    bT := iniSet.ReadBool('Section', 'Bool', false);
  finally
    iniSet.Free;
  end;
end;



-------------------------

uese에 IniFiles 추가할 것

-------------------------

모르고 아래와 같이 코딩을 했다가 밑의 워닝이 떴다.
[Pascal Warning] uMain.pas(168): W1036 Variable 'iniSet' might not have been initialized
왜 뜨는지 모르고 몇일 간 해맸는데 오늘에야 이유를 찾았다.

  try
    iniSet := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
    iT1 := iniSet.ReadInteger('Section', 'Num', 1);
  finally
    iniSet.Free;
  end;

try 안에 TIniFile을 생성해서 문제가 되었었다.
알고나면 쉬운 것을 몇일이나 해맸다.
W1036 에러를 찾아봤지만 제대로 검색되지 않았다.

  iniSet := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    iT1 := iniSet.ReadInteger('Section', 'Num', 1);
  finally
    iniSet.Free;
  end;