Estou com problemas em chamar a procedure seguinte no meu form
:
procedure TDM_Maquinas.IBDSMaquinasCOD_LINHASetText(Sender: TField; const Text: string);
begin
if Text <> '' then
begin
if Text = 'Linha 1' then
sender.AsInteger := 1
else if Text = 'Linha 2' then
Sender.AsInteger := 2
end;
end;
No botão salvar:
procedure TForm.salvar(Sender: TObject);
var
ValorLinha : Integer;
begin
ValorLinha := DM_Maquinas.IBDSMaquinasCOD_LINHASetText(DBComboBox2.Field, 'Linha 1'); //erro
end;
Estou com erro na linha a cima:
E2010 Incompatible types: 'Integer' and 'procedure, untyped pointer or untyped parameter'
Se mudarmos o tipo da variável ValorLinha para String
o erro persiste.