Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
Ok, das habe ich dann wohl überlesen.
Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
Das ist einer. Aber ich habe TFileInfo benutzt.
Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
Nö, funktioniert auch so ohne derefenrenzieren.
Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
Argh. :wall:
Ich dachte, er würde automatisch zurückgehen, wen ich soFromEnd angebe. Dass man den Wert auch noch negativ angeben muss...
Besten Dank.
Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
In der Hilfe steht nur Type. Aber ich habe es auch schon so probiert:
procedure TAppendFile.Extract;
var
fsCarrier: TFileStream;
FileInfo: TFileInfo;
begin
fsCarrier := TFileStream.Create(FCarrierFile, fmOpenRead);
try
fsCarrier.Seek(SizeOf(TFileInfo), soFromEnd);
fsCarrier.ReadBuffer(FileInfo, Sizeof(TFileInfo));
Forum: Object-Pascal / Delphi-Language
by Luckie,
5. Mär 2010
Ich schreibe einen Reecord an das Ende einer Datei. Das klappt. Nur beim Auslesen bekomme ich einen StreamleseFehler:
type
TFileInfo = packed record
FFilename: String;
FFileSize: Integer;
end;
PFileInfo = ^TFileInfo;
procedure TAppendFile.AppendFileInfo(FileInfo: TFileInfo);
var