Stress mit Record aber warum?

[Klaus01]

Alternativ kannst Du acu anstelle des Array eine TList nehmen.
Die hat Methoden zum hinzufügen und löschen von Elementen.
Und auch eine Eigenschaft die die Größe der Liste beinhaltet.

Der Vollständigkeit halber ergänzt:

Delphi-Quellcode:

type 
  TForm1 = class(TForm) 
   ....
  private 
    { Private-Deklarationen } 
    type 
      PHistory = ^THistory
      THistoryData = record 
        FileName: string; 
        OldSize, NewSize: int64; 
      end; 
    HistoryData : PHistory;
    HistoryList : TList;
  public 
    { Public-Deklarationen } 
  end;

erstellen von Einträgen:

Delphi-Quellcode:

new(HistoryData);
HistoryData^.FileName:='...';
HistoryList.add(HistoryData);

Ausgabe von Einträgen:

Delphi-Quellcode:

for i:=0 to HistoryList.count -1 do
  begin
    HistoryData:=HistoryList.items[i]
    ShowMessage(HistoryData^.FileName);
  end;

Löschen der Liste:

Delphi-Quellcode:

While HistoryList.count > 0 do
  begin
    HistoryData:= HistoryList.items[0];
    Dispose(HistoryData);
    HistoryList.delete(0);
  end;
HistoryList.free;

Grüße
Klaus