[jafera]

Hola a todos después de tiempo sin postear, (es que el verano me tiene frito y dispongo de poco tiempo).

Tengo una tabla en firebird 1.5 a la que quiero añadir registros buscando el último valor de la misma con una sql, en vez de last, etc. cuando la tabla tiene algún registro introducido, funciona perfectamente, pero si la tabla está vacía y es el primer registro no encuentro la forma de convertir el valor alfanumerico de la consulta (Max_IdMAX.text) a entero y me da error.

Código del botón:

Código Delphi [-]
 
procedure TF_RebutFP.ToolButton1Click(Sender: TObject);
var id: integer;
begin
        ToolBar1.Visible := False;
        ToolBar2.Visible := True;
        Max_Id.Close;
        Max_Id.Open;
        if Max_IdMAX.Text='' then
        begin
                    // que debería poner aquí en el caso de que Max_IdMAX este vacio para que no me de error de que '' no es   un valor entero?
        end;
        id := StrToInt(Max_IdMAX.Text)+1;
        F_ModulDades.RebutFP.Append;
        F_ModulDades.RebutFPID_REBUT.Value := id;
        F_ModulDades.RebutFPDATA.Value := Date;
        F_ModulDades.RebutFPI1.Value := 'N';
        F_ModulDades.RebutFPI2.Value := 'N';
        F_ModulDades.RebutFPI3.Value := 'N';
        F_ModulDades.RebutFPI4.Value := 'N';
        F_ModulDades.RebutFPI5.Value := 'N';
        F_ModulDades.RebutFPI6.Value := 'N';
        F_ModulDades.RebutFPI7.Value := 'N';
        F_ModulDades.RebutFPI8.Value := 'N';
        F_ModulDades.RebutFPI9.Value := 'N';
        F_ModulDades.RebutFPSUSPENSIO.Value := 'N';
        F_ModulDades.RebutFPDATA.FocusControl;
end;

la consulta Max_Id:

Código SQL [-]
 
Select Max (ID_REBUT) from re0006FP

Gracias por leerme.

Calurosos saludos

Josep