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

# TStream.CopyFrom

Copy data from another stream.

## Declaration

Source position: objects.pp line 295

`procedure TStream.CopyFrom(`
`var S: TStream;`
`Count: LongInt`
`);`

## Description

CopyFrom reads Count bytes from stream S and stores them in the current stream. It uses the Read method to read the data, and the Write method 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.

Documentation generated on: Feb 26 2014