Povoar CheckBox - Access Violation
Olá, estou acompanhando as vídeos do Rodrigo carreiro e parei neste caso.
Antes de inserir o código abaixo, tudo funcionava mas a partir dai começou a dar Access Violation.
Mesmo estanto tudo setado conforme a vídeo.
Segue código:
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
DM.cdsClientes.Close;
for I := 0 to Pred(DS.DataSet.FieldCount) do
begin
if DS.DataSet.Fields[I].DataType in [ftString,ftWideString,ftFixedChar] then
cbxFiltro.Items.Add(DS.DataSet.Fields[I].FieldName);
end; end; O ClienteDataSet está dom os Fields mas mesmo assim não roda. Se eu tiro o código roda de boa. Alguém tem um idéia do que seja?
var
i : integer;
begin
DM.cdsClientes.Close;
for I := 0 to Pred(DS.DataSet.FieldCount) do
begin
if DS.DataSet.Fields[I].DataType in [ftString,ftWideString,ftFixedChar] then
cbxFiltro.Items.Add(DS.DataSet.Fields[I].FieldName);
end; end; O ClienteDataSet está dom os Fields mas mesmo assim não roda. Se eu tiro o código roda de boa. Alguém tem um idéia do que seja?
Adilson Rumao
Curtidas 0
Respostas
Eriley Barbosa
15/10/2010
Passe o seu código abaixo para o evento onShow do formulário e retire do oncreate do formulário:
var
i : integer;
begin
DM.cdsClientes.Close;
for I := 0 to Pred(DS.DataSet.FieldCount) do
begin
if DS.DataSet.Fields[I].DataType in [ftString,ftWideString,ftFixedChar] then
cbxFiltro.Items.Add(DS.DataSet.Fields[I].FieldName);
end; end;
i : integer;
begin
DM.cdsClientes.Close;
for I := 0 to Pred(DS.DataSet.FieldCount) do
begin
if DS.DataSet.Fields[I].DataType in [ftString,ftWideString,ftFixedChar] then
cbxFiltro.Items.Add(DS.DataSet.Fields[I].FieldName);
end; end;
GOSTEI 0
Adilson Rumao
15/10/2010
Cara mais uma vez valew mesmo.
Muito obrigado.
GOSTEI 0
Leonardo Xavier
15/10/2010
Você jaresolveu este post?
GOSTEI 0
America Informatica
15/10/2010
Sim, mas não estou conseguindo finalizar ele.
GOSTEI 0
Wilson Junior
15/10/2010
Junto com o post de resposta aparece uma opção para concluir.
GOSTEI 0