안녕하세요
Ini파일에서 값을 읽어 들어 사용할려고 하는데
잘 않되거든요.. 아래 함수를 만들었는데 뭐가 문제인지
답변좀 주세요.
function FileColor_Read(FileExt: String): TColor;
var
ColorFile: TIniFile;
ExtColor: TColor;
begin
ColorFile := TIniFile.Create('color.ini');
ExtColor := ColorFile.ReadInteger('Ext', FileExt, clSilver);
ColorFile.Destroy;
Result := ExtColor;
end;
color.int구조입니다.
------------------------------
[Ext]
EXE=4259584
COM=16776960
SYS=16711935
BAT=65535
ZIP=32896
RAR=32896
ARJ=32896
JPG=8388863
GIF=8388863
TXT=8421376
HWP=8421440
DOC=8421440
ACE=32896
MP3=33023
BMP=8388863
RM=33023
WAV=33023
BAK=255
RA=33023
ASF=33023
-------------------------
답변 좀 꼭 좀 해주세요. ^^
그럼..이만.
> 안녕하세요
> Ini파일에서 값을 읽어 들어 사용할려고 하는데
> 잘 않되거든요.. 아래 함수를 만들었는데 뭐가 문제인지
> 답변좀 주세요.
>
> function FileColor_Read(FileExt: String): TColor;
> var
> ColorFile: TIniFile;
> ExtColor: TColor;
> begin
> ColorFile := TIniFile.Create('color.ini');
> ExtColor := ColorFile.ReadInteger('Ext', FileExt, clSilver);
> ColorFile.Destroy;
>
> Result := ExtColor;
> end;
>
> color.int구조입니다.
> ------------------------------
> [Ext]
> EXE=4259584
> COM=16776960
> SYS=16711935
> BAT=65535
> ZIP=32896
> RAR=32896
> ARJ=32896
> JPG=8388863
> GIF=8388863
> TXT=8421376
> HWP=8421440
> DOC=8421440
> ACE=32896
> MP3=33023
> BMP=8388863
> RM=33023
> WAV=33023
> BAK=255
> RA=33023
> ASF=33023
> -------------------------
>
> 답변 좀 꼭 좀 해주세요. ^^
> 그럼..이만.
ColorFile := TIniFile.Create('color.ini');
위의 color.ini 가 있는 경로를 지정하시던지 아니면 color.ini를 path가 지정된 곳에
놓고 실행해 보세요.. 경로문제일 가능성이 크리라 봅니다.
ex) ColorFile := TIniFile.Create('c:projectcolor.ini');
여기서 project폴더는 color.ini 가 있는 폴더
술친구였습니다.