Problemas com DBedit mascarados

Question

Ol� pessoalBom coloquei um campo chamado DATA e CPF em um sistema e n�o quero que a pessoa saia do campo sem digitar os seus dados ent�o usei o seguinte comando no ONEXIT. IF data.date = � � Then   Be...

Micheus · Answer

se vc n�o necessitar gravar os dados com a m�scara, basta trocar o [b:7832369193]1[/b:7832369193] por [b:7832369193]0[/b:7832369193] na defini��o da m�scara.

Caso contr�rio, utilize uma fun��o para remover os caracteres indesejados e validar seu campo:
type
TCharSet = set of char;

function FilterChars(Source :String; Filter :TCharSet) :String;
var
Idx :Integer;
begin
for Idx := Length(Source) downto 1 do
if (Source[Idx] in Filter) then
Delete(Source, Idx, 1);
Result := Source;
end;

no programa:
IF FilterChars(DBData.Text, [�/�, � �]) = �� Then

IF FilterChars(DBCPF.Text, [�/�, � �, �.�, �-�]) = �� Then

Micheus · Answer

se vc n�o necessitar gravar os dados com a m�scara, basta trocar o [b:7832369193]1[/b:7832369193] por [b:7832369193]0[/b:7832369193] na defini��o da m�scara.

Caso contr�rio, utilize uma fun��o para remover os caracteres indesejados e validar seu campo:
type
TCharSet = set of char;

function FilterChars(Source :String; Filter :TCharSet) :String;
var
Idx :Integer;
begin
for Idx := Length(Source) downto 1 do
if (Source[Idx] in Filter) then
Delete(Source, Idx, 1);
Result := Source;
end;

no programa:
IF FilterChars(DBData.Text, [�/�, � �]) = �� Then

IF FilterChars(DBCPF.Text, [�/�, � �, �.�, �-�]) = �� Then

Micheus · Answer

se vc n�o necessitar gravar os dados com a m�scara, basta trocar o [b:7832369193]1[/b:7832369193] por [b:7832369193]0[/b:7832369193] na defini��o da m�scara.

Caso contr�rio, utilize uma fun��o para remover os caracteres indesejados e validar seu campo:
type
TCharSet = set of char;

function FilterChars(Source :String; Filter :TCharSet) :String;
var
Idx :Integer;
begin
for Idx := Length(Source) downto 1 do
if (Source[Idx] in Filter) then
Delete(Source, Idx, 1);
Result := Source;
end;

no programa:
IF FilterChars(DBData.Text, [�/�, � �]) = �� Then

IF FilterChars(DBCPF.Text, [�/�, � �, �.�, �-�]) = �� Then

Micheus · Answer

Desculpem pela repeti��o. o navegador estava dando time-out e dei alguns refresh. Parece que acabou postando repetidas vezes....

F�rum Problemas com DBedit mascarados #324241