Veja como verificar se uma variável (independente do seu tipo) está vazia com uma simples função.

Nos bons e velhos tempos de programação em Clipper existia uma função muito útil chamada "EMPTY" que testava se uma variável (independente do tipo) estava vazia ou não. No Delphi as vezes precisamos de algo assim e por que não fazer a função "EMPTY" ? Vamos lá: function Empty(Value: Variant): Boolean; begin   Result := False;   case VarType(Value) of     varEmpty,     varNull     :  Result := True;     varSmallInt,     varInteger,     varShortInt,     varByte,     varWord,     varInt64    :  Result := (Value = 0);     varSingle,     varDouble,     varCurrency :  Result := (Value = 0.00);     varBoolean :  Result := not Value;     varDate     :  Result := (Value = 0);     varOleStr,     varString   :  Result := (Value = '');   end; end; Veja que o funcionamento é bem simples. O seu uso é: if Empty(Variavel) then    ShowMessage('Variável vazia'); Ou: if Empty(Edit1.Text) then    ShowMessage('Campo de preenchimento obrigatório'); Bem prático, não ?

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.00
Data.........: 28/06/2005 09:26:22
Visualizado..: 8835 vezes
Fonte........: Marcelo Torres