� Tao dif�cil bloquear a grava��o assim!

Question

Programadores, em nenhum f�rum souberam me dizer corretamente como eu posso evitar a grava��o de um arquivo texto caso o usuario n�o preencha um campo! [color=red:8527df31af]� T�o Dif�cil assim? [/color:8527df31af]:?: :roll:

Okama · Answer

Voc� ainda n�o tentou o Inf�rum (o link abaixo), com certeza l� voc� acharia a resposta (hehe).

Insira esse c�digo no in�cio do evento que efetua a grava��o:

if Edit1.text = �� then begin
Shomessage(�Edit1 n�o foi preenchido�);
exit;
end;

onde Edit1 � o nome do componente que precisa ser preenchido, repita esse c�digo para cada campo que precise ser preenchido.

Pode n�o ser a melhor op��o mas com certeza � a mais simples.

Wgm8 · Answer

:P Valeu...

Cruz · Answer

mude a propriedade tag dos edits obrigat�rios para 1.
na rotina de grava��o escreva o seguinte c�digo:

var

i: integer;

begin
for i:= 0 to ComponentCount -1 do
begin
if(Components[i] is TEdit) then
begin
if((TEdit(Components[i]).Tag = 1)
and (TEdit(Components[i]).Text = ��)) then
begin
ShowMessage(�Campo Deve ser preenchido�);
TEdit(Components[i]).SetFocus;
exit;
end;
end;
end;
//rogina para salvar dados vao abaixo
end;
:wink:

Cruz · Answer

mude a propriedade tag dos edits obrigat�rios para 1.
na rotina de grava��o escreva o seguinte c�digo:

var

i: integer;

begin
for i:= 0 to ComponentCount -1 do
begin
if(Components[i] is TEdit) then
begin
if((TEdit(Components[i]).Tag = 1)
and (TEdit(Components[i]).Text = ��)) then
begin
ShowMessage(�Campo Deve ser preenchido�);
TEdit(Components[i]).SetFocus;
exit;
end;
end;
end;
//rogina para salvar dados vao abaixo
end;
:wink:

F�rum � Tao dif�cil bloquear a grava��o assim! #159084