Eigene Klasse

[ste_ett]

Code:

function count : Integer;
begin
  result := Length(items);
end;

- edit-
oder du machst es per property

Code:

  Tmp3list = class
  private
    items: Array of tdsatz;
    function GetCount: Integer;
  public
    procedure adddir(Pfad: String; FertigeListe: Tmp3list);
    property count: Integer read GetCount;
  end;

---

function Tmp3list.GetCount: Integer;
begin
  Result := Length(items);
end;