Pascal 7 & Objects



CopyFrom


-----------------------------------------------------------------

procedure CopyFrom(var S: TStream; Count: Longint);

Копирует Count байт из потока S в объект потока. Например:

{ создать копию всего потока } NewStream := New(TEmsStream, Init(oldStream^.GetSize)); OldStream^.Seek(0); NewStream^.CopyFrom(OldStream, OldStream^.GetSize);

См. также: TStream.GetSize, TObject.Init.




Содержание  Назад  Вперед