Negatives TFileStream.Seek mit soFromEnd unter Windows 98

[marabu]

Hallo,

ich hoffe doch sehr, dass du WIN98SE verwendet hast. Um den Bug zu umgehen könntest du die Positionierung anders durchführen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('Test.txt', fmOpenRead or fmShareDenyWrite);
  try
    Stream.Position := Stream.Size - 1;
    ShowMessage(Format('Größe: %d Position: %d', [Stream.Size, Stream.Position]));
  finally
    Stream.Free;
  end;
end;

Grüße vom marabu