제가 일케 코딩을 했거든요. 물론 inifiles 링크했구요.
그런데 에러가 뜨네요. ini를 읽어와서 프로그램에서 변경되는 자료를
저장했다가 그 설정을 그대로 다시 띄우면 되는건데요...
안된를 모르겠습니다.
설정을 바꿔야 하는 것은 메인메뉴의 메뉴들입니다.
이곳 자료를 보니까 지워줘야 하는것도 있고, 그러던데
ini부분을 빼면 에러가 없는데요, ini부분을 추가하면 에러가 뜹니다.
도와주세요. 델파이로 ini는 처음 다루어 보거든요.
책도 찾아보고 했는데 해결이 되질 않습니다.
고수님들의 손길을 기다리겠습니다.
어떨때는 Boolean이던데 메뉴에 체크표시가 되도록 했는데 그것도 Boolean형으로
처리를 해야하는지도 궁금합니다.
좋은 하루 되시고 고수님들의 내공을 나누어주시길 기다리겠습니다.
**** Error Message ***
Project ic.exe raised exception class EAccessViolation with message 'Access
violation at address 00000009. Write of address 845FC000'. Process stopped.
Use Step or Run to contionue.
================ 소스 =====================
procedure TForm1.FormCreate(Sender: TObject);
var
icini : TInifile;
inivalue : array[0..7] of integer;
begin
icini := TiniFile.Create ('C:ic.ini');
//ReadSection
inivalue[0] := ic.ReadInteger('aa','aa1',0);
inivalue[1] := ic.ReadInteger('aa','aa2',1);
.
.
.
.
inivalue[2] := ic.ReadInteger('aa','aa3',0);
inivalue[3] := ic.ReadInteger('aa','aa4',0);
if inivalue[0] = 0 then begin
OFF2.Click;
end else begin
ON2.Click;
end;
.
.
.
if inivalue[6] = 1 then begin
N5.Click;
end else begin
;
end;
if inivalue[7] = 0 then begin
;
end else begin
N8.Click;
end;
ettasicini.Free;
end;
icini로 TIniFile객체를 생성해놓고, ic(TIniFile로 추정...?)로 ini파일에 접근한것
같은데... 또 제거는 ettasicini.Free;로 했네요... 세개가 다 별로 연관성이
없어서... 소스만으로는 이거 외에는 별다른 문제점을 찾을수 없네요...
^^ 항상 즐코하세요...
죠스고기 wrote:
> 제가 일케 코딩을 했거든요. 물론 inifiles 링크했구요.
> 그런데 에러가 뜨네요. ini를 읽어와서 프로그램에서 변경되는 자료를
> 저장했다가 그 설정을 그대로 다시 띄우면 되는건데요...
> 안된를 모르겠습니다.
> 설정을 바꿔야 하는 것은 메인메뉴의 메뉴들입니다.
> 이곳 자료를 보니까 지워줘야 하는것도 있고, 그러던데
> ini부분을 빼면 에러가 없는데요, ini부분을 추가하면 에러가 뜹니다.
> 도와주세요. 델파이로 ini는 처음 다루어 보거든요.
> 책도 찾아보고 했는데 해결이 되질 않습니다.
> 고수님들의 손길을 기다리겠습니다.
> 어떨때는 Boolean이던데 메뉴에 체크표시가 되도록 했는데 그것도 Boolean형으로
> 처리를 해야하는지도 궁금합니다.
> 좋은 하루 되시고 고수님들의 내공을 나누어주시길 기다리겠습니다.
>
> **** Error Message ***
>
> Project ic.exe raised exception class EAccessViolation with message 'Access
> violation at address 00000009. Write of address 845FC000'. Process stopped.
> Use Step or Run to contionue.
>
> ================ 소스 =====================
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> icini : TInifile;
> inivalue : array[0..7] of integer;
> begin
>
> icini := TiniFile.Create ('C:ic.ini');
> //ReadSection
>
> inivalue[0] := ic.ReadInteger('aa','aa1',0);
> inivalue[1] := ic.ReadInteger('aa','aa2',1);
> .
> .
> .
> .
> inivalue[2] := ic.ReadInteger('aa','aa3',0);
> inivalue[3] := ic.ReadInteger('aa','aa4',0);
>
> if inivalue[0] = 0 then begin
> OFF2.Click;
> end else begin
> ON2.Click;
> end;
>
> .
> .
> .
>
> if inivalue[6] = 1 then begin
> N5.Click;
> end else begin
> ;
> end;
> if inivalue[7] = 0 then begin
> ;
> end else begin
> N8.Click;
> end;
> ettasicini.Free;
> end;
>