Hilfe beim Übersetzten von C in Delphi

[Robert Marquardt]

Ah, jetzt ist klar. app heisst append.

Delphi-Quellcode:

var
  OutStream: TFileStream;
  NewName: string;
begin
  NewName := TableName + '.' + GL_Extention;

  // das ist das Aequivalent des append mode
  if FileExists(NewName) then
    OutStream := TFileStream.Create(NewName, fmOpenReadWrite, fmShareDenyWrite)
  else
    OutStream := TFileStream.Create(NewName, fmCreate, fmShareDenyWrite);
  OutStream.Seek(0, soFromEnd);

  // jetzt mal das Zeugs mit GL_Add6MaxTag weggelassen das eh nur einen extra Header schreibt
  OutStream.Write(Bufer[0], BufLen);
  OutStream.Free;
end;