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;
'Delphi' 카테고리의 다른 글
[Delphi] DeleteFile 함수 사용시 읽기전용파일이 지워지지 않을 때 (0) | 2009.04.18 |
---|---|
[Delphi] 유니코드인지 판별하는 법 (텍스트 파일) (0) | 2009.04.18 |
[Delphi] 문자열이 숫자로만 이루어져 있는지 판단 (0) | 2009.04.18 |
[Delphi] 시스템에 설치되어 있는 폰트들의 리스트 출력 (0) | 2009.04.18 |
[Delphi] 에디트박스에 셀 선택하기 (마우스로 드래그한 효과) (0) | 2009.04.18 |