Código Delphi [-] var estado : string; estado := DataSource.DataSet.FieldByName('estado').Value; case estado[1] of 'L' : begin ShowMessage('LIBRE'); end; 'O' : begin ShowMessage('OCUPADO'); end; 'F' : begin ShowMessage('FUERASERVICIO'); end; end;
var estado : string; estado := DataSource.DataSet.FieldByName('estado').Value; case estado[1] of 'L' : begin ShowMessage('LIBRE'); end; 'O' : begin ShowMessage('OCUPADO'); end; 'F' : begin ShowMessage('FUERASERVICIO'); end; end;