Fórum Alguém Teria uma function que confere os dados? #158967
09/05/2003
0
Criei um programinha que grava os dados para um arquivo texto, gostaria de saber se alguém teria uma function que ao acionar o botão gravar ele verifica-se se todos os campos foram preenchidos.
Se alguem puder me ajudar!
Sem mais...
Wgm8
Curtir tópico
+ 0Posts
09/05/2003
Vega.x
[color=blue:215439a8f2]function CheckForBlankText : Boolean ;
// Declare-a na clausula Private do form
//
var
n : LongInt ;
begin
Result := false ;
for n := 0 to ( ComponentCount - 1 ) do
begin
if ( components[n].ClassType = TEdit ) then
begin
if TEdit (components[n]).text = ´´ then
begin
Result := true ;
Exit;
end;
end ;
end ;
End;[/color:215439a8f2]
Espero ter ajudado.
Gostei + 0
09/05/2003
Wgm8
Gostei + 0
09/05/2003
Bterossi
var
n : LongInt ;
begin
for n := 0 to ( ComponentCount - 1 ) do begin
if ( components[n].ClassType = TEdit )And(TEdit (components[n]).text = ´´) then ShowMessage(´Campo´+TEdit (components[n]).Name+´Vazio´);
end;
end ;
end;
Isto deve ajudar, ai vc ajusta como quiser
Gostei + 0
09/05/2003
Wgm8
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)