Erro em Delphi


Página 1 de 2    1  2 
26-10-2003 por Marcos Heringer
Erro em Delphi
ae galera alguém sabe pq acontece este erro em delphi?
[FATAL ERROR]Project1.dpr(5):Could not compíle used unit1 'Unit1.pas'
este é o erro e ae espero ajuda.flw
26-10-2003 por romulo
Re: Erro em Delphi
Citação:
Postado Originalmente por Marcos Heringer
ae galera alguém sabe pq acontece este erro em delphi?
[FATAL ERROR]Project1.dpr(5):Could not compíle used unit1 'Un...
Você alterou o nome do arquivo Unit1.pas? Aparentemente ele não está encontrando esse arquivo.
27-10-2003 por Marcos Heringer
o Unit 1 é o nome do projeto e eu não alterei nada, eu tentei mudar o nome mas naum adiantou nada.continuo perguntano q erro é esse
27-10-2003 por romulo
Posta aí o conteúdo dos arquivos Project1.dpr e Unit1.pas.
27-10-2003 por Marcos Heringer
ele é um pouco grande as aí vai este é o cod fonte do editor de texto q eu até desafiei o pessoal a fazer.
Citação:
unit editordetexto;

interface

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

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Arquivo1: TMenuItem;
Novo1: TMenuItem;
Abrir1: TMenuItem;
Salvar1: TMenuItem;
N1: TMenuItem;
Sair1: TMenuItem;
Editar1: TMenuItem;
Recortar1: TMenuItem;
Copiar1: TMenuItem;
Colar1: TMenuItem;
N2: TMenuItem;
SelecionarFonte1: TMenuItem;
Fonte1: TMenuItem;
Cor1: TMenuItem;
Negrito1: TMenuItem;
Itlico1: TMenuItem;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
ColorDialog1: TColorDialog;
procedure Novo1Click(Sender: TObject);
procedure Abrir1Click(Sender: TObject);
procedure Salvar1Click(Sender: TObject);
procedure Sair1Click(Sender: TObject);
procedure Recortar1Click(Sender: TObject);
procedure Copiar1Click(Sender: TObject);
procedure Colar1Click(Sender: TObject);
procedure Fonte1Click(Sender: TObject);
procedure Cor1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Novo1Click(Sender: TObject);
begin
memo1.Clear;
recortar1.Enabled:=false;
copiar1.Enabled:=false;
colar1.Enabled:=false;
end;

procedure TForm1.Abrir1Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.lines.LoadFromFile(opendialog1.filename);
end;

procedure TForm1.Salvar1Click(Sender: TObject);
begin
if savedialog1.Execute then
memo1.Lines.SaveToFile(savedialog1.filename);
end;

procedure TForm1.Sair1Click(Sender: TObject);
begin
Close
end;

procedure TForm1.Recortar1Click(Sender: TObject);
begin
memo1.CutToClipboard;
colar1.Enabled:=true;
end;

procedure TForm1.Copiar1Click(Sender: TObject);
begin
memo1.copytoClipboard;
colar1.Enabled:=true;
end;

procedure TForm1.Colar1Click(Sender: TObject);
begin
memo1.pastefromclipboard;

end;

procedure TForm1.Fonte1Click(Sender: TObject);
begin
fontdialog1.Font:=memo1.Font;
if fontdialog1.Execute then
memo1.Font:=fontdialog1.Font;
end;

procedure TForm1.Cor1Click(Sender: TObject);
begin
colordialog1.Color:=memo1.Color;
if colordialog1.Execute then

end;

end.
se alguém puder ajudar eu agradeço
27-10-2003 por romulo
Citação:
Postado Originalmente por Marcos Heringer
ele é um pouco grande as aí vai este é o cod fonte do editor de texto q eu até desafiei o pessoal a fazer.
O nome desse arquivo é "Unit1.pas" ou "editordetexto.pas"? Se for "Unit1.pas", então o erro é esse, o arquivo tem que ter o mesmo nome que a Unit.
27-10-2003 por Marcos Heringer
o início do fonte está assim
Citação:
unit editordetexto;
igual tava antes.
28-10-2003 por GBastos
Olha aí o famoso romulo!! :lol: Andou sumido...

Quanto a problema, posta aí o código do projeto q deve dar uma pista..
28-10-2003 por romulo
Citação:
Postado Originalmente por GBastos
Olha aí o famoso romulo!! :lol: Andou sumido...

Quanto a problema, posta aí o código do projeto q deve dar uma pi...
Grande GBastos! :mrgreen:

Marcos, mas e quanto ao nome do arquivo? Faz o seguinte, vai na opção Project->View Source e posta o que está lá.
29-10-2003 por Marcos Heringer
qnt GBastos o cód do arquivo está mais em cima.vou lá está escrito assim
Citação:
program Project1;

uses
Forms;

{$R *.res}

begin
Application.Initialize;
Application.Run;
end.
30-10-2003 por GBastos
O código q eu me refiria é esse mesmo, o mesmo q romulo falou, o código do projeto (project source)..
Acho q tá faltando aí a unit q vc criou, o normal é algo do tipo:
Código:
program Project1;

uses
  Forms,
  Unit1 in 'UNIT1.PAS',

{$R *.RES}

begin
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
Não to com o Delphi aqui mas acho q em tem uma opção em q vc adiciona isso e o Delphi coloca tudo automaticamente.. E lá na project options vc pode botar o form como autocreate para ele colocar a linha Application.CreateForm(TForm1, Form1)...
30-10-2003 por Marcos Heringer
ta coloquei isso lá, mas coloquei o prog pra roda, ele naum roda e dá esse erro
Citação:
[Error] File not found: 'Unit1.dfm'
o qq é
31-10-2003 por GBastos
Se vc salvou a unit editordetexto como editordetexto.pas, vc tem que colocar no uses: editordetexto in 'editordetexto.pas'
31-10-2003 por Marcos Heringer
eu tentei fazer isso mas tbm naum deu jeito, ta dano erro acho q é erro de instalação no delphi vou tentar instalar de novo.flw
03-11-2003 por Moonlight
Acho que não é erro do Delphi não hein. Se tudo que os colegas falarem não funcionar, tenta salvar a unit com outro nome (Save as...) e depois adicionar ela ao projeto novamente.. aí vc tira a outra do projeto.
03-11-2003 por GBastos
Olha a Moon aí tb, esse é o topico dos sumidos é? :lol:
Além de fazer isso q a Moon falou, vc conseguiu achar a opção q adiciona a unit?
03-11-2003 por Marcos Heringer
qual opção q adiciona a Unit? este negócio da Moon, naum deu pq o problema é no delphi, eu vou reinstalá-lo e vou ver se dá mas continuo na espera
03-11-2003 por Moonlight
é o topico dos sumidos que querem voltar a aparecer
04-11-2003 por GBastos
Hehehe, serão sempre bem vindos!


Citação:
Postado Originalmente por Marcos Heringer
qual opção q adiciona a Unit? este negócio da Moon, naum deu pq o problema é no delphi, eu vou reinstalá-lo e vou ver...
Marcos, se não me engano é Add to project, vc vai lá, informa o arquivo q vc quer e ai ele adiciona no project automaticamente... Aproveite e dê uma olhada se existe lá algum outro q não faça parte e aí vc vai em Remove from project e tira ele..
04-11-2003 por Marcos Heringer
kras é o seguinte já fiz tdo e naum deu certo, mas eu continuo perguntano.Eu acho q o erro é do Delphi q eu instalei compact.flw
 
Guia do Hardware Melhores Tópicos