1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

CONST
  Ext: Array[0..7] OF String = ('*.dll', '*.exe', '*.sys',
             '*.bmp', '*.gif', '*.jpg', 'sonstige', 'gesamt');

var
  Anzahl: Array[0..7] OF INTEGER;
  Size: Array[0..7] OF INT64;

procedure GetFilesInDirectory(ADirectory: string; AMask: String; AList: TListView; ARekursiv: Boolean);
var
  i: INTEGER;
  j: INTEGER;
  SR: TSearchRec;
  FileExt: String;
begin
  IF (ADirectory<>'') and (ADirectory[length(ADirectory)]<>'\') then
    ADirectory:=ADirectory+'\';
  If ADirectory = '' THEN
    ADirectory := GetCurrentDir + '\';
  IF (FindFirst(ADirectory+AMask,faAnyFile-faDirectory,SR)=0) then begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then
        BEGIN
          FileExt := Copy(SR.Name,Length(SR.Name)-2,3);
          FOR i := 0 TO 5 DO
            IF FileExt = Copy(Ext[i],3,3) THEN BEGIN
              j := i;
              break;
            END;
          IF j <= 5 THEN BEGIN
            Anzahl[j] := Anzahl[j] + 1;
            Size[j] := Size[j] + SR.Size;
          END ELSE BEGIN
            Anzahl[6] := Anzahl[6] + 1;
            Size[6] := Size[6] + SR.Size;
          END;
        END;
    until FindNext(SR)<>0;
    frmWait.Refresh;
    FindClose(SR);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

const
  Ext: Array[0..6] of String = ('.DLL', '.EXE', '.SYS', '.BMP', '.GIF', '.JPG', '*');

var
  Anzahl: Array[0..7] of Integer;
  Size: Array[0..7] of Int64;

procedure GetFilesInDirectory(ADirectory: String);
  var
    i: Integer;
    SR: TSearchRec;
    FileExt: String;

  procedure CountElement(i: Integer);
  begin
    Inc(Anzahl[i]);
    Size[i] := Size[i] +SR.Size;
  end;

begin
  if (ADirectory = '') then
    ADirectory := GetCurrentDir;
  ADirectory := IncludeTrailingPathDelimiter(ADirectory);
  if (FindFirst(ADirectory +'*.*', faAnyFile -faDirectory, SR) = 0) then
    repeat
      if ( (SR.Name <> '.') and
           (SR.Name <> '..') and
           (SR.Attr <> faDirectory) ) then begin
        FileExt := UpperCase(ExtractFileExt(SR.Name));
        CountElement(7); // Gesamtanzahl aktualisieren
        i := 0;
        while ( (i < 6) and (FileExt <> Ext[i]) ) do
          Inc(i);
        CountElement(i); // Spezialanzahl aktualisieren
      end;
    until (FindNext(SR) <> 0);
  FindClose(SR);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TfrmMain.FormCreate(Sender: TObject);
  var
    i: Integer;
    ExtDetails: PExtDetails;
begin
  Ext := TStringList.Create;
  Ext.CommaText := EXT_LIST; // Endungen einlesen
  for i := 0 to Ext.Count-1 do begin // und Details-record anlegen
    New(ExtDetails);
    Ext.Objects[i] := TObject(ExtDetails);
  end;
  // aktuellen Pfad eintragen
  txtPath.Text := IncludeTrailingPathDelimiter(GetCurrentDir);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TfrmMain.FormCreate(Sender: TObject);
  var
    i: Integer;
    ExtDetails: PExtDetails;
begin
  Ext := TStringList.Create;
  Ext.CommaText := EXT_LIST; // Endungen einlesen
  for i := 0 to Ext.Count-1 do begin // und Details-record anlegen
    New(ExtDetails); // Speicherplatz reservieren
    Ext.Objects[i] := TObject(ExtDetails); // Zeiger darauf merken
  end;
  // aktuellen Pfad eintragen
  txtPath.Text := IncludeTrailingPathDelimiter(GetCurrentDir);
end;

[...]

procedure TfrmMain.FormDestroy(Sender: TObject);
  var
    i: Integer;
begin
  // Details-records entsorgen
  for i := 0 to Ext.Count-1 do
    Dispose(PExtDetails(Ext.Objects[i])); // den mit New() reservierten Speicher wieder freigeben
  Ext.Free; // und die Liste selbst entsorgen
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

TYPE
  TExtDetails = RECORD
    Anzahl: INT64;
    Size: INT64;
//    Prozent: DOUBLE;
    TProzent: RECORD
      Anzahl: DOUBLE;
      Size: DOUBLE;
    END;
    PProzent: ^TProzent;
  END;
  PExtDetails = ^TExtDetails;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

TYPE
  TExtDetails = RECORD
    Anzahl: INT64;
    Size: INT64;
    Prozent: RECORD // so wäre die Datenstruktur korrekt zu deklarieren
      Anzahl,
      Size: DOUBLE;
    END;
  END;
  PExtDetails = ^TExtDetails; // das hier ist nur ein Zeiger auf den record-Typ