From bdc90ba0b4a32e3d581f02ebb4265c4aa3ccc625 Mon Sep 17 00:00:00 2001 From: marc Date: Sun, 4 Jan 2004 14:28:27 +0000 Subject: [PATCH] * Fixed result of readelement git-svn-id: trunk@5011 - --- ideintf/propedits.pp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp index 3d81db45ea..e1b3dd768d 100644 --- a/ideintf/propedits.pp +++ b/ideintf/propedits.pp @@ -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