Erro na chamada da procedure. Alguém pode me ajudar.
Olá pessoal, desculpe a ignorancia mas sou leigo no assunto.
Em Type, declarei a seguinte procudere :
Type
procedure shape_p();
Dentro de um If fiz a chamada para a procedure :
If Cor=´azul´ then
shape_p;
Daí eu criei a procudure :
procedure shape_p();
begin
linhas de comando....
end;
Quando vou compilar dá o seguinte erro :
[Error] Unit1.pas(48): Unsatisfied forward or external declaration: ´TForm1.shape_p´
Não preciso passar variaveis junto com a procudure, apenas quero que quando chegar naquele IF o programa será desviado para a procedure shape_p para fazer o que eu quero.
Se alguém puder ajudar, me indicando o que estou fazendo errado eu agradeço.
Obrigado
Em Type, declarei a seguinte procudere :
Type
procedure shape_p();
Dentro de um If fiz a chamada para a procedure :
If Cor=´azul´ then
shape_p;
Daí eu criei a procudure :
procedure shape_p();
begin
linhas de comando....
end;
Quando vou compilar dá o seguinte erro :
[Error] Unit1.pas(48): Unsatisfied forward or external declaration: ´TForm1.shape_p´
Não preciso passar variaveis junto com a procudure, apenas quero que quando chegar naquele IF o programa será desviado para a procedure shape_p para fazer o que eu quero.
Se alguém puder ajudar, me indicando o que estou fazendo errado eu agradeço.
Obrigado
Anonymous
Curtidas 0
Respostas
Anonymous
25/02/2003
vc está declarando a procedure de modo errado, vc pode fazer assim
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Shape;
end;
procedure TForm1.Shape;
begin
seu codigo;
end;
Leandro.
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Shape;
end;
procedure TForm1.Shape;
begin
seu codigo;
end;
Leandro.
GOSTEI 0