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
gth(Table);
SetLength(Table,i + 1);
Table[i] := s;
end;
end.
--
View this message in context:
http://free-pascal-lazarus.989080.n3.nabble.com/Lazarus-How-write-a-proper-Type-declaration-with-procedures-tp4045029p4045031.html
Sent from the Free Pascal - Lazarus mailing list archive at N
Thank you both - another case of not seeing the wood for the trees.
Joe
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Hi
I have inherited a boon-doggle of a system, about 60% of which is in an old version of Delphi. I hope to use Lazarus/Free Pascal to re-implement for Windows , with a mySQL back-end on a Linux box.
This isn't real code, but a minimal example of what I want to do in a unit: