É Tao difícil bloquear a gravação assim!

Delphi

09/05/2003

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:


Wgm8

Wgm8

Curtidas 0

Respostas

Okama

Okama

09/05/2003

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.


GOSTEI 0
Wgm8

Wgm8

09/05/2003

:P Valeu


GOSTEI 0
Cruz

Cruz

09/05/2003

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:


GOSTEI 0
Cruz

Cruz

09/05/2003

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:


GOSTEI 0
POSTAR