WriteStringToStream

procedure WriteStringToStream(

  AStream: TStream;

  const AStr: string;

  ADestEncoding: IIdTextEncoding;

  ASrcEncoding: IIdTextEncoding = Nil

); overload;

procedure WriteStringToStream(

  AStream: TStream;

  const AStr: string;

  const ALength: Integer = - 1;

  const AIndex: Integer = 1;

  ADestEncoding: IIdTextEncoding = Nil;

  ASrcEncoding: IIdTextEncoding = Nil

); overload;