Frage zu TFileStream

[franktron]

Zitat von perle:

Hallo, ich möchte gerne ein Datum ans ende meiner Datei hängen aber es will nicht so recht klappen, aber warum nicht?


Dies hier wird von einer zweiten exe ausgeführt :

Delphi-Quellcode:

begin
  with TFileStream.Create('test.exe',fmOpenWrite) do
  begin
    Seek(-SizeOf(TDateTime),soFromEnd);
    Write(Now, SizeOf(TDateTime));
    Free;
  end;
end;

Weil das so heisen muss

Delphi-Quellcode:

begin
  with TFileStream.Create('test.exe',fmOpenWrite) do
  begin
    Seek(0,soFromEnd);
    Write(Now, SizeOf(TDateTime));
    Free;
  end;
end;