I'll refrain from looking at the code specifically, since I got it wrong last time ;-)
 
However, one BIG suggestion would be to get rid of at least one if not both items in your 'with' statement - always a potential spot for bugs.
 
HTH,
 
Conor
-----Original Message-----
From: Matthew Evans [mailto:[EMAIL PROTECTED]]
 
Its creating a new interface object yes, but I'm not using IInterfaceList

The Get_items is as follows :

 

function TDataSightVariableList.Get_Items(

    Index: Integer): IDataSightVariable;

begin

    with FVariableList,VarInterface do begin

        Description := Items[Index].Description;

        DisplayName := Items[Index].DisplayName;

        FieldName := Items[Index].FieldName;

        FieldID := Items[Index].FieldID;

        Units := Items[Index].Units;

        FieldFormat := Items[Index].FieldFormat;

        FieldType := integer(Items[Index].FieldType);

        Fixed := Items[Index].Fixed;

        MarkedForDelete := Items[Index].MarkedForDelete;

        MarkedForSave := Items[Index].MarkedForSave;

        Size := Items[Index].Size;

    end;

    Result := VarInterface;

end;

Reply via email to