Boa tarde a todos,
Pessoal estou com o seguinte procedimento:
procedure TF_principal.SalvarClick(Sender: TObject);
var i:integer;
begin
with formulario do
begin
for i:=0 to ComponentCount-1 do
begin
if TDBEdit(Components[i]).Tag = 1 then
TDBEdit(Components[i]).Text :=
RemoveAcento(TDBEdit(Components[i]).Text);
end;
end; ...
A procedure se encontra no formulário principal do sistema...
O objetivo é: antes de gravar as informações eu verifico os
BDedits com tag 1 no formulário ativo e removo os acentos digitados,
o problema é que não consigo passar o formulário ativo(whith
formulario do) para o procedimento.
Se algum colega tiver uma solução, desde já agradeço.
Cristiano
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
