mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
e5c097a6e2
of a property with nf_no_lvalue flag, and check that such nodes are
never used in direct assignments (fixes mantis #21087 and a couple of
other cases of invalid assignments to properties)
git-svn-id: trunk@20140 -
46 lines
777 B
ObjectPascal
46 lines
777 B
ObjectPascal
{ %fail }
|
|
|
|
{$mode objfpc}{$H+}
|
|
uses
|
|
Classes;
|
|
|
|
type
|
|
TMyItem = class(TObject)
|
|
end;
|
|
|
|
TMyList = class(tfplist)
|
|
function GetItem(const I: Integer): TMyItem;
|
|
procedure SetItem(const I: Integer; const Item: TMyItem);
|
|
public
|
|
property Items[I: Integer]: TMyItem read GetItem write SetItem; default;
|
|
end;
|
|
|
|
function TMyList.GetItem(const I: Integer): TMyItem;
|
|
begin
|
|
Result := TMyItem(inherited Items[I]);
|
|
end;
|
|
|
|
procedure TMyList.SetItem(const I: Integer; const Item: TMyItem);
|
|
begin
|
|
(inherited Items[I]) := Item;
|
|
end;
|
|
|
|
var
|
|
I1, I2: TMyItem;
|
|
L: TMyList;
|
|
begin
|
|
try
|
|
I1 := TMyItem.Create;
|
|
I2 := TMyItem.Create;
|
|
L := TMyList.Create;
|
|
|
|
L.Add(I1);
|
|
L[0] := I2;
|
|
Assert(L[0] = I2);
|
|
finally
|
|
I1.Free;
|
|
I2.Free;
|
|
L.Free;
|
|
end;
|
|
end.
|