Moin!
Zitat von
franktron:
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;
Weil es aber eigentlich so heissen muss
Delphi-Quellcode:
begin
with TFileStream.Create('test.exe',fmOpenWrite) do
begin
Try
Seek(SizeOf(TDateTime), soFromEnd);
Write(Now, SizeOf(TDateTime));
Finally
Free;
End;
end;
end;
Weil laut seinem Code zuvor wollte er die letzten Bytes (sizeof(TDateTime)) damit überschreiben und nicht hinten anhängen...
@Threadersteller: Und grundlegend: vom soFromEnd gibt an, wieviele Bytes vor dem Ende - daher eine positive Zahl.
MfG
Muetze1