1. Den Filestream musst du noch im Destructor freigeben
2. Die (meine) Funktion setsize funktioniert so nicht mehr. Besonders in dem Fall, wenn die Größe verkleinert wird. Denn dann kannst du ja Teile aus dem FStream löschen bzw. den Filestream kürzen.
3. Wolltest du nicht kleine Dateien statt in den FileStream erstmal in FStream laden?
4. in seek musst du evtl noch mySize anpassen (Wenn myPosition>mysize)
Zu edit (Denk daran, dass du auch bei der Anwendung von copyFrom Fehler machen kannst (ich vergesse meistens die Position zu verändern)
zu2:
Delphi-Quellcode:
procedure TBufferstream.SetSize(Newsize:longint);
begin
if Newsize<mysize then begin
//Speicher freigeben (ist allerdings nicht notwendig)
if Filestream.size<newsize then Filestream.size:=newsize; //evtl, oder du lässt die Datei bestehen
//und hier jetzt für jeden Part in FStream, schauen ob er gekürzt werden kann
end;
mysize:=newsize;
end;