Eigenen Typ in Klasse

[arbu man]

Deine add proc könnte so aussehen:

Delphi-Quellcode:

procedure tetc.add(foo: Tdeinrecord);
begin
  setlength(derarray, length(derarray)+1)
  derarray[length(derarray)]:= foo;
end;

(aus dem kopf)