TFileStreamはpascal IO Append（F）と同等ですか？

Question

私はそれがあると仮定します。

FS := TFileStream.Create(FileName, fmOpenReadWrite); 
FS.Seek(0, soFromEnd); 

は正しいことですか？開いているモードが正しいか、おそらくfmOpenWriteか、またはfmShareDenyNoneを追加する必要がありますか？

PS：Rewrite(F)のために、私は実際にそれはあなたが見ることができる

FStream := TFileStream.Create(Filename, fmOpenWrite); 
FStream.Seek(0, soEnd); 

だろうTHandleStream

procedure LOG(const FileName: string; S: string); 
const 
    FILE_APPEND_DATA = 4; 
    OPEN_ALWAYS = 4; 
var 
    Handle: THandle; 
    Stream: THandleStream; 
begin 
    Handle := CreateFile(PChar(FileName), 
    FILE_APPEND_DATA, // Append data to the end of file 
    0, nil, 
    OPEN_ALWAYS, // If the specified file exists, the function succeeds and the last-error code is set to ERROR_ALREADY_EXISTS (183). 
       // If the specified file does not exist and is a valid path to a writable location, the function creates a file and the last-error code is set to zero. 
    FILE_ATTRIBUTE_NORMAL, 0); 

    if Handle <> INVALID_HANDLE_VALUE then 
    try 
    Stream := THandleStream.Create(Handle); 
    try 
     S := S + #13#10; 
     Stream.WriteBuffer(S[1], Length(S) * SizeOf(Char)); 
    finally 
     Stream.Free; 
    end; 
    finally 
    FileClose(Handle); 
    end 
    else 
    RaiseLastOSError; 
end; 

Answer 1

を使用して終了デビッドのコメント@に基づいてFS := TFileStream.Create(FileName, fmCreate);

---

を使用TBinaryWriter.Createまたはの例- またはこれらのクラスの1つを直接使用することを選択するだけです。

Answer 2

また、そのファイルが作成されたファイルが存在しないかどうかを確認し、そうでない場合、この

var 
    FileName: string; 
    FS: TFileStream; 
    sOut: string; 
    i: Integer; 
    Flags: Word; 
begin 
    FileName := ...; // get your file name from somewhere 
    Flags := fmOpenReadWrite; 
    if not FileExists(FileName) then 
    Flags := Flags or fmCreate; 
    FS := TFileStream.Create(FileName, Flags); 
    try 
    FS.Position := FS.Size; // Will be 0 if file created, end of text if not 
    sOut := 'This is test line %d'#13#10; 
    for i := 1 to 10 do 
    begin 
     sOut := Format(sOut, [i]); 
     FS.Write(sOut[1], Length(sOut) * SizeOf(Char)); 
    end; 

    finally 
    FS.Free; 
    end; 
end; 

のように、このコードでなければなりません。フラグに関する

、あなたはdocumentation