1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function Write(const Buffer; Count: Integer): Integer; virtual; abstract;

---

Introduces a pure virtual method for writing to the stream. 

Each descendant stream object defines a Write method that writes data to its particular storage
medium (such as memory or a disk file). Write attempts to write up to Count bytes from Buffer,
and returns the number of bytes actually written. 

All the other data-writing methods of a stream (WriteBuffer, WriteComponent) call Write to do their actual writing.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure WriteBuffer(const Buffer; Count: Integer);

---

Writes Count bytes from Buffer onto the stream and advances the current position of the stream by Count bytes. 

Use WriteBuffer to save data to a stream. WriteBuffer and ReadBuffer are used in cases where the number
of bytes is known and required, for example when reading in structures. Use WriteBuffer for standard
file I/O streaming. 

WriteBuffer is used internally for writing to a stream and copying from a stream. It is used by other objects,
such as strings and lists, for writing strings stored in a buffer. 

WriteBuffer calls Write to handle the actual writing. If the stream fails to write all the requested bytes,
an EWriteError exception is raised.					

1:
2:
3:
4:
5:

procedure TStream.WriteBuffer(const Buffer; Count: Longint);
begin
  if (Count <> 0) and (Write(Buffer, Count) <> Count) then
    raise EWriteError.CreateRes(@SWriteError);
end;					

1:
2:

Variable := konstante;//wenn konstante ein Char oder Byte, Word... Ist
Stream.write( @variable, sizeof( variable)  );					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

type
  PInternalStringStruct = ^TInternalStringStruct;
  TInternalStringStruct = record
    RefCount: Integer;
    Length: Integer;
    Content: record end;
  end;

procedure main;
var
  s1: String;
begin
  s1 := 'Hello World!';
  Writeln(
    'RefCount: ', PInternalStringStruct(integer(s1)-8).RefCount, #13#10,
    'Length: ', PInternalStringStruct(integer(s1)-8).Length, #13#10,
    'First character: "', Char(Pointer(s1)^), '"'#13#10,
    'Whole content: "', pChar(@PInternalStringStruct(integer(s1)-8).Content), '"');
  Readln;
end;					

1:
2:
3:
4:
5:
6:

Stream.write( pointer(StringVariablen)^, length( StringVariable) ); // Bei normalen String
Stream.write( shortstring, length( shortstring)  ); // bei shortstring wie String[10]
Stream.write( einpackedrecord, sizeof( einpackedrecord)  );
If length( DynArray) >= 1 Then
      Stream.write( dynArray, length( DynArray)  * sizeofof( dynArray[0]) );
Stream.write( length( DynArray ), 4 ); // length liefert ein integer also 4 byte