sstream

pascal:

Program TestStream;

uses classes;

Var Stream : TStringStream;

    S,T : AnsiString;

begin

  S:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';

  T:=S;

  Writeln ('Creating stream.');

  Stream:=TStringStream.Create(S);

  Writeln ('Initial Size : ',Stream.Size);

  Writeln ('Initial Position : ',Stream.Position);

  Writeln ('Setting new size to 100');

  Stream.Size:=100;

  Writeln ('New Size : ',Stream.Size);

  Writeln ('new Position : ',Stream.Position);

  Stream.WriteByte  (1);

  Stream.WriteWord  (2);

  Stream.WriteDWord (3);

  Stream.WriteString (S);

  Writeln ('Size after write : ',Stream.Size);

  Writeln ('Position after write : ',Stream.Position);

  Writeln ('Truncating size');

  Stream.Size:=Stream.Position;

  Writeln ('Stream Size is : ',Stream.Size);

  Writeln ('Stream Position : ',Stream.Position);

  Writeln ('Seek to position 0 : ', Stream.Seek(0,soFromBeginning));

  Writeln ('new Position : ',Stream.Position);

  If Stream.ReadByte<>1 then  Writeln ('First byte not 1');

  If Stream.ReadWord<>2 then  Writeln ('First word not 2');

  If Stream.ReadDWord<>3 then Writeln ('First Word not 3');

  T:=Stream.ReadString(Length(S));

  If Length(T)<>Length(S) then

    Writeln ('Couldn''t read string.');

  Stream.WriteByte  (1);

  Stream.WriteWord  (2);

  Stream.WriteDWord (3);

  Stream.WriteBuffer (S[1],Length(S));

  Writeln ('Stream Size is : ',Stream.Size);

  Stream.Free;

end.

¿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í:

Si es lenguaje C [c]Código en C[/c]
Si es lenguaje Pascal [pascal]Aquí dentro el código de Pascal[/pascal].

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 &

Mayor qué: >
Mayor qué: <
Este símbolo & : &

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