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:
TURLTable=class(TStringlist)
private
property Table: LinkArray;
public
procedure Insert(const s: string);
end;
private
property Table: LinkArray;
public
procedure Insert(const s: string);
end;
elsewhere I will have
var
SpecTab: TURLTable;
....
SpecTable.Insert(some string')
When I come to write the implementation part of the unit, what's the syntax to refer to the property Table? If I use
procedure TURLTable.Insert(const s: String);
begin
Table[1] := s
end;
I get the error 'No member is provided to access property.'
How can I acess private properties like this?
Sorry if this is naiveI've become involved in something that I really didn't anticipate.
Joe
-------------------
Perth, WA, Australia
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
