Thema: Delphi Frage zu TFileStream

Einzelnen Beitrag anzeigen

perle

Registriert seit: 8. Apr 2004
183 Beiträge
 
Delphi 7 Enterprise
 
#1

Frage zu TFileStream

  Alt 14. Jun 2005, 10:23
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;
und dann zum auslesen direkt in der test.exe

Delphi-Quellcode:
var
  myDate : TDateTime;
begin
  with TFileStream.Create('test.exe',fmShareDenyNone) do
  begin
    Seek(-SizeOf(TDateTime),soFromEnd);
    Read(myDate,SizeOf(TDateTime));
    Free;
  end;
  Showmessage(DateTimeToStr(myDate));
end;

Rufe ich die test.exe auf, bevor ich da was reingeschrieben hab, dann zeigt mir das showmessage : 30.12.1899 an....ist ja auch klar, weil am ende der Datei nur nullen stehen.
Schreibe ich aber was dran und führe das Programm dann nochmal auf gibts "Ungültige Gleitoperation". Aber was mache ich falsch?
(17:05:33) ( deccer ) duuu keine ahnung vonski?
(17:05:46) ( deccer ) duuuu ober dörticode schreibsorinski?
(17:06:02) ( deccer ) bist doch schlimmor wie uall :F
>> brechi : Livecracking is shice, da sieht man immer die Fehler <<
  Mit Zitat antworten Zitat