Grados

[mauricioj40@hotmail.com]

Como puedo combertir el siguiente codigo de if a case
if cb_Lat.ItemIndex = 0 then
begin
//Mostrar los datos si la latitud es norte
vr_GraLat := Floor(tb_CMinadoLAT_ESQ_INF_IZQ.AsInteger);
vr_MinLat := tb_CMinadoLAT_ESQ_INF_IZQ.AsFloat;
vr_Rlat := Floor(vr_GraLat);
vr_Rlat2 := vr_MinLat - vr_Rlat;
vr_Rfin := 60 * vr_Rlat2;

sb_GradosLat.Value := vr_Rlat;
sb_MinutosLat.Value := vr_Rfin;
cb_Lat.Text := 'Norte';
end
else
//Mostrar los datos si la latitud es sur
vr_GraLat := Ceil(tb_CMinadoLAT_ESQ_INF_IZQ.AsInteger);
vr_MinLat := tb_CMinadoLAT_ESQ_INF_IZQ.AsFloat;
vr_Rlat := Ceil(vr_GraLat);
vr_Rlat2 := vr_MinLat - vr_Rlat;
vr_Rfin := 60 * vr_Rlat2;

sb_GradosLat.Value := vr_Rlat;
sb_MinutosLat.Value := vr_Rfin;
cb_Lat.Text := 'Sur';

if cb_Long.ItemIndex = 0 then
begin
//Mostrar los datos si la longitud es oeste
vr_GraLong := Floor(tb_CMinadoLONG_ESQ_INF_IZQ.AsInteger);
vr_MinLon := tb_CMinadoLONG_ESQ_INF_IZQ.AsFloat;
vr_Rlon := Floor(vr_GraLong);
vr_Rlon2 := vr_MinLon - vr_Rlon;
vr_Rfinal := 60 * vr_Rlon2;

sb_GradosLon.Value := vr_Rlon;
sb_MinutosLon.Value := vr_Rfinal;
cb_Long.Text := 'Oeste';
end
else
//Mostrar los datos si la longitud es este
vr_GraLong := Ceil(tb_CMinadoLONG_ESQ_INF_IZQ.AsInteger);
vr_MinLon := tb_CMinadoLONG_ESQ_INF_IZQ.AsFloat;
vr_Rlon := Ceil(vr_GraLong);
vr_Rlon2 := vr_MinLon - vr_Rlon;
vr_Rfinal := 60 * vr_Rlon2;

sb_GradosLon.Value := vr_Rlon;
sb_MinutosLon.Value := vr_Rfinal;
cb_Long.Text := 'Este';

[Omar Enrique]

Para colocarlo como case necesitarias un combobox
en el fotm principal