Ik weet niet of je in je code gebruik maakt van een try..finally constructie, dit is in je voorbeeld niet te zien.
Dit is wel nodig voor het netjes afhandelen van (openen/sluiten) van je file. Ook bij het gebruik van bijv. een TFileStream is dit van toepassing:
Code:
var
Body:Text;
begin
AssignFile(Body,'C:\file.txt');
try
// Doe hier je bewerkingen met de file.
finally
CloseFile(Body);
end;
end;
of:
Code:
var
Body:TFileStream;
begin
Body := TFileStream.Create;
try
Body.LoadFromFile('C:\file.txt');
// Doe hier je bewerkingen op de Filestream.
finally
Body.Free;
end;
end;
Als je dit niet doet kun je in het geval van het eerste voorbeeld je file "open" laten staan wat voor vreemde situaties kan zorgen. In het tweede geval zou je een memoryleak veroorzaken.
Bookmarks