ini화일을 읽어 값을 비교 자동 copy되는 프로그램을 하는데 ini화일 자체를 인식을
못하는 건지 찾지를 못하는 것인지 원인을 모르겠읍니다. 고수님들 도와 주세요
****** 제가 작성한 프로시져 ******
procedure TForm1.inifilechk;
var syscomm: TiniFile;
pgnm: string;
vList: TStringList;
begin
pgnm := Exe_Path + 'vchk.ini';
// ini화일의 경로
SysComm := Tinifile.Create(pgnm);
vList := TStringList.Create;
verinfo := syscomm.ReadString('Version',vList[0],'');
// verinfo에 string값을 위치 시켜 값을 비교
end;
예) vchk.ini
[Version]
ver=1
이라고 구성이 되면 1값을 읽어 처리 할 예정인데 ....
이부분을 고치면 될거 같아요..
vList[0]을 ver로 고쳐야 하구요..값이 integer니까.
syscomm.ReadInteger('Version','ver',0);
이렇게 하시면 되겠네요.
저장할때도 WriteIntger을 사용하세요.
초보 wrote:
> ini화일을 읽어 값을 비교 자동 copy되는 프로그램을 하는데 ini화일 자체를 인식을
> 못하는 건지 찾지를 못하는 것인지 원인을 모르겠읍니다. 고수님들 도와 주세요
>
> ****** 제가 작성한 프로시져 ******
> procedure TForm1.inifilechk;
> var syscomm: TiniFile;
> pgnm: string;
> vList: TStringList;
> begin
> pgnm := Exe_Path + 'vchk.ini';
> // ini화일의 경로
> SysComm := Tinifile.Create(pgnm);
> vList := TStringList.Create;
> verinfo := syscomm.ReadString('Version',vList[0],'');
> // verinfo에 string값을 위치 시켜 값을 비교
> end;
>
> 예) vchk.ini
> [Version]
> ver=1
> 이라고 구성이 되면 1값을 읽어 처리 할 예정인데 ....