Einzelnen Beitrag anzeigen

noisy_master

Registriert seit: 17. Jun 2009
Ort: Wolfenbüttel/Baddeckenstedt
217 Beiträge
 
Delphi XE5 Professional
 
#10

AW: For Schleife zählt mehr als vorhanden. iTask, for Schleife, integer -> fehler

  Alt 22. Jun 2021, 08:04
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;
Dirk
  Mit Zitat antworten Zitat