Ah... I can see it now:
711 function TFPGList.IndexOf(const Item: T): Integer;
712 begin
713Result := 0;
714{$info TODO: fix inlining to work! InternalItems[Result]^}
715while (Result < FCount) and (PT(FList)[Result] <> Item) do
716 Inc(Result);
717if Result = FCount then
7
The following code:
-
Unit
RTTIObject;
Interface
Uses
Classes,
SysUtils,
StrUtils,
Contnrs,
TypInfo;
Type
TRTTIObject = Class(TObject)
Private
fInstanceName: String;
2010/1/15 Jorge Aldo G. de F. Junior :
> -
> C:\Programacao\testcase>rttiobject-testcase.exe
> An unhandled exception occurred at $0040E1E7 :
> EAccessViolation : Access violation
> $0040E1E7 TRTTIOBJECT__DESTROY, line 143 of RTTIObject.pas
> $0040E18A TRTTIOBJE
the error happens even if i remove all statements in the constructor...
Constructor TRTTIObject.Create(Const aInstanceName: String);
Begin
Inherited Create;
End;
Still gives errors... (why should a constructor call the destructor anyway ?)
2010/1/15 cobines :
> 2010/1/15 Jorge Aldo G. de F.
Jorge Aldo G. de F. Junior wrote:
the error happens even if i remove all statements in the constructor...
Constructor TRTTIObject.Create(Const aInstanceName: String);
Begin
Inherited Create;
End;
Still gives errors... (why should a constructor call the destructor anyway ?)
If a construct
