ini 파일 읽기/생성

ini 파일 읽기/생성

 

procedure TForm1.FormCreate(Sender: TObject);

var 

  ini: TIniFile; 

  tmp, iniFileName: String;

begin

  iniFileName := 'c:\test.ini';

 

  ini := TIniFile.Create(iniFileName);

  if FileExists(iniFileName) then begin

    tmp := ini.ReadString('Section', 'value01', '0');

    ShowMessage(tmp);

  end

  else begin

    ini.WriteString('Section', 'value01', '1');

  end;

  ini.Free;

end;