Hola compañeros.
Estoy teniendo un problema al leer un fichero de texto guardado con un TStringList.
El problema de "Access violation" ocurre cuando intento releer el fichero por
segunda y sucesivas veces. Pero la
primera vez lo lee correctamente.
Código Delphi
[-]
var
ListTermi: TStringList;
DataFile : String;
......
TForm1.FormCreate
ListTermi := TStringList.Create();
....
TForm1.FormShow
DataFile := TPath.Combine(DirSdCard, 'Plan.txt');
with ListTermi do
try
Clear;
LoadFromFile(DataFile);
finally
end;
No entiendo por qué la primera vez que lo leo no me da ERROR y si salgo de la unit y vuelvo a entrar me da access violation.
Tenía entendido que me debería sobrar hasta la función "Clear" ya que según la documentación de Embarcadero al llamar a LoadFromFile() , esta función llama a "Clear" antes de leerlo. He probado quitando "Clear" y da el mismo error.
Siento molestaros en vacaciones.
Saludos y gracias de antemano.