Forum: Object-Pascal / Delphi-Language
Delphi
by karlkoch,
20. Sep 2007
Ich verwende die erste Version von Win98 in der virtuellen Umgebung. Danke an marabu für einen möglichen Workaround. Aber konnte denn jemand diesen Fehler bestätigen, sodass sich rausfinden lässt obs nun an Win98 oder an VirtualPC liegt?
karlkoch
Forum: Object-Pascal / Delphi-Language
Delphi
by karlkoch,
20. Sep 2007
Ich kann den Fehler mit folgendem Beispielcode reproduzieren:
procedure TForm1.FormCreate(Sender: TObject);
var
Stream: TFileStream;
begin
Stream := TFileStream.Create('Test.txt', fmOpenRead or fmShareDenyWrite);
try
Stream.Seek(-1, soFromEnd);
Forum: Object-Pascal / Delphi-Language
Delphi
by karlkoch,
19. Sep 2007
Ich verwende Turbo Delphi und das Problem tritt bei jeder Datei auf, egal wie groß. Ich vermute mal das es da ein Problem mit VirtualPC gibt, würde mir das aber gern bestätigen lassen. Wie gesagt ein Aufruf von Stream.Seek(-22, soFromEnd) bringt unter Win98 in VirtualPC 2007 eine Vorwärtsbewegung, ermittelt mit Pos := Stream.Position.
karlkoch
Forum: Object-Pascal / Delphi-Language
Delphi
by karlkoch,
19. Sep 2007
Hallo,
ich stehe hier vor einem kleinen Rätsel. Ich öffne eine Datei über TFileStream und springe kurz vors Ende mit
Stream.Seek(-22, soFromEnd);
Das funktioniert soweit, nur habe ich mein Programm nun mit Virtual PC mit Windows 98 getestet und dort spingt der Stream auf einmal vorwärts. Drehe ich das Vorzeichen um, so dreht sich auch die Richtung. Ist das nun ein Problem von Windows...