fernando_vip Postado Julho 11, 2005 Denunciar Share Postado Julho 11, 2005 Voltei, para desespero de muitos heheheAinda estou com problemas com o programinha de sistema de controle de escola de informática. ele sempre dá o mesmo erro em todas as unites. Vou mandar o código da unit principál e depois os erros beleza?O código:unit fPrincipal;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Menus, StdCtrls, ComCtrls, jpeg, ExtCtrls;typeTFrmPrincipal = class(TForm)Mnu1: TMainMenu;Cadastro1: TMenuItem;Alunos1: TMenuItem;N1: TMenuItem;Sair1: TMenuItem;Consultas1: TMenuItem;Baixar1: TMenuItem;N3: TMenuItem;Relatrios1: TMenuItem;Alunos2: TMenuItem;N4: TMenuItem;Mensalidades1: TMenuItem;Atrasadas1: TMenuItem;Todas2: TMenuItem;Horrio1: TMenuItem;StbMen: TStatusBar;Panel1: TPanel;Panel2: TPanel;Label1: TLabel;Label2: TLabel;Panel3: TPanel;Image1: TImage;FichadeCadastral1: TMenuItem;N2: TMenuItem;Sinttico1: TMenuItem;Timer1: TTimer;GerarParclas1: TMenuItem;Utilitrios1: TMenuItem;BackupRestaurao1: TMenuItem;Consultar1: TMenuItem;procedure FormCreate(Sender: TObject);procedure Horrio1Click(Sender: TObject);procedure N1Click(Sender: TObject);procedure Alunos1Click(Sender: TObject);procedure FichadeCadastral1Click(Sender: TObject);procedure Timer1Timer(Sender: TObject);procedure GerarParclas1Click(Sender: TObject);procedure BackupRestaurao1Click(Sender: TObject);procedure Sinttico1Click(Sender: TObject);procedure Consultar1Click(Sender: TObject);procedure Sair1Click(Sender: TObject);privateprocedure ShowHint (Sender: TObject);function CriaAlias(Nome, Caminho, Driver: string): Boolean;publicend;varFrmPrincipal: TFrmPrincipal;implementationUses fHorario, fCurso, fAluno,fFichaAluno, fMensal, FrmBackup,fRel,fConsulta;{$R *.DFM}procedure TFrmPrincipal.ShowHint (Sender: TObject);beginStbMen.Panels.Items[1].Text := Application.hint;end;procedure TFrmPrincipal.FormCreate(Sender: TObject);beginApplication.OnHint := ShowHint;CriaAlias('a_curso', ExtractFilePath(Application.ExeName) + 'Db2\', 'PARADOX');end;procedure TFrmPrincipal.Horrio1Click(Sender: TObject);beginfrmHorario.ShowModal;end;procedure TFrmPrincipal.N1Click(Sender: TObject);beginfrmCursos.ShowModal;end;procedure TFrmPrincipal.Alunos1Click(Sender: TObject);beginfrmAluno.ShowModal;end;procedure TFrmPrincipal.FichadeCadastral1Click(Sender: TObject);beginfrmFicha.tblRelAluno.open;frmFicha.tblRelAluno.Filtered := False;FrmFicha.qrpFicha.Preview;frmFicha.tblRelAluno.close;end;procedure TFrmPrincipal.Timer1Timer(Sender: TObject);beginstbMen.Panels.Items[3].Text := DatetoStr(Date) + ' / ' +TimetoStr(Time);end;procedure TFrmPrincipal.GerarParclas1Click(Sender: TObject);beginFrmMensal.ShowModalend;procedure TFrmPrincipal.BackupRestaurao1Click(Sender: TObject);beginFrmBkp.ShowModal;end;procedure TFrmPrincipal.Sinttico1Click(Sender: TObject);beginFrmRel.tblRel.Open;FrmRel.tblRel.Filtered := False;FrmRel.QuickRep1.Preview;end;procedure TFrmPrincipal.Consultar1Click(Sender: TObject);beginFrmConsulta.ShowModal; end;function TFrmPrincipal.CriaAlias(Nome, Caminho, Driver: string): Boolean;beginResult := True;tryIf not Session.IsAlias(Nome) thenbeginSession.AddStandardAlias(Nome, Caminho, Driver);Session.SaveConfigFile;endelse result := false;except;Result := False;end;end;procedure TFrmPrincipal.Sair1Click(Sender: TObject);beginClose;end;end.Ond mostra o erro:procedure TfrmInc_Curso.SpeedButton3Click(Sender: TObject);beginIf Application.MessageBox('Confirma a Inclusão do Curso?','Cadastro de Alunos',MB_IconQUESTION + MB_YESNO) = IDYES thenBeginIf Not FrmAluno.tblA_curso.Locate('Descricao;Cod_Aluno',VarArrayOf([DBCBOCurso.Tex t, FrmAluno.DBText1.Field.text]),[loCaseInsensitive])thenbeginOs erros:[Error] fInc_Curso.pas(62): Undeclared identifier: 'VarArrayOf'[Error] fInc_Curso.pas(62): Ordinal type required[Error] fInc_Curso.pas(62): Incompatible types: 'Integer' and 'String'[Fatal Error] fAluno.pas(117): Could not compile used unit 'fInc_Curso.pas'Alguém pode ajudxar?? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Julho 11, 2005 Denunciar Share Postado Julho 11, 2005 Coloque Variants no uses. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Bruno Papa Postado Julho 11, 2005 Denunciar Share Postado Julho 11, 2005 manda a unit fInc_Curso.pas Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 bastard2003 Postado Julho 11, 2005 Denunciar Share Postado Julho 11, 2005 [Error] fInc_Curso.pas(62): Undeclared identifier: 'VarArrayOf'>>> qual delphi você ta usando??? porque essa função esta presente no 5 (eu já tentei usar no 6 e no 7 e tb não deu, não encontrei essa lib).[Error] fInc_Curso.pas(62): Ordinal type required >>> ta pedindo um tipo inteiro!![Error] fInc_Curso.pas(62): Incompatible types: 'Integer' and 'String' >> IntToStr ou StrToInt devem resolver![Fatal Error] fAluno.pas(117): Could not compile used unit 'fInc_Curso.pas' >> esse é por causa dos outro erros... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Julho 11, 2005 Autor Denunciar Share Postado Julho 11, 2005 Eu uso o Delphi 07, mas se não dá no 7 como devo proceder? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Julho 11, 2005 Autor Denunciar Share Postado Julho 11, 2005 Coloque Variants no uses. ainda estou voando, pode ser mais específico, sou novato Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Julho 11, 2005 Denunciar Share Postado Julho 11, 2005 Olá colega, VarArrayOf é uma função que está definida e implementada na unit Variants.pas. Coloque Variants na cláusula uses da sua unit fInc_Curso.pas Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Julho 12, 2005 Autor Denunciar Share Postado Julho 12, 2005 Olá colega, VarArrayOf é uma função que está definida e implementada na unit Variants.pas. Coloque Variants na cláusula uses da sua unit fInc_Curso.pas Fiz o que você falou e funcionou, parou com alguns erros, mas tem um ainda :[Fatal Error] File not found: 'c:\arquivos de programas\borland\delphi7\Rave5\Lib\backup.pas'seu que ele diz que o arq não foi encontrado, não é mesmo?porém ele está falando da biblioteca ou será porque eu preciso importar para ele o QReport?O rave não resolve? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Julho 12, 2005 Denunciar Share Postado Julho 12, 2005 Procure pelo arquivo backup.pas ou backup.dcu; coloque o caminho no path do projeto. você deve ter esse arquivo em algum lugar p/ poder compilar o programa. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Julho 12, 2005 Autor Denunciar Share Postado Julho 12, 2005 Procure pelo arquivo backup.pas ou backup.dcu; coloque o caminho no path do projeto. você deve ter esse arquivo em algum lugar p/ poder compilar o programa. Calma, pera, ops...Vamos por partes, como faço isso, mas seja detalhado por favor, se tudo terminar bem coloco seu nome no projeto..hehehe e mando uma cópia p vc..Voltando ao assunto, eu não sei como fazer isto Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Vivendo&Aprendendo Postado Julho 12, 2005 Denunciar Share Postado Julho 12, 2005 Amigão esse arquivo que o delphi acusou como erro, ele deve existir em algum lugar do seu pc, provavelmente na pasta delhpi onde fica as bibliotecas.Para ficar mais fácil vai em Iniciar>>Pesquisar e procure pelos arquivos BACKUP.PAS ou BACKUP.DCU e quando achar coloque eles na pasta do seu sistema.Deu para entender... qualquer coisa posta aifalouV&A Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Julho 12, 2005 Autor Denunciar Share Postado Julho 12, 2005 eu consegui identificas o frmBackup.pas e .dcu na pasta, tem a ver? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Julho 12, 2005 Denunciar Share Postado Julho 12, 2005 frmBackup.pas tem que ter porque você está declarando no uses da implementation; mas o erro que está dando é do arquivo Backup.pas.Procure por Backup.* em C:, D:, . . . Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
fernando_vip
Voltei, para desespero de muitos hehehe
Ainda estou com problemas com o programinha de sistema de controle de escola de informática. ele sempre dá o mesmo erro em todas as unites. Vou mandar o código da unit principál e depois os erros beleza?
O código:
unit fPrincipal;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls, ComCtrls, jpeg, ExtCtrls;
type
TFrmPrincipal = class(TForm)
Mnu1: TMainMenu;
Cadastro1: TMenuItem;
Alunos1: TMenuItem;
N1: TMenuItem;
Sair1: TMenuItem;
Consultas1: TMenuItem;
Baixar1: TMenuItem;
N3: TMenuItem;
Relatrios1: TMenuItem;
Alunos2: TMenuItem;
N4: TMenuItem;
Mensalidades1: TMenuItem;
Atrasadas1: TMenuItem;
Todas2: TMenuItem;
Horrio1: TMenuItem;
StbMen: TStatusBar;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Panel3: TPanel;
Image1: TImage;
FichadeCadastral1: TMenuItem;
N2: TMenuItem;
Sinttico1: TMenuItem;
Timer1: TTimer;
GerarParclas1: TMenuItem;
Utilitrios1: TMenuItem;
BackupRestaurao1: TMenuItem;
Consultar1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure Horrio1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Alunos1Click(Sender: TObject);
procedure FichadeCadastral1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure GerarParclas1Click(Sender: TObject);
procedure BackupRestaurao1Click(Sender: TObject);
procedure Sinttico1Click(Sender: TObject);
procedure Consultar1Click(Sender: TObject);
procedure Sair1Click(Sender: TObject);
private
procedure ShowHint (Sender: TObject);
function CriaAlias(Nome, Caminho, Driver: string): Boolean;
public
end;
var
FrmPrincipal: TFrmPrincipal;
implementation
Uses fHorario, fCurso, fAluno,fFichaAluno, fMensal, FrmBackup,fRel,
fConsulta;
{$R *.DFM}
procedure TFrmPrincipal.ShowHint (Sender: TObject);
begin
StbMen.Panels.Items[1].Text := Application.hint;
end;
procedure TFrmPrincipal.FormCreate(Sender: TObject);
begin
Application.OnHint := ShowHint;
CriaAlias('a_curso', ExtractFilePath(Application.ExeName) + 'Db2\', 'PARADOX');
end;
procedure TFrmPrincipal.Horrio1Click(Sender: TObject);
begin
frmHorario.ShowModal;
end;
procedure TFrmPrincipal.N1Click(Sender: TObject);
begin
frmCursos.ShowModal;
end;
procedure TFrmPrincipal.Alunos1Click(Sender: TObject);
begin
frmAluno.ShowModal;
end;
procedure TFrmPrincipal.FichadeCadastral1Click(Sender: TObject);
begin
frmFicha.tblRelAluno.open;
frmFicha.tblRelAluno.Filtered := False;
FrmFicha.qrpFicha.Preview;
frmFicha.tblRelAluno.close;
end;
procedure TFrmPrincipal.Timer1Timer(Sender: TObject);
begin
stbMen.Panels.Items[3].Text := DatetoStr(Date) + ' / ' +TimetoStr(Time);
end;
procedure TFrmPrincipal.GerarParclas1Click(Sender: TObject);
begin
FrmMensal.ShowModal
end;
procedure TFrmPrincipal.BackupRestaurao1Click(Sender: TObject);
begin
FrmBkp.ShowModal;
end;
procedure TFrmPrincipal.Sinttico1Click(Sender: TObject);
begin
FrmRel.tblRel.Open;
FrmRel.tblRel.Filtered := False;
FrmRel.QuickRep1.Preview;
end;
procedure TFrmPrincipal.Consultar1Click(Sender: TObject);
begin
FrmConsulta.ShowModal;
end;
function TFrmPrincipal.CriaAlias(Nome, Caminho, Driver: string): Boolean;
begin
Result := True;
try
If not Session.IsAlias(Nome) then
begin
Session.AddStandardAlias(Nome, Caminho, Driver);
Session.SaveConfigFile;
end
else result := false;
except;
Result := False;
end;
end;
procedure TFrmPrincipal.Sair1Click(Sender: TObject);
begin
Close;
end;
end.
Ond mostra o erro:
procedure TfrmInc_Curso.SpeedButton3Click(Sender: TObject);
begin
If Application.MessageBox('Confirma a Inclusão do Curso?','Cadastro de Alunos',MB_IconQUESTION + MB_YESNO) = IDYES then
Begin
If Not FrmAluno.tblA_curso.Locate('Descricao;Cod_Aluno',VarArrayOf([DBCBOCurso.Tex t, FrmAluno.DBText1.Field.text]),[loCaseInsensitive])then
begin
Os erros:
[Error] fInc_Curso.pas(62): Undeclared identifier: 'VarArrayOf'
[Error] fInc_Curso.pas(62): Ordinal type required
[Error] fInc_Curso.pas(62): Incompatible types: 'Integer' and 'String'
[Fatal Error] fAluno.pas(117): Could not compile used unit 'fInc_Curso.pas'
Alguém pode ajudxar??
Link para o comentário
Compartilhar em outros sites
12 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.