Ich habe jetzt mal umgestellt auf FileStream. Nur komischerweise stehe ich vor dem gleichen Problem. Die Datei wird immer wieder überschrieben, statt anzuhängen.
Delphi-Quellcode:
procedure SchreibeDatei2(Filename, Name, Adresse: String; Count: Cardinal);
var
iTemp: Integer;
begin
New(FileInfo);
FileInfo.Name := Name;
FileInfo.Adresse := Adresse;
FileInfo.Count := Count;
TmpStream := TFileStream.Create(Filename, fmCreate);
TmpStream.Write(FileInfo^, SizeOf(TFileInfo));
iTemp := TmpStream.Position; // zur kontrolle
iTemp := TmpStream.Size; // wurde was geschrieben?
TmpStream.Free;
Dispose(FileInfo);
end;
Wo ist das Problem? Ich fange langsam an an mir zuzweifeln...