항상 도움만 받아가다가 최근에 구한 유니코드 텍스트 만들기와 관련한 소스가 있어 올립니다.
http://www.eccentrica.org/gabr/ 에서 GpTextFile, GpTextStream, GpHugeFile 등을 참조하여 유니코드 텍스트 파일을 만들 수 있습니다.
그리고, 읽기에 대해서는 Sample 코드가 있지만, 쓰기에 대해선 셈플이 없어 제가 직접 유니코드텍스트 파일을 만드는 샘플을 만들어 보았습니다.
사이트를 뒤져봐도 유니코드텍스트 읽고 쓰는 예제가 없어 고생을 많이 했습니다.
도움이 되길 바라면서......
아래는 쓰기 예제입니다.
=================================================================
...
implementation
{$R *.DFM}
uses GpTextFile, GpHugeF, GpTextStream;
procedure TForm1.Button1Click(Sender: TObject);
var
GpTextFile : TGpTextFile;
GpTextFileStream : TGpTextFileStream;
GpHugeFileStream : TGpHugeFileStream;
sfilename : string;
unitext : widestring;
unitxtlead : WideChar;
iLoop : integer;
begin
sfilename := 'c:\temp\unitest.txt';
try
GpTextFileStream := TGpTextFileStream.Create(sFilename, accWrite, [], [cfUnicode], CP_UNICODE);
for iLoop := $20 to $FFFF do begin
unitext := 'U+'+IntToHex(iLoop,4)+' ';
unitxtlead := widechar(iLoop);
unitext := unitext + unitxtlead+' '+unitxtlead+widechar($D)+widechar($A);
GpTextFileStream.WriteString(unitext);
end;
finally
GpTextFileStream.Free;
end;
end;