On Mar 27, 2006, at 1:29 PM, William Squires wrote:
But apparently doesn't in RB 5.2.4 (Win) and compiled to Windows
(WinXP box). See the previous message thread, "IsA isn't."
Odd ... this works in 5.5.5 (the oldest version I still have installed)
Dim i As Integer
Dim l As Integer
Dim theItem As SuperClass
Dim theSubclassItem As SubClass
dim fMyArray(-1) as SuperClass
fMyArray.append new SuperClass
fMyArray.append new SubClass
For i = 0 To ubound(fMyArray)
if fMyArray(i) IsA SubClass Then
theSubclassItem = SubClass(theItem)
Else
// tests for other subclasses...
End If
Next
For i = 0 To uBound(fMyArray)
theItem = fMyArray(i)
If (theItem IsA SubClass) Then
theSubclassItem = SubClass(theItem)
Else
// tests for other subclasses...
End If
Next
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
