Undeclared Identifier. missing operator or semicolon

[nietotchka 0]

Olá a todos. Sou nova por aqui.

O problema é o seguinte: é o meu primeiro banco de dados, estou usando o SQL Server 2008 e criando a aplicação-cliente em Delphi.

Tudo estava indo bem, quando me deparei com um erro que eu nunca tinha visto:

 

[Error] Unit5.pas(34): Undeclared identifier: 'Dmsubprefeitura'
[Error] Unit5.pas(34): Missing operator or semicolon
[Error] Unit5.pas(34): Missing operator or semicolon
[Error] Unit5.pas(35): Missing operator or semicolon
[Error] Unit5.pas(35): Missing operator or semicolon
[Error] Unit5.pas(35): Missing operator or semicolon
[Error] Unit5.pas(36): Missing operator or semicolon
[Error] Unit5.pas(36): Missing operator or semicolon
[Fatal Error] Unit1.pas(34): Could not compile used unit 'Unit5.pas'

Alguém já viu esse erro, sabe como resolver? HELP,. estou desesperada hehe.

 

Ah! aqui segue o código:

 

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;

type
  TForm5 = class(TForm)
	GroupBox1: TGroupBox;
	Edit1: TEdit;
	Button1: TButton;
	DBGrid1: TDBGrid;
	procedure Button1Click(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

uses Unit1;


procedure TForm5.Button1Click(Sender: TObject);
begin
Dmsubprefeitura.Qconsobras.Close;
Dmsubprefeitura.Qconsobras.ParamByName('x').Value := Edit1.Text + '%';
Dmsubprefeitura.Qconsobras.Open;
end;

end.

Espero que possam me ajudar http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[ZueRa 0]

O erro:

 

[Error] Unit5.pas(34): Undeclared identifier: 'Dmsubprefeitura'

 

pode ter sido por você não ter declarado o Dmsubprefeitura na cláusula USES da Unit.

Faça o seguinte: pressione ALT + F11 e selecione este DataModule (acredito que seja, pelo nome).

 

Sobre o erro:

 

[Error] Unit5.pas(34): Missing operator or semicolon

 

"Faltando operador ou ponto e vírgula".

 

Você deve ter esquecido algum ponto e vírgula ou end no seu código.

 

Você pode melhorar isto:

 

Dmsubprefeitura.Qconsobras.ParamByName('x').Value := Edit1.Text + '%';

para isto:

 

Dmsubprefeitura.Qconsobras.ParamByName('x').Value := QuotedStr(Edit1.Text + '%');

Abraço!