안녕하세요. 최용일입니다.

아래와 같이 해보세요...

<!--CodeS-->
// Save
var
  FontStyle: TFontStyles;
begin
  FontStyle := form1.fontdialog1.Font.style;
  stringlist.Add(IntToStr(PByte(@FontStyle)^));
  ...
end;
// Load
var
  FontStyle: TFontStyles;
begin
  PByte(@FontStyle)^ := IntToStr(stringlist[3]);
  form1.fontdialog1.Font.style := FontStyle;
  ...
end;
<!--CodeE-->

^^ 항상 즐코하세요...

우선 도움을 주셔서 감사 합니다.

제가 최초 저장 하려 했던 목적이 파일에 저장 하기 위합 이었는데요... 저장은 되거든요.. 3,4,5 이런식으로 저장이 되네요..

저걸 다시 파일에서 읽어 보려고 했더니 에러가 나는데요.. 어디가 무슨 문제 인지.. 알수가 없네요..
저장이 틀린거 같긴한데.. 힌트좀 주세요.. ^^

[Error] Mplayer_main.pas(164): There is no overloaded version of 'IntToStr' that can be called with these arguments


아래는 소스 올립니다.
/////////저장
procedure Save_Data();
var
stringlist : TStringList;
FontStyle: TFontStyles;
begin
stringlist := TStringList.Create;
stringlist.Add(form1.label_pre.font.Name);
stringlist.Add(inttostr(form1.label_pre.font.size));
stringlist.Add(colortostring(form1.label_pre.font.color));
FontStyle := form1.fontdialog1.Font.style;
stringlist.Add(IntToStr(PByte(@FontStyle)^));
stringlist.SaveToFile('data.ksj');
stringlist.Free;

end;


//////////읽어 오기
procedure Load_Data();
var
stringlist : TStringList;
FontStyle: TFontStyles;
i : integer;

begin
stringlist := TStringList.Create;
stringlist.LoadFromFile('data.ksj');

for i := 0 to stringlist.Count-1 do

   showmessage(stringlist[i]);

   form1.label_pre.font.Name := stringlist[0];
   form1.label_pre.font.size := strtoint(stringlist[1]);
   form1.label_pre.font.color := stringtocolor(stringlist[2]);

   PByte(@FontStyle)^ := IntToStr(stringlist[3]);  // 여기서 에러가 나네요
   form1.fontdialog1.Font.style := FontStyle;


stringlist.Free;


end;

IntToStr==>StrToInt

생각 보다 간단한데 왜 몰랐는지 이해가 안되네요.. ^^;;
간단히 달아 주시면서 상당히 어의가 없으셨을듯.. 죄송합니다.(근데 진짜 안보였어요;;)
더운데 더위 조심 하세요...
여기는.. 오늘... 에어콘이.. 고장이랍니다... ㅠ.ㅠ