Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde,
Recentemente comprei o livro "Sistema Comercial Integrado com Delphi 2005 - Cadastro e Estoque", a principio gostei bastante do livro por ele construir um aplicativo junto do leitor. Outro fator interessante é a explicação sobre os componentes e suas funções conforme a utilização! Após algum tempo de leitura, cheguei ao Capítulo 9, página 151. A partir desta página o livro começou a pecar nas explicações e dai comeram os problemas que descreverei a baixo!
Atualmente, o problema se dá na declaração de uma classe me parece! Postarei o código e deixarei as linhas que informam os erros comentadas. Abaixo colocarei tambem as mensagens de erro:
Na paleta Menssages acusa o seguinte erro: [DCC Error] frmFormPadrao1.pas(108): E2147 Property 'Executar' does not exist in base class
Na paleta Structure acusa o seguinte erro: Undefined property 'Executar' at line 108 (108:14)
Na paleta Menssages acusa o seguinte erro: [DCC Error] frmFormPadrao1.pas(122): E2003 Undeclared identifier: 'FExecutar'
Na paleta Structure acusa o seguinte erro: Undeclared identifier 'FExecutar' at line 123 (123:3)
unit frmFormPadrao1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ComCtrls, ToolWin, Menus, ExtCtrls, StdCtrls, Mask, DBCtrls,
DB, IBCustomDataSet;
type
TExecutar = (navegacao);
TFormPadrao1 = class(TForm)
ImageList1: TImageList;
ImageList2: TImageList;
ImageList3: TImageList;
ToolBar1: TToolBar;
btn_AutoFiltrar: TToolButton;
ToolButton2: TToolButton;
btn_Inicio: TToolButton;
btn_Anterior: TToolButton;
btn_Proximo: TToolButton;
btn_Final: TToolButton;
ToolButton7: TToolButton;
btn_Incluir: TToolButton;
btn_Alterar: TToolButton;
btn_Excluir: TToolButton;
btn_Marcar: TToolButton;
ToolButton12: TToolButton;
btn_Gravar: TToolButton;
btn_Reverter: TToolButton;
ToolButton15: TToolButton;
btn_Ajuda: TToolButton;
btn_Sair: TToolButton;
PopupMenu1: TPopupMenu;
m11: TMenuItem;
m12: TMenuItem;
N1: TMenuItem;
m13: TMenuItem;
m14: TMenuItem;
N2: TMenuItem;
m15: TMenuItem;
m16: TMenuItem;
PopupMenu2: TPopupMenu;
m21: TMenuItem;
N3: TMenuItem;
m22: TMenuItem;
PopupMenu3: TPopupMenu;
m31: TMenuItem;
m32: TMenuItem;
N4: TMenuItem;
m33: TMenuItem;
m34: TMenuItem;
StatusBar1: TStatusBar;
Panel1: TPanel;
PageControl1: TPageControl;
TabSheetFicha: TTabSheet;
TabSheetImprimir: TTabSheet;
Image1: TImage;
TabSheetTabela: TTabSheet;
PanelEntrada: TPanel;
PanelFicha: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Image2: TImage;
IBDataSet1: TIBDataSet;
DataSource1: TDataSource;
IBDataSet1ID: TIntegerField;
IBDataSet1STATUS: TIBStringField;
IBDataSet1MARCA: TIBStringField;
IBDataSet1DATA_INC: TDateField;
IBDataSet1DATA_ALT: TDateField;
IBDataSet1DATA_HAB: TDateField;
IBDataSet1CAMPO_TESTE: TIBStringField;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
procedure btn_SairClick(Sender: TObject);
procedure btn_InicioClick(Sender: TObject);
procedure btn_AnteriorClick(Sender: TObject);
procedure btn_ProximoClick(Sender: TObject);
procedure btn_FinalClick(Sender: TObject);
procedure btn_IncluirClick(Sender: TObject);
procedure btn_AlterarClick(Sender: TObject);
procedure m21Click(Sender: TObject);
procedure btn_GravarClick(Sender: TObject);
procedure btn_ReverterClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure m12Click(Sender: TObject);
private
procedure SetExecutar(const Value: TExecutar);
{ Private declarations }
public
{ Public declarations }
property Executar; //Primeiro ocorrência de erro: [DCC Error] frmFormPadrao1.pas(108): E2147 Property 'Executar' does not exist in base class
end;
var
FormPadrao1: TFormPadrao1;
implementation
uses frmDM;
{$R *.dfm}
procedure TFormPadrao1.SetExecutar(const Value: TExecutar);
begin
FExecutar := Value; // Segunda ocorrência de erro: [DCC Error] frmFormPadrao1.pas(122): E2003 Undeclared identifier: 'FExecutar'
case Value of
//Hablita os botões de navegação
navegacao: begin
if IBDataSet1.Eof then
begin
btn_Proximo.Enabled := False;
btn_Final.Enabled := False;
end
else
begin
btn_Proximo.Enabled := True;
btn_Final.Enabled := True;
end;
if IBDataSet1.Bof then
begin
btn_Inicio.Enabled := False;
btn_Anterior.Enabled := False;
end
else
begin
btn_Inicio.Enabled := True;
btn_Anterior.Enabled := True;
end;
end;
end;
end;
end.
abraços
Carregando comentários...