Fórum Enxergar Edit´s do Form principal.... #347720

22/10/2007

0

:idea:
Olá a todos.
Temos o form do programa Ex: FrM1000, e criei uma unit de procedures deste form/programa chamada UnM1000_Proc.
Criei nesta unit de procedures rotinas tipo:

Get_Clientes,
esta procedure esta na unit de procedures da seguinte forma.

With FrM1000 do
begin
EdtCodCli.Text := Dm.CliDtSt.FieldByName(´Cli_Cod´).asstring;
EdtNome.Text := Dm.CliDtSt.FieldByName(´Cli_NOme´).asstring;
end;

Mas quando executamos retorna erro:

Access Violation At Address......

Como posso resolver este problema.
Imaginava que estando dentro do With não precisaria declarar o nome do Form como abaixo.

FrM1000.EdtCodCli.Text := Dm.CliDtSt.FieldByName(´Cli_Cod´).asstring;

Abraços

Neto


Neto

Neto

Responder

Posts

23/10/2007

Marco Salles

Imaginava que estando dentro do With não precisaria declarar o nome do Form como abaixo. FrM1000.EdtCodCli.Text := Dm.CliDtSt.FieldByName(´Cli_Cod´).asstring;


Sei não... Acho que o problema não é este não...

Quando voce usa usando o Nome explicitamente funciona ????

ou da erro de acessos violados tb ?????


Responder

Gostei + 0

23/10/2007

Neto

Você tem razão,
mesmo explicitamente esta apresentando o erro, veja a linha:

E graças a sua dica me despertou que estou fazendo isso no OnCreate, já alterei e rodou

Muito obrigado

Neto


Responder

Gostei + 0

23/10/2007

Alexandrej

Access Violation At Address...... FrM1000.EdtCodCli.Text := Dm.CliDtSt.FieldByName(´Cli_Cod´).asstring;


De duas uma: ou o FrM1000 ou o Dm não foi criado.


Responder

Gostei + 0

23/10/2007

Marco Salles

Geralmente é recomendado na secção Auto Create Forms , criar primeiros
os DataModulo...


Responder

Gostei + 0

23/10/2007

Neto

O FrM1000, não tinha sido criado ainda.

Agora rodou...

Neto


Responder

Gostei + 0

23/10/2007

Martins

O FrM1000, não tinha sido criado ainda. Agora rodou... Neto


Blz, valew por ter voltado para informar q conseguiu resolver e como.

bons códigos.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar