sry wenn ich doof frage, aber warum geht es so den nicht? ich weiss oben steht es, aber deine ausführung ist mir nicht ganz schlüssig...
Delphi-Quellcode:
unit DartBoard;
interface
uses
Classes, SysUtils, Dialogs, Windows;
type DartField =
record
Region : HRGN;
Field :
String
end;
type TDartBoard =
class(TList)
private
public
procedure Add(Item: Dartfield);
end;
implementation
{ TDartBoard }
procedure TDartBoard.Add(Item: DartField);
var
p : Pointer;
begin
p := @Item;
inherited Add(p);
end;
end.