Hola julyus.
Claro, por que estás intentando asignar una funcion a un array of variant:
Cita:
NewArrayData := SearchEvents(...
|
Tendrías que declarar un puntero a método de este modo:
Código Delphi
[-]
type
TListArray = array[0..58] of Variant;
TFuncionPtr = function (sIMEI: string; iCompanyId : integer; sVehicleId : string;
iCurrSpeed,iCurrRPM,iAccDeccValue :integer;
bDIN1, bDIN2, bDIN3, bDIN4 : Boolean;
fAIN1, fAIN2, fAIN3, fAIN4 : string;
iGSMSignal, iCurrentProfile : integer;
fAcelerometerData, fGPSSpeed, fPowerSuplyVoltage, fBatteryVoltage, fBatteryCurrent,
fGPSPower, fPCBTemperature, fTempSensor1, fTempSensor2,
fTempSensor3, fFuelCounter, sButtonInput, fCan0, fCan1,
fCan2, fCan3, fCan4, fCan5, fCan6, fCan7, fCan8, fCan9 : string;
bGeoZone1, bGeoZone2, bGeoZone3,
bGeoZone4, bGeoZone5, bGeoZone6, bGeoZone7,
bGeoZone8, bGeoZone9, bGeoZone10, bGeoZone11,
bGeoZone12, bGeoZone13, bGeoZone14, bGeoZone15,
bGeoZone16, bGeoZone17, bGeoZone18, bGeoZone19, bGeoZone20 : Boolean;
fVirtualOdometer : string; sCurrOperatorCode :
string; bMovement : Bool ) :TListArray of object;
TForm1: class(TForm)
public
FuncionPtr : TFuncionPtr;
...
private
...
end;
...
Entonces la asignación sería:
Código Delphi
[-]
FuncionPtr := SearchEvents(...
Saludos.