Alguém Teria uma function que confere os dados?
Olá Companheiros de Trabalho...
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...
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
Curtidas 0
Respostas
Vega.x
09/05/2003
Tente utilizar a seguinte função:
[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.
[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
Wgm8
09/05/2003
Gostaria que me explica-se esta function...
GOSTEI 0
Bterossi
09/05/2003
Procedure CheckForBlankText();
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
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
Wgm8
09/05/2003
Alguem poderia me explicar.
GOSTEI 0