[Error] Unit1.pas(63): Undeclared identifier: 'Modulo'
[Error] Unit1.pas(63): Missing operator or semicolon
Modulo seria outro form, provavelmente um datamodule, onde esteja o
cdscontatos(Tclientdataset).
[Error] Unit1.pas(69): Undeclared identifier: 'TbSupSetor'
TbSupSetor é o nome de uma tabela(TTable, TQuery, TClientDataSet, etc).
[Error] Unit1.pas(69): 'THEN' expected but identifier 'State' found
Propriedade da TbSupSetor
[Error] Unit1.pas(70): Unterminated string
[Error] Unit1.pas(71): Unterminated string
Não pode escrever um pedaço da string numa linha e o resto na outra sem
finalizar a linha.
[Error] Unit1.pas(78): Statement expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Monique escreveu:
> Olá grupo. Como disse estudo Delphi e instalei Dekphi 7. Mas quando procuro
> alguma coisa na internet em relação a implementar um botão (ex o botão
> cancelar( tem propriedades e eventos do botão no site que não tem no meu
> Delphi. Vcs acham melhor instalar novamente ou pegar um completo?
> Sobre o código dá erro quando tento rodar o programa. Abaixo o código
> completo:
>
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
> Dialogs, StdCtrls, Menus, ExtCtrls;
>
> type
> TForm1 = class(TForm)
> btOk: TButton;
> btCancelar: TButton;
> btAjuda: TButton;
> lbLabel1: TLabel;
> lbLabel2: TLabel;
> lbLabel3: TLabel;
> edEdit3: TEdit;
> edEdit2: TEdit;
> edEdit1: TEdit;
> mmMenu1: TMainMenu;
> Arquivo1: TMenuItem;
> Salvar1: TMenuItem;
> Inserir1: TMenuItem;
> SelecionarTudo1: TMenuItem;
> SalvarComo1: TMenuItem;
> Ajuda1: TMenuItem;
> Sobre1: TMenuItem;
> Sair1: TMenuItem;
> cbBox1: TCheckBox;
> cbBox2: TCheckBox;
> cbBox3: TCheckBox;
> cbBox4: TCheckBox;
> lbLabel4: TLabel;
> rgGroup1: TRadioGroup;
> lbBox1: TListBox;
> cbBox5: TComboBox;
> gbBox1: TGroupBox;
> rbButton1: TRadioButton;
> rbButton2: TRadioButton;
> rbButton3: TRadioButton;
> rbButton4: TRadioButton;
> LbLabel5: TLabel;
> btSair: TButton;
> procedure btCancelarClick(Sender: TObject);
> procedure btSairClick(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.btCancelarClick(Sender: TObject);
> begin
> If MessageDlg('Deseja realmente cancelar as modificações ?', mtConfirmation,
> [mbYes,mbNo], 0) = mrYes Then
> Modulo.cdsContatos.Cancel;
>
> end;
>
> procedure TForm1.btSairClick(Sender: TObject);
> begin
> If TbSupSetor.State = dsEdit Then
> ShowMessage('Confirme ou Cancele a operação antes de
> fechar o programa.')
> else
> close
> end;
>
> end.
>
> Os erros são esses:
>
> [Error] Unit1.pas(63): Undeclared identifier: 'Modulo'
> [Error] Unit1.pas(63): Missing operator or semicolon
> [Error] Unit1.pas(69): Undeclared identifier: 'TbSupSetor'
> [Error] Unit1.pas(69): 'THEN' expected but identifier 'State' found
> [Error] Unit1.pas(70): Unterminated string
> [Error] Unit1.pas(71): Unterminated string
> [Error] Unit1.pas(78): Statement expected but end of file found
> [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
>
> Me ajudem.
>
> Grata.
>
>
>
> ------------------------------------
>
>
