mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 02:32:37 +02:00
37 lines
629 B
ObjectPascal
37 lines
629 B
ObjectPascal
unit tdefaultproperty1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type
|
|
TNamedObj = class
|
|
public
|
|
Name: string;
|
|
end;
|
|
|
|
|
|
{ TBaseObject }
|
|
|
|
TBaseObject = class
|
|
private
|
|
function GetObject(Index: Integer): TNamedObj;
|
|
public
|
|
property Objects[Index: Integer]: TNamedObj read GetObject; default;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TBaseObject }
|
|
|
|
function TBaseObject.GetObject(Index: Integer): TNamedObj;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
Self.Objects{declaration:tdefaultproperty1.TBaseObject.Objects}[I].Name{declaration:tdefaultproperty1.TNamedObj.Name}:='';
|
|
Self[I].Name{declaration:tdefaultproperty1.TNamedObj.Name}:='';
|
|
end;
|
|
|
|
end.
|
|
|