| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
dedeboy2005
Aprendiz
Registrado: Sábado, 31 de Janeiro de 2009
Mensagens: 135
Localização: Limeira-sp
|
 Enviada: Ter Nov 02, 2010 1:48 pm Assunto: Problema em programa Gerenciamento de Arquivos |
 |
|
Ola amigos eu estou estudando Delphi e estou criando um programa de gerenciamento de arquivo. Só que quando vou criar um classe ele esta dando um erro quando eu vou compilar.
Esse é o código que estou colocando no programa
| Código: | type
TfrmPrincipal = class(TForm)
//Identificadores de erro
EInvalidDest = class(EStreamError); //Destino Inválido
EFCantMove = class(EStreamError); //Impossivel movimento |
Esse é o erro que esta dando
| Citação: | | Error Expect':' but '=' found |
O que pode ser? Eu ja mexi em tudo mas não consegui ainda enxergar o erro gostaria que me ajudasse.
Obrigado.
_________________
Nunca desista dos seus sonhos! Que um dia você chegará nos seus objetivos. |
|
| Voltar ao Topo |
|
 |
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Ter Nov 02, 2010 1:58 pm Assunto: |
|
|
coloque assim:
| Código: | type
//Identificadores de erro
EInvalidDest = class(EStreamError); //Destino Inválido
EFCantMove = class(EStreamError); //Impossivel movimento
TfrmPrincipal = class(TForm)
|
|
|
| Voltar ao Topo |
|
|
dedeboy2005
Aprendiz
Registrado: Sábado, 31 de Janeiro de 2009
Mensagens: 135
Localização: Limeira-sp
|
| Enviada: Qui Nov 04, 2010 10:07 am Assunto: |
|
|
Valeu deu certo. Mas ja aproveitando da sua bondade eu fiz outro gerenciador que fiz e na hora de compilar ele esta dando um erro assim:
| Citação: | | Exernal Exception EEFFACE. |
e em seguida trava o aplicativo. Gostaria de saber como resolver isto?
Vou passar o código para analizarem melhor porque até não descobrir na onde eu estou errando.
Obrigado.
| Código: | unit UPratica34;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ShellCtrls, ExtCtrls, Buttons, Menus;
type
TfrmPrincipal = class(TForm)
Panel1: TPanel;
ShellComboBox1: TShellComboBox;
ShellTreeView1: TShellTreeView;
ShellListView1: TShellListView;
Panel2: TPanel;
Edit1: TEdit;
BitBtn1: TBitBtn;
PopupMenu1: TPopupMenu;
NovaPasta1: TMenuItem;
MainMenu1: TMainMenu;
Arquivo1: TMenuItem;
CriarNovaPasta1: TMenuItem;
Fechar1: TMenuItem;
Fechar2: TMenuItem;
Visualizar1: TMenuItem;
Detalhes1: TMenuItem;
Iconespequenos1: TMenuItem;
Iconesgrandes1: TMenuItem;
Lista1: TMenuItem;
procedure Detalhes1Click(Sender: TObject);
procedure Iconespequenos1Click(Sender: TObject);
procedure Iconesgrandes1Click(Sender: TObject);
procedure Lista1Click(Sender: TObject);
procedure CriarNovaPasta1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Fechar2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmPrincipal: TfrmPrincipal;
implementation
{$R *.dfm}
procedure TfrmPrincipal.Detalhes1Click(Sender: TObject);
begin
ShellListView1.ViewStyle:= vsReport //Ajusta para detalhes
end;
procedure TfrmPrincipal.Iconespequenos1Click(Sender: TObject);
begin
ShellListView1.ViewStyle:= vsSmallIcon //Visualza para icones pequenos
end;
procedure TfrmPrincipal.Iconesgrandes1Click(Sender: TObject);
begin
ShellListView1.ViewStyle:= vsIcon //Visualiza para icones grandes
end;
procedure TfrmPrincipal.Lista1Click(Sender: TObject);
begin
ShellListView1.ViewStyle:= vsList //Visualiza para Lista
end;
procedure TfrmPrincipal.CriarNovaPasta1Click(Sender: TObject);
begin
Panel2.Visible:= true;
edit1.Text:= ShellTreeView1.Path + '\'; //Copia o caminho para edit
edit1.SetFocus;
end;
procedure TfrmPrincipal.BitBtn1Click(Sender: TObject);
begin
MkDir(edit1.Text); //Cria um novo diretório
Panel2.Visible:= false;
end;
procedure TfrmPrincipal.Fechar2Click(Sender: TObject);
begin
Close;
end;
end. |
_________________
Nunca desista dos seus sonhos! Que um dia você chegará nos seus objetivos. |
|
| Voltar ao Topo |
|
|
dedeboy2005
Aprendiz
Registrado: Sábado, 31 de Janeiro de 2009
Mensagens: 135
Localização: Limeira-sp
|
| Enviada: Sex Nov 05, 2010 9:30 am Assunto: |
|
|
Apareceu outro problema agora quando estou mexendo no programa e vou chamar uma função tipo 'Propriedades' ele esta dando o seguinte erro de exeções do delphi que diz assim:
| Citação: | | Raise exception class EstringListError with message 'List index out of bounds(-1). |
O que dizer isso?
Obrigado
_________________
Nunca desista dos seus sonhos! Que um dia você chegará nos seus objetivos. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
