Eigene Klasse

[jaschu]

Hi!

Ich hab hier ne eigene Klasse:

Delphi-Quellcode:

  Tmp3list = class
                items : Array of tdsatz;
                procedure adddir(pfad : String; fertigeliste:Tmp3list);
                function count : Integer;
          end;
  var dietollteListe : Tmp3list;

Jetzt würd ich ganz gern einfach

dietolleliste.count eingeben, um die Länge des Arrays zu zählen. Wie muss die Funktion dann aussehen, also der Zugriff auf $variablenliste.items?

Delphi-Quellcode:

function count : Integer;
begin
  result := length(???);
end;


danke schonmal für Antworten!

Jaschu

[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;

[jaschu]

ah, danke!