私はこのようになりますデルファイ2007コード持っているデルファイ2010年にTFileStreamに文字列

Question

を書く：それは

var 
    SourceBuffer : PChar; 
    MyFile: TFileStream; 

.... 

SourceBuffer := StrAlloc(1024); 
MyFile := TFileStream.Create('MyFile.txt',fmCreate); 
WriteString(MyFile,SourceBuffer,'Some Text'); 
.... 

これは、Delphi 2007年に働いたが、私はこのようにそれを呼び出す

procedure WriteString(Stream: TFileStream; var SourceBuffer: PChar; s: string); 
begin 
    StrPCopy(SourceBuffer,s); 
    Stream.Write(SourceBuffer[0], StrLen(SourceBuffer)); 
end; 

をDelphi 2010で多くの迷惑メールが発生しています。これは、Unicodeのコンプライアンスの問題が原因であることがわかりましたが、この問題に対処する方法がわかりません。ここで

は、私がこれまで試したものです：

• 変更 SourceBufferのデータ型は（ともWideStringに期待されるパラメータ ）はPWideChar型する

• suggestions listed hereの一人一人

私は間違っていますか？

Answer 1

文字列をストリームに書き込むために別のバッファは必要ありません。

procedure TStreamEx.writeString(const data: string); 
var 
    len: cardinal; 
    oString: UTF8String; 
begin 
    oString := UTF8String(data); 
    len := length(oString); 
    self.WriteBuffer(len, 4); 
    if len > 0 then 
     self.WriteBuffer(oString[1], len); 
end; 

function TStreamEx.readString: string; 
var 
    len: integer; 
    iString: UTF8String; 
begin 
    self.readBuffer(len, 4); 
    if len > 0 then 
    begin 
     setLength(iString, len); 
     self.ReadBuffer(iString[1], len); 
     result := string(iString); 
    end; 
end; 

私はTStreamにのクラスヘルパーとしてTStreamExを宣言したが、これらを書き換えるにはあまりにも難しいことではありません：おそらくそれを行うための最も簡単な方法はこれのように、UTF8に文字列を符号化することですあなたの例のようなソロの手順と機能。デルファイ2010

Answer 2

がここに文書化され、このための良い解決策、持っている：私は削除した後、これが私のために働いた

http://docwiki.embarcadero.com/CodeExamples/en/StreamStrRdWr_%28Delphi%29

var 
    Writer: TStreamWriter; 
... 

    { Create a new stream writer directly. } 
    Writer := TStreamWriter.Create('MyFile.txt', false, TEncoding.UTF8); 
    Writer.Write('Some Text'); 

    { Close and free the writer. } 
    Writer.Free();