델파이에서 유니코드로 텍스트파일 어떻게 쓰나요??

Question

델파이에서 쿼리로 가져온 값들을유니코드로 텍스트 파일을 쓰고 싶습니다몇번 시도하다가 안되서 이렇게 질문남기네요도와주세요!

탈퇴한 사용자 · Accepted Answer

안녕하세요??한마디로 쿼리 결과값들을 유니코드로 텍스트파일에 저장하고싶다고 하셨는데예제로 통해서 보여드리겠습니다밑에 예제는 저장할 텍스트 파일을 지정하고 유니코드 파일로 포맷을 바꾼다음zquery라는 컴포넌트를 이용해서 가져온 결과값을 저장했습니다참고하시기 바랍니다^^ if SD.Execute then 
  begin 
    if FileExists(SD.FileName) then 
    begin 
      DeleteFile(SD.FileName); 
    end; 
 
    FileStream := TFileStream.Create(SD.FileName, fmCreate); 
 
    try 
      try 
        ByteOrderMarker := $FEFF; // 유니코드라는 뜻. 모든 유니코드 파일은 $FEFF 로 시작함. 
        FileStream.WriteBuffer(ByteOrderMarker, SizeOf(ByteOrderMarker)); 
        WS := WideString('필드1' + #9 + '필드2' + #9 + '필드3' + #13#10);    //field caption 
        FileStream.WriteBuffer(ws[1], Length(ws) * SizeOf(ws[1])); 
 
        while not ZQuery.Eof do 
        begin 
          WS := WideString(ZQuery.FieldByName('field1').AsString + #9 +              
                      ZQuery.FieldByName('field2').AsString 
                            + #9 + ZQuery.FieldByName('field3').AsString + #13#10); 
          FileStream.WriteBuffer(ws[1], Length(ws) * SizeOf(ws[1])); 
          ZQuery.Next; 
        end;         
 
      except on E: Exception do 
        Application.MessageBox('예기치 못한 상황이 발생하였습니다.' + #13#10 + 
                               '프로그램을 재부팅 해주시기 바랍니다.','알림',MB_OK);         
      end; 
 
    finally 
      FreeAndNil(FileStream); 
      FreeAndNil(SD); 
    end; 
 
    Application.MessageBox('다운로드가 완료되었습니다.','알림',MB_OK); 
  end;