Hallo,
ich kritisiere eigentlich ungern an anderer Leute Code rum, da meiner oft auch nicht besser aussieht, aber hier ist der Code wirklich ineffizient/unübersichtlich und dazu leider auch noch falsch: du versuchst ein Änderungsdatum etc. zu ermitteln, auch wenn die Datei nicht existiert(bei der Größe prüfst du vorher...)
Mein Vorschlag würde wiefolgt aussehen:
Delphi-Quellcode:
for indI := 0 to box.RowCount - 1 do
begin
if ( true = IsStringAInteger( box.Cells[ 9, indI] )) then
begin
if (strtoint(box.Cells[ 9, indI]) = tempTHI ) then
begin
tempS := box.Cells[ 7, indI];
if ( FileExists( tempS ) ) then
begin
box.Cells[2,indI] := konvertBytes( GetFileSize( tempS ) );
delay(100);
box.Cells[3,indI] := DateTimeToStr( GetCreationTimeOfFile( tempS )); //erstellt
box.Cells[4,indI] := DateTimeToStr( GetFileLastAccessTime( tempS )); //letzter zugriff
box.Cells[5,indI] := DateTimeToStr( GetFileDate( tempS )); //geändert
end;
end;
end;
end;