Ver Mensaje Individual
  #6  
Antiguo 25-03-2016
xangiesaurx xangiesaurx is offline
Miembro
NULL
 
Registrado: feb 2016
Posts: 57
Reputación: 9
xangiesaurx Va por buen camino
Ok, ahora se me presento otro problemita, tengo en un classes.pas estas funciones:

Código Delphi [-]
function TStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
begin
{ Default implementation of 64 bit seek is to deflect to existing 32 bit seek.
  Descendents that override 64 bit seek must not call this default implementation. }
  if (Offset < Low(Longint)) or (Offset > High(Longint)) then
    raise ERangeError.CreateRes(@SRangeError);
  Result := Seek(Longint(Offset), Ord(Origin));
end;

function TStream.Seek(const Offset: Int64; Origin: Word): Int64;
begin
  Result := Seek(Offset, TSeekOrigin(Origin));
end;

Y en fs_uses.pas tengo lo siguiente:

Código Delphi [-]
else if MethodName = 'SEEK' then
      Result := _TStream.Seek(Caller.Params[0], Caller.Params[1])

Me esta dando el siguiente error:
[dcc32 Error] fs_iclassesrtti.pas(306): E2251 Ambiguous overloaded call to 'Seek'
System.Classes.pas(846): Related method: function TStream.Seek(const Int64; Word): Int64;
System.Classes.pas(845): Related method: function TStream.Seek(const Int64; TSeekOrigin): Int64;

Alguien sabe como poder solucionarlo?
Gracias

Por cierto Caller.Params son Variant. (Uso XE5)
Responder Con Cita