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