Fórum Erro estranho no Delphi #559946
05/08/2016
0
Estou trabalhando em um projeto Delphi Berlin e das duas uma ou mudou tudo ou não sei o que é esse erro:
criei um método dentro de um datamodule
function Tdm.finsertSql(nome, idade: string): Boolean;
begin
Result := False;
with Qry_I do
begin
close;
sql.Clear;
sql.Add('insert into tb_demo1 (nome,idade)values (:nome,:idade)');
ParamByName('nome').AsString := nome;
ParamByName('idade').AsString := idade;
ExecSQL;
Result := True;
end;
end;
Ate aqui tudo certo
no form
procedure TForm1.btnAddClick(Sender: TObject); var x: Tdm; begin x.finsertSql(edtNome.Text, edtIdade.Text); end;
ao executar da um erro e por curiosidade vi que se trocar o x por datamodule.funcao funciona corretamente
Alguém sabe o porque disso ?
Carlos Faria
Curtir tópico
+ 0Post mais votado
06/08/2016
begin
Application.CreateForm(Tdm, x);
x.finsertSql(edtNome.Text, edtIdade.Text);
end;
Raimundo Pereira
Gostei + 1
Mais Posts
09/08/2016
Carlos Faria
Gostei + 0
09/08/2016
William
Porém acredito que você já esteja referenciando o DataModule na sua cláusula USES desse "Form1" então não precisa dessa variável "x", basta chamar pelo name do DataModule.
Gostei + 0
10/08/2016
Carlos Faria
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)