유니코드 파일 쓰기

procedureSaveUnicode(constfileName: String; s: String);

var

ws: WideString;

fs: TFileStream;

ByteOrderMarker: Word;

begin

ws:=s;

fs:=TFileStream.Create(fileName, fmCreate);

try

ByteOrderMarker:=$FEFF; // 유니코드라는 뜻. 모든 유니코드 파일은 $FEFF 로 시작함.

{1. 유니코드 인식자를 일단 파일의 앞대가리에 써넣는다.}

fs.WriteBuffer(ByteOrderMarker, SizeOf(ByteOrderMarker));

{2. 나머지 스트링을 써넣는다.}

fs.WriteBuffer(ws[1], Length(ws)*SizeOf(ws[1]));

finally

FreeAndNil(fs);

end;

end;