Acess Violation - Delphi 2010

[Ronaldo Lanhellas]

Olá, programo em C e atualmente estou iniciando delphi, porém estou com um problema.

Ao tentar executar meu programa, ele me responde com um Access Violation e mostra o laço for "marcado de vermelho", porém não sei qual o erro no laço, pois ele esta todo certo. Na verdade eu nem ao menos sei mesmo se o erro é o laço ou outra coisa, segue a imagem do erro:

http://img199.imageshack.us/img199/2328/imagemflx.jpg

Grato !

[Douglas Soares]

Você deve ter se esquecido de abrir o seu dataset!

[Jhonas]

Ao tentar executar meu programa, ele me responde com um Access Violation e mostra o laço for "marcado de vermelho", porém não sei qual o erro no laço, pois ele esta todo certo. Na verdade eu nem ao menos sei mesmo se o erro é o laço ou outra coisa

Veja onde está o erro:

var 
I: Integer;
begin
   for i := 0 to Pred(Ds.DataSet.FieldCount) do 
   begin
      if Ds.DataSet.Fields[I].DataType in [ftString,ftWideString,ftFixedChar] then
        Combobox1.Itens.Add(Ds.DataSet.Fields[i].FieldName);
   end;
end;

Boolean ByteBool, WordBool, LongBool False < True False <> True Ord(False) = 0 Ord(False) = 0 Ord(True) = 1 Ord(True) <> 0 Succ(False) = True Succ(False) = True Pred(True) = False Pred(False) = True

o correto:

var 
I: Integer;
begin
   for i := 0 to Ds.DataSet.FieldCount-1 do 
   begin
      if Ds.DataSet.Fields[I].DataType in [ftString,ftWideString,ftFixedChar] then
        Combobox1.Itens.Add(Ds.DataSet.Fields[i].FieldName);
   end;
end;

abraço

[Ronaldo Lanhellas]

certo e como é que eu ativo o dataset ?

em resposta ao jhonas eu já tentei por o -1 no lugar do pred, mais não funcionou !

[Jhonas]

Escreva exatamente o que deseja fazer no seu programa

[Ronaldo Lanhellas]

bem eu estou assistindo videos aulas de desenvolvimento em delphi, porem achei estranho o arquivo data module do instrutor tem vários códigos e no meu não tem quase nenmhum veja só o meu data module:

unit uDM;

interface

uses

SysUtils, Classes, WideStrings, DB, SqlExpr, DBXFirebird, FMTBcd, DBClient,

Provider;

type

TDataModule1 = class(TDataModule)

DBAcesso: TSQLConnection;

sdsFuncionario: TSQLDataSet;

dspFuncionario: TDataSetProvider;

cdsFuncionario: TClientDataSet;

sdsUsuario: TSQLDataSet;

dspUsuario: TDataSetProvider;

cdsUsuario: TClientDataSet;

sdsPerfil: TSQLDataSet;

dspPerfil: TDataSetProvider;

cdsPerfil: TClientDataSet;

sdsFuncionarioFUNCIONARIOID: TIntegerField;

sdsFuncionariosituacao: TStringField;

sdsFuncionariomatricula: TStringField;

sdsFuncionarionome: TStringField;

sdsFuncionarioendereco: TStringField;

sdsFuncionariobairro: TStringField;

sdsFuncionariocidade: TStringField;

sdsFuncionariouf: TStringField;

sdsFuncionariocep: TStringField;

sdsFuncionarionacionalidade: TStringField;

sdsFuncionarionaturalidade: TStringField;

sdsFuncionariodata_nascimento: TStringField;

sdsFuncionarioestado_civil: TStringField;

sdsFuncionarionum_filhos: TIntegerField;

sdsFuncionarionome_conjugue: TStringField;

sdsFuncionarionome_pai: TStringField;

sdsFuncionariodata_nascimento_pai: TStringField;

sdsFuncionarionome_mae: TStringField;

sdsFuncionariodata_nascimento_mae: TStringField;

sdsFuncionariotel_residencial: TStringField;

sdsFuncionariotel_celular: TStringField;

sdsFuncionariotel_comercial: TStringField;

sdsFuncionariorg: TStringField;

sdsFuncionarioorgao_exp: TStringField;

sdsFuncionariocpf: TStringField;

sdsFuncionariotitulo: TStringField;

sdsFuncionariozona: TStringField;

sdsFuncionariosecao: TStringField;

sdsFuncionariocart_trabalho: TStringField;

sdsFuncionarioserie: TStringField;

sdsFuncionariopis: TStringField;

sdsFuncionariofuncao: TStringField;

sdsFuncionariodata_admissao: TStringField;

sdsFuncionariobanco: TStringField;

sdsFuncionarioconta: TStringField;

sdsFuncionarioagencia: TStringField;

sdsFuncionariosituacao_estudante: TStringField;

sdsFuncionarioescolaridade: TStringField;

sdsFuncionariocursos_complementares: TStringField;

sdsFuncionariosetor_trabalha: TStringField;

sdsFuncionarioendereco_trabalha: TStringField;

sdsFuncionariocidade_trabalha: TStringField;

sdsFuncionariouf_trabalha: TStringField;

sdsFuncionariobairro_trabalha: TStringField;

sdsFuncionariocep_trabalha: TStringField;

sdsFuncionarioobservacao: TStringField;

sdsFuncionariodata_cadastro: TStringField;

sdsFuncionariosalario: TSingleField;

sdsFuncionariopne: TStringField;

sdsFuncionariosexo: TStringField;

sdsFuncionarioidade: TIntegerField;

sdsFuncionarioplano_odontologico: TStringField;

sdsFuncionarioplano_escolhido: TStringField;

sdsFuncionariovalor_plano: TSingleField;

sdsFuncionarioUSUARIOID: TIntegerField;

cdsFuncionarioFUNCIONARIOID: TIntegerField;

cdsFuncionariosituacao: TStringField;

cdsFuncionariomatricula: TStringField;

cdsFuncionarionome: TStringField;

cdsFuncionarioendereco: TStringField;

cdsFuncionariobairro: TStringField;

cdsFuncionariocidade: TStringField;

cdsFuncionariouf: TStringField;

cdsFuncionariocep: TStringField;

cdsFuncionarionacionalidade: TStringField;

cdsFuncionarionaturalidade: TStringField;

cdsFuncionariodata_nascimento: TStringField;

cdsFuncionarioestado_civil: TStringField;

cdsFuncionarionum_filhos: TIntegerField;

cdsFuncionarionome_conjugue: TStringField;

cdsFuncionarionome_pai: TStringField;

cdsFuncionariodata_nascimento_pai: TStringField;

cdsFuncionarionome_mae: TStringField;

cdsFuncionariodata_nascimento_mae: TStringField;

cdsFuncionariotel_residencial: TStringField;

cdsFuncionariotel_celular: TStringField;

cdsFuncionariotel_comercial: TStringField;

cdsFuncionariorg: TStringField;

cdsFuncionarioorgao_exp: TStringField;

cdsFuncionariocpf: TStringField;

cdsFuncionariotitulo: TStringField;

cdsFuncionariozona: TStringField;

cdsFuncionariosecao: TStringField;

cdsFuncionariocart_trabalho: TStringField;

cdsFuncionarioserie: TStringField;

cdsFuncionariopis: TStringField;

cdsFuncionariofuncao: TStringField;

cdsFuncionariodata_admissao: TStringField;

cdsFuncionariobanco: TStringField;

cdsFuncionarioconta: TStringField;

cdsFuncionarioagencia: TStringField;

cdsFuncionariosituacao_estudante: TStringField;

cdsFuncionarioescolaridade: TStringField;

cdsFuncionariocursos_complementares: TStringField;

cdsFuncionariosetor_trabalha: TStringField;

cdsFuncionarioendereco_trabalha: TStringField;

cdsFuncionariocidade_trabalha: TStringField;

cdsFuncionariouf_trabalha: TStringField;

cdsFuncionariobairro_trabalha: TStringField;

cdsFuncionariocep_trabalha: TStringField;

cdsFuncionarioobservacao: TStringField;

cdsFuncionariodata_cadastro: TStringField;

cdsFuncionariosalario: TSingleField;

cdsFuncionariopne: TStringField;

cdsFuncionariosexo: TStringField;

cdsFuncionarioidade: TIntegerField;

cdsFuncionarioplano_odontologico: TStringField;

cdsFuncionarioplano_escolhido: TStringField;

cdsFuncionariovalor_plano: TSingleField;

cdsFuncionarioUSUARIOID: TIntegerField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.

perceba que não tem nada no meu Data Module, apenas as declarações :D

qual seria o problema ? o que falta ? será que é isso mesmo ?

Editado Maio 25, 2010 por Ronaldo Lanhellas

[Jhonas]

bem eu estou assistindo videos aulas de desenvolvimento em delphi, porem achei estranho o arquivo data module do instrutor tem vários códigos e no meu não tem quase nenhum veja só o meu data module:

Parece que voce não entendeu qual a utilidade do TDataModule ... veja:

TDataModule centraliza a manipulação de componentes não visuais em uma aplicação.

Descrição

Use um objeto TDataModule em uma aplicação para prover um local para manipulação centralizada de componentes não visuais. Tipicamente são componentes de acesso a dados (TSession, TSessionList, TDatabase, TTable, TQuery, TStoredProc, e TBatchMove), mas eles também podem ser outros componentes não visuais, como (TTimer, TOpenDialog, TImageList, ou TOleContainer).

A tempo de design um objeto TDataModule provê um recipiente visual no qual um desenvolvedor pode colocar componentes não visuais , setar suas propriedades, e escrever os manipuladores de eventos. Para criar um módulo de dados em tempo de design, escolha File | New > Data Module.

Na Unit de um TDataModule um desenvolvedor pode colocar também qualquer regra empresarial que será aplicada à aplicação.

Fazer o módulo de dados disponível para outra unidade na aplicação, selecione aquela unidade, então escolha File|Use Unit para adicionar o módulo de dados à cláusula uses para a Unit.

Veja que o conteúdo que aparece no seu TDataModule varia em função dos componentes que voce inclui nele ... se voce está seguindo pela video aula pode ser que não tenha sido mostrado todo conteudo do TDataModule .

procure ver a descrição dos componentes pelo Help do Delphi ( F1 )

abraço

[Ronaldo Lanhellas]

desculpa mais não entendi como resolver isso ! Continua não tendo nada no meu Data Module !

[Jhonas]

desculpa mais não entendi como resolver isso ! Continua não tendo nada no meu Data Module !

o conteúdo que aparece no seu TDataModule varia em função dos componentes que voce inclui nele

abraço