Deklariere ihn im Interface der
Unit, vor der Klasse
Delphi-Quellcode:
type
Twoerterzaehlen = class; //forward Deklaration
arroftwoerter = array of Twoerterzaehlen;// möchte ich ich in anderen uniten verwenden
Twoerterzaehlen = class(Tobject)
private
procedure setFwort(const Value: String);
procedure setFAnzahl(const Value: integer);
protected
fWort: string;
fAnzahl: integer;
constructor create(Anz: integer; Wor: String); overload;
constructor create(Wor: String); overload;
property Wort: String read fWort write setFwort;
property Anzahl: integer read fAnzahl write setFAnzahl;
function woerter_zaehlen(st_woerter: tstringlist): arroftwoerter;
function toString(a_array: arroftwoerter): String;
end;