Das ist richtig, ich hab bisher noch keine Fehlerbehandlungsroutinen eingebaut. Mir geht es zunächst um die Performance und Logik der wichtigsten Funktionen.
Die Fehlerbehandlung ist aber schon vorgemerkt.
Delphi-Quellcode:
procedure TFRM_Main.ReadInInvA;
var
i:Integer;
created, accessed, modified:TDateTime;
begin
...
for i := 0 to SL.Count-1 do
begin
GetFileTimes(CXBE_DbDir.Text+'\'+SL[i], created, accessed, modified);
TBL_Container.AppendRecord([null, SL[i], DateTimeToStr(created), DateTimeToStr(modified), DateTimeToStr(accessed), GetFileSize(CXBE_DbDir.Text+'\'+SL[i])]);
end;
...
end;