Código Delphi [-] Case Datos.AQ_Ubicacion['Ubi_Estado'].AsString[1] Of 'H': sEst.Text := 'estado H'; 'D': sEst.Text := 'estado D'; end
Case Datos.AQ_Ubicacion['Ubi_Estado'].AsString[1] Of 'H': sEst.Text := 'estado H'; 'D': sEst.Text := 'estado D'; end