Q&A

  • ini파일 질문이요~
도와주세요~ ㅠ_ㅠ

ini파일을 만들려고 하는대요
그러니까 ini파일에 카운트를 하게하려는대
카운트가 30회가 되면 프로그램 실행을 못하게 할려는것을
만들려고합니다
종료버튼을 누를
2  COMMENTS
  • Profile
    Marek 2007.07.10 02:15
    안녕하세요.
    아래와 같이 해보시면 되구요..델파이 Help를 보시면 샘플코드가 있으니
    참조하세요..

    Marek...

    <!--CodeS-->
    procedure TForm.Button1Click(Sender: TObject);
    var
      strFilePath, strCount : string;
      
    begin
      strFilePath := ExtractFilePath(Application.ExeName);  //프로그램 실행경로
      //Count 읽기
      if FileExists(strFilePath + 'Config.ini') then
      begin
         MyIniFile := TIniFile.Create(strFilePath + 'Config.ini');
         strCount := MyIniFile.ReadString('TEST', 'COUNT', '');
         MyIniFile.Free;
       end;

      //Count 증가후 쓰기  --> FormCreat에 위 Count읽기를 넣으시고
      //strCount가 '30'일 경우 FormClose하면 제한기능이 됩니다.
      if FileExists(strFilePath + 'Config.ini') then
      begin
        MyIniFile := TIniFile.Create(strFilePath + 'Config.ini');
        MyIniFile.WriteString('TEST', 'COUNT', IntToStr(StrToInt(strCount)+1));
        MyIniFile.Free;
      end;
    end;
    <!--CodeE-->

  • Profile
    마이크로김 2007.07.12 22:38

    예전에 제가 프로그램을 못짜서 그런지
    ini 파일에 많은 I/O 처리시 count 증가 하지 않더라구요
    그래서 저는 text 파일을 이용후 I/O 시 에러는 없어졌습니다
    참조하세요