Erro para criar procedure !!!

Delphi

06/11/2003

Olá galera do Fórum!!!

Eu sou novo no Delphi. Eu não estou entendendo pq eu não estou conseguindo criar uma procedure. Eu estou fazendo isso:

unit Uprinc;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ToolWin, ComCtrls, ExtCtrls;

type
Tfrmprinc = class(TForm)
.
.
.

Private
{ Private delcarations }
public
procedure AlimentaCbo(oCombo: TComboBox);
{ Public declarations }
end;

var
frmprinc: Tfrmprinc;


implementation

uses

procedure AlimentaCbo(oCombo: TComboBox);
begin
oCombo.Items.Add(´A´);
oCombo.Items.Add(´B´);
oCombo.Items.Add(´C´);
end;

end.

O que está errado? Eu não estou entendendo. Parece estar tudo certo!

O erro que está dando é o seguinte:

[Error] Uprinc.pas(62): Unsatisfied forward or external declaration: ´Tfrmprinc.AlimentaCbo´

Se vcs puderem me ajudar...
Valeu!!!


Tectaf

Tectaf

Curtidas 0

Respostas

Brnz

Brnz

06/11/2003

Ai vai o codigo certinhu...

unit Uprinc; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ToolWin, ComCtrls, ExtCtrls; 

type 
Tfrmprinc = class(TForm) 
. 
. 
. 

Private 
{ Private delcarations } 
public 
procedure AlimentaCbo(oCombo: TComboBox); 
{ Public declarations } 
end; 

var 
frmprinc: Tfrmprinc; 


implementation 

uses 
    {Tenq por o TForm na Declaração}
procedure {-->}Tfrmprinc.{<--}AlimentaCbo(oCombo: TComboBox); 
begin 
oCombo.Items.Add(´A´); 
oCombo.Items.Add(´B´); 
oCombo.Items.Add(´C´); 
end; 

end.



GOSTEI 0
Tectaf

Tectaf

06/11/2003

Valeu cara... Muito obrigado :D


GOSTEI 0
POSTAR