ok. Otra pata que le nace al gato
Resulta que como no solo es problema de usar o no una función, sino que en el USES debe usar o no una librería, no se como usarlo, me salen problemas de compilación.
Si lo coloco en el USES inicial, me coloca unos archivos por defecto, de manera INEBITABLE, y genera error de compilación, si los coloco en el uses debajo del IMPLEMENTATION no entiende donde acaba el compilador condicional y no sabe en donde arranca el primer procedimiento.
No se que hacer
Código:
Código Delphi
[-]procedure TDmaestro.dtpesajeBeforePost(DataSet: TDataSet);
begin
{$IFDEF VAR140}
if VarIsNull(Dmaestro.dtpesajeTipo.Value) or (Dmaestro.dtpesajeTipo.Value='') then
Dmaestro.dtpesajeTipo.Value:='1';
{$ENDIF}
{$IFDEF VAR120}
if (Dmaestro.dtpesajeTipo.Value=Null) or (Dmaestro.dtpesajeTipo.Value='') then
Dmaestro.dtpesajeTipo.Value:='1';
{$ENDIF}
end;
en este caso, el archivo tiene en su clausula USES inicial, la que v exactamente debajo de INTERFACE el archivo
variants
pero cuando la función no incluye el problema con el NULL, sino que usa una
VarArrayOf, que para que sea entendido se debe colocar el archivo
variant en la calusula USES. como hago???
Ayuda....