ActiveDelphi

[sublixo]

Boa noite,

Estou tendo um erro de referência a um valor de um edit dentro de um form, via procedimento. Segue abaixo resumo:

procedure calcular_diametro();
var d1: real
begin
d1 := StrToFloat(frm_dr.txt_diametro1.Text);
end;

O problema está no text do diametro1, que não é localizado. O txt_diametro1 é um edit dentro do formulário frm_dr. Sei que é problema básico de sintaxe, estou um pouco enferrujado no delphi, voltando a programar agora.

[anderbelluno]

Olá,
o formulário frm_dr está sendo criado corretamente ?
na Unit do formulário onde vc tem a procedure calcular_diametro() faz um alt+f11 e adicione a Unit do frm_dr, creio que seja isso.
att. Anderson.

[sublixo]

Ja utiliza a unit do form, o procedimento está alocado no mesmo formulário onde estão os controles.

[anderbelluno]

Ola amigo,
faz um teste,

var
variavel: String;
begin
If Assigned(frm_dr) then
begin
variavel:= frmDoEdit.edit1.text;
end
else
showmessage('o formulario nao esta criado');
end;

temos que saber como vc cria os forms e como vc ta tentando obter os dados do edit.
att. Anderson.