Hallo!
Wie kann ich in einen TMemoryStream an einer beliebigen Stelle Daten einfügen, ohne dass Daten überschrieben werden? Ich hab leider keine solche Methode gefunden.
Hat jemand einen effektiven und vor allem schnellen Algorithmus dazu?
MFG, Volker
Hi,
irgendwie in diesem Stil… UNGETESTET!
Procedure InsertIntoStream(Stream: TMemoryStream; Var data;
datasize, offset: Integer );
Var
MS: TMemoryStream;
Begin
ms:= TMemoryStream.Create;
try
Stream.Position := offset;
MS.Copyfrom( Stream, Stream.size-offset);
Stream.Position := offset;
Stream.Write(Data,Datasize);
Stream.CopyFrom(MS,0);
finally
FreeAndNil(MS);
end;
End;
Gruss und viel Erfolg!
RQ