Stream prueba

pascal:
Program TestStream;

{
  When testing, remember to send something through standard input !!
}

uses sysutils,classes,iostream;

Var Stream : TIOStream;
    S,T : String;
    i : longint;
    SS : ShortString;

begin
  S:='ABCDEFGHIJKLMNOPQRSTUVWXYZ %d'#10;
  T:=S;
  Writeln ('Creating output stream.');
  Stream:=TIOStream.Create(iosOutPut);
  For I:=1 to 10 do
    begin
    S:=Format(T,[I]);
    Stream.WriteBuffer (S[1],Length(S));
    end;
  Stream.Free;
  Writeln ('Creating error stream.');
  Stream:=TIOStream.Create(iosError);
  For I:=1 to 10 do
    begin
    S:=Format(T,[I]);
    Stream.WriteBuffer (S[1],Length(S));
    end;
  Stream.Free;
  Writeln ('Creating input stream');
  Stream:=TIOStream.Create(iosInput);
  SS:='aha';
  While Length(SS)>0 do
    begin
    SetLength(SS,Stream.Read(SS[1],255));
    Write(SS);
    end;
  Writeln ('Read ',Stream.Position,' bytes.');
  Stream.Free;
end.
  $Log: istream.pp,v $
  Revision 1.4  2005/02/14 17:13:18  peter
    * truncate log

}
 
¿Ya le viste algún error? Dejanos tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress elimina los tags HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios.

Otro punto antes de comentar, Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

De esta manera el código sale coloreado.

Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el último párrafo.

Para poner los símbolos de las librerías sin que desaparezcan, debes escribir los símbolos de mayor > y menor qué < con su entidad HTML correspondiente, así como el símbolo de &

Mis Algoritmos se reserva el derecho de alterar, publicar o no los comentarios así como cambiar estas reglas de uso.

Si estas de acuerdo, adelante puedes comentar :)

P.D. No le hago tareas a nadie, mejor hagan la mía :P