estou com um problema q/ não sei como resolver:{No cadastro de equipamentos, só deve deixar alterar o status para Vendido/Roubado ou Inativado se o status anterior for Disponível. } //CONDIÇÂO o status só podera ser vendido/rubado,inativo se //tiver com statu anterior desponivel. esse foi o codigo q/ eu fiz pra validar eu criee 3 variaveis globais Vendido/Roubado e Inativado e uma local anteriorDisponivel as 3 do tipo string,mas ele esta dando erro em compativel alguém pode me falar porque? procedure TFrmCadEquip.DBEStatusExit(Sender: TObject); var anteriorDisponivel:string; begin {No cadastro de equipamentos, só deve deixar alterar o status para Vendido/Roubado ou Inativado se o status anterior for Disponível. } //CONDIÇÂO o statu só podera ser vendido/rubado,inativo e se //tiver com statu anterior desponivel. if (vendido <> anteriorDisponivel)or(roubado <> anteriorDisponivel)and (inativo <> anteriorDisponivel)then begin ShowMessage('Status não pode ser alterado porque/o valor anterior não esta disponivel!'); DBEStatus:=StrToFloat(anteriorDisponivel); end else begin ShowMessage('Status alterado com sucesso!'); end; end; e pode me falar também como ´pego os valores q/estão gravdos no combobox lá no banco obrigada.
