Ver Mensaje Individual
  #4  
Antiguo 20-05-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
No hay ningun problema es escribir strings o chars en un stream, no hace falta convertirlos en bytes. Por ejemplo:

Código Delphi [-]
var
  Stream: TMemoryStream;
  S: String;
  C: Char;
  Buffer: array[0..255] of byte;
begin
  S:= 'Hola mundo';
  C:= ',';
  FillChar(Buffer,Sizeof(Buffer),0);
  Stream:= TMemoryStream.Create;
  try
    // Podemos escribir un string
    Stream.WriteBuffer(PChar(S)^,length(S));
    // Podemos escribir un char
    Stream.WriteBuffer(C,1);
    // O un un array
    Stream.WriteBuffer(Buffer,Sizeof(buffer));
    // Y luego podemos guardarlo para ver como quedo
    Stream.SaveToFile('Prueba.txt');
  finally
    Stream.Free;
  end;
end;
Responder Con Cita