Função para limpar campos
Pessoal, tenho[b:500f1fe4a6] 42 TQRLabels e 3 TQRMemos[/b:500f1fe4a6] em um QuickReport e tenho q deixar todos vazios dependendo da função. Só que não quero escrever (ou colar em cada parte do código) as 42 linhas toda a vez que preciso limpar os campos.
Gostaria de criar uma função (ou DLL) onde ficaria as 42 linhas que limparia os campos, e digitasse um comando que faria o que está na função (ou DLL).
Gostaria de criar uma função (ou DLL) onde ficaria as 42 linhas que limparia os campos, e digitasse um comando que faria o que está na função (ou DLL).
Vagner.oliveira
Curtidas 0
Respostas
Fferreira
15/06/2006
E ai cara blz, eu fiz um procedimento para limpar meus forms, quem sabe vc pode alterar para limpara seus relatórios.
For I:= 0 to Frm.ComponentCount-1 do
Begin
If(Frm.Components[I] is TEdit)Then
TEdit(Frm.Components[I]).Text:= ´´;
End;
basta você trocar o tipo TEdit pelo tipo q vc estiver usando e Frm.ComponentCount para o ComponentCount do relatório
Até +
For I:= 0 to Frm.ComponentCount-1 do
Begin
If(Frm.Components[I] is TEdit)Then
TEdit(Frm.Components[I]).Text:= ´´;
End;
basta você trocar o tipo TEdit pelo tipo q vc estiver usando e Frm.ComponentCount para o ComponentCount do relatório
Até +
GOSTEI 0