[Overview][Constants][Types][Classes][Procedures and functions][Variables] Reference for unit 'Objects' (#rtl)

TStream.CopyFrom

Copy data from another stream.

Declaration

Source position: objects.pp line 296

procedure TStream.CopyFrom(

  var S: TStream;

  Count: LongInt

);

Description

CopyFromreads Count bytes from stream Sand stores them in the current stream. It uses the Readmethod to read the data, and the Writemethod to write in the current stream.

Errors

None.

See also

Read

  

Read data from stream to buffer.

Write

  

Write a number of bytes to the stream.

Example

Program ex19;

{ Program to demonstrate the TStream.CopyFrom function }

Uses objects;

Var P : PString;
    L : String;
    S1,S2 : PStream;

begin
  L:='Constant string line';
  Writeln ('Writing to stream 1 : "',L,'"');
  S1:=New(PMemoryStream,Init(100,10));
  S2:=New(PMemoryStream,Init(100,10));
  S1^.WriteStr(@L);
  S1^.Seek(0);
  Writeln ('Copying contents of stream 1 to stream 2');
  S2^.Copyfrom(S1^,S1^.GetSize);
  S2^.Seek(0);
  P:=S2^.ReadStr;
  L:=P^;
  DisposeStr(P);
  Dispose (S1,Done);
  Dispose (S2,Done);
  Writeln ('Read from stream 2 : "',L,'"');
end.