Bloodguy
Twitter : @nicehide

procedure SaveUnicode(const fileName: 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;