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