Eliminar registros con THandleStream
 

Hola amigos:
Tengo el siguiente problema:
Un archivo de texto con registros y segun una variable pueda tener mas o menos registros, esto es en determinadas circunstancias este puede tener pej. 320 registros y en otras 245, entonces tengo que eliminar los que estan por encima de 245. Este es el codigo que tengo:

Código Delphi [-]
var
  stream: THandleStream;
begin
  hndl := fil_open(AFileSpec, 'srw');
  if hndl < 0 then Exit;
  stream := THandleStream.Create(hndl);
  slChannels.LoadFromStream(stream);

  if slChannels.Count > maxlinescount then
    for i := slChannels.Count-1 downto maxlinescount do
      slChannels.Delete(i);
    stream.Position := 0;
    slChannels.SaveToStream(stream);
    .....
end;
.....

El problema es que no me elimina los registros del archivo.
Algun idea?

Gracias

Bueno, creo que slChannels.SaveToStream(stream) únicamente guarda los datos de slChannels en el objeto stream pero faltaría escribir éste de vuelta al archivo en disco con el método Write.

Por otra parte, ¿por qué usas un HandleStream? Podrías usar un FileStream. Es más, si, a juzgar por la nomenclatura, slChannels es un StringList, ¿por qué no simplemente usas slChannels.LoadFromFile y slChannels.SaveToFile?

// Saludos

Ya esta solucionado, use:

Código Delphi [-]
 slChannels.SaveToStream(stream);
 // con size trunco el archivo
 stream.Size := stream.Position;

Gracias