type TURLTable = class(TStringlist) private FTable: LinkArray; function GetTable: LinkArray; public procedure Insert(const s: string); property Table: LinkArray read GetTable; end;
function TURLTable.GetTable: LinkArray; begin Result := FTable; end; procedure TURLTable.Insert(const s: string); begin end; ... or alternately property Table: LinkArray read FTable; ... and remove function GetTable: LinkArray;
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus