안녕 하세요?

BacTeria 박종민 입니다.

아래에 RES 화일에서 읽어 저장 하는 간단한 예제를 덧붙이 겠습니다.

참고 하세요~

--------------------------------------------------------------------------------

{$R *.DFM}
{$R FILE.RES}  // TEXT 파일들이 들어 있는 Resouce 파일...

procedure TForm1.Button1Click(Sender: TObject);
var
  RStream: TResourceStream;
  i: Byte;
begin
  for i:= 0 to 9 do
  begin
    RStream := TResourceStream.Create(HInstance, 'TEXT0' + IntToStr(i),
                                                                 PChar('TEXT'));
    RStream.SaveToFile('TEXT0' + IntToStr(i) + '.TXT');
    RStream.Free;
  end;
end;

{
  그냥 TEXT00.TXT 부터 TEXT09.TXT 까지 생성 하는 예제 입니다.

  FILE.RC 의 내용은 아래와 같습니다.
  -------------------------------------
   TEXT00  TEXT    TEXT00.TXT
   TEXT01  TEXT    TEXT01.TXT
   TEXT02  TEXT    TEXT02.TXT
   TEXT03  TEXT    TEXT03.TXT
   TEXT04  TEXT    TEXT04.TXT
   TEXT05  TEXT    TEXT05.TXT
   TEXT06  TEXT    TEXT06.TXT
   TEXT07  TEXT    TEXT07.TXT
   TEXT08  TEXT    TEXT08.TXT
   TEXT09  TEXT    TEXT09.TXT
}