paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 18:23:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed result of readelement

Browse Source 
git-svn-id: trunk@5011 -
This commit is contained in:
marc 2004-01-04 14:28:27 +00:00
parent 2d1581c244
commit bdc90ba0b4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ideintf/propedits.pp
View File

@ -2909,8 +2909,13 @@ begin
end;
function TListPropertyEditor.ReadElement(Index: integer): TPersistent;
var
obj: TObject;
begin
Result:=TPersistent(TList(GetOrdValue).Items[Index]);
obj := TObject(TList(GetOrdValue).Items[Index]);
if obj is TPersistent
then Result:=TPersistent(obj)
else raise EInvalidOperation.CreateFmt('List element %d is not a TPersistent decendant', [Index]);
end;
function TListPropertyEditor.CreateElementPropEditor(Index: integer