Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Ola,
Andando pela web, achei a rotina abaixo, que serve para testar se
determinado campo Requerid esta nulo, so que nao sei como usar
funções no delphi, ou seja, onde eu chamo a função abaixo, e tambem
gostaria de saber esta é a melhor forma para fazer consistência de
campos.
Grato
Luciano
D7
IB
Datamodule : SQLConnection, SimpleDataSet e DataSource
Formulario : TDBEdit
// FUNCAO PARA TESTAR CAMPOSfunction CampoObrigatorio(DataSet : TDataSet): Boolean;vari : integer;beginresult := true;with dados.sdsbanco dofor i := 0 to dados.sdsbanco.FieldCount -1 doif ((fields[i].required) and (not fields[i].IsBlob)) thenif fields[i].value = '' thenbeginshowmessage('O campo '+fields[i].displayname+' éobrigatório.');result := false;fields[i].FocusControl;exit;end;end;//Obs.:Tem como fazer a validacao direto no datamodule, para nao ter q ficar copiando o codigo para todos forms?
Carregando comentários...
