procedure TForm1.Button1Click(Sender: TObject);
var
FileStream : TFileStream;
TempChar : array [0..1000] of widechar;
begin
FileStream:= TFileStream.Create('c:\accessoryinfo.dat', fmOpenRead);
try
FileStream.ReadBuffer(TempChar, sizeof(TempChar));
finally
FileStream.Free;
end;
memo1.Text := TempChar;
end;


2바이트당 계산하기 위해서 배열선언 부분에 widechar부분을 선언햇는데요

일단 컴파일 하면 출력이되지만 유니코드로 출력이 됩니다..당연히 widechar선언햇으니..

재가 하고싶은것은 자체 폰트 테이블파일을 읽어 들여서 그걸 토대로 텍스트에 문자열을 출력해주고 싶은데요

어떻게 해야되나요

그러니깐 예를 들어 s-jis[일본어]로 출력하는 방식처럼요