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
