Ver Mensaje Individual
  #2  
Antiguo 08-04-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.935
Reputación: 27
delphi.com.ar Va por buen camino
¿Dónde hallar información?... en la ayuda!
Al igual que todos los TStreams, se pueden utilizar accediendo a los métodos básico Create, Read, Write y Seek, como tambien a las propiedades Position y Size.

Dos ejemplos muy sencillos:
Código Delphi [-]
procedure EscribirArchivo(FileName: TFileName; S: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    Stream.WriteBuffer(Pointer(S)^, Length(S));
  finally
    Stream.Free;
  end;
end;

function LeerArchivo(FileName: TFileName): string;
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    SetString(Result, nil, Stream.Size);
    Stream.Read(Pointer(Result)^, Stream.Size);
  finally
    Stream.Free;
  end;
end;

Saludos
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.

Última edición por delphi.com.ar fecha: 08-04-2005 a las 20:27:47.
Responder Con Cita