Manejo de Archivos con TFileStream

[[nlsgarcia]]

Hola:

Pregunto:

1.- ¿Como se detecta el fín de archivos con TFileStream?

2.- ¿En que casos es adecuado usar TFileStream en lugar de los métodos tradicionales de manejo de archivo en Delphi 7?

3.- ¿Tienen algún ejemplo de manejo de Archivos con TFileStream?

Gracias de antemano por la información

Saludos,

Nelson.

[ecfisa]

Hola Nelson.

Te recuerdo que por cada pregunta se tiene que iniciar un nuevo hilo, como dice en este punto de la Guía de estilo.

Por tu consulta, revisá este enlace

Saludos.

[[nlsgarcia]]

Hola ecfisa:

Gracias por tus indicaciones.

Replanteo la pregunta : ¿Como se detecta el fín de archivos con TFileStream?

Saludos,

Nelson.

[ecfisa]

Hola.

Comparando la posición con el tamaño, por ejemplo:

Código Delphi [-]
var
  F: TFileStream;
  ch: Char;
begin
  F:= TFileStream.Create(ExtractFilePath(Application.ExeName)+'prueba.txt', fmOpenRead );
  while F.Position <> F.Size do
  begin
    F.Read(ch, 1 );
    Memo1.Text := Memo1.Text + ch;
  end;
  F.Free;
end;

Saludos.

[[nlsgarcia]]

Hola ecfisa:

Muchas gracias por la información.

Una última pregunta : ¿En que casos es adecuado usar TFileStream en lugar de los métodos tradicionales de manejo de archivo en Delphi 7?

Saludos,

Nelson.

[ecfisa]

Hola Nelson.

Por favor, como te sugerí en el post [ #2 ], abri un nuevo hilo con tu consulta. ( Punto [ 8 ] de la [ Guía de estilo ] )

Saludos y muchas gracias por tu colaboración.