Herança
Boa tarde
Esse mesmo chamado ja foi respondido anteriormente pelo Rodrigo mourao , se puder ser ele acho que vai entender melhor a coisa ?
function GetLOGRADOURO: TStrings;
var
LOGRADOURO: TStringList;
begin
LOGRADOURO := TStringList.Create;
DMBUSCA.cdsListalogradouro.Open;
DMBUSCA.cdsListalogradouro.First; while not DMBUSCA.cdsListalogradouro.Eof do
begin
LOGRADOURO.Add(DMBUSCA.cdsListalogradouro['RuaBairro']);
DMBUSCA.cdsListalogradouro.Next;
end;
Result := LOGRADOURO;
end; Eu criei esse codigo em uma unit global e em todos os formularios que eu preciso utilizar a tabela logradouro eu dou uso nao unitglobal e no form create listbox1.items : getlogradouro ; funciona direitinho ,porem eu preciso em determinadas sitaçoes jogar em um dbgrid como eu faço para jogar esses dados no dbgrid ?
function GetLOGRADOURO: TStrings;
var
LOGRADOURO: TStringList;
begin
LOGRADOURO := TStringList.Create;
DMBUSCA.cdsListalogradouro.Open;
DMBUSCA.cdsListalogradouro.First; while not DMBUSCA.cdsListalogradouro.Eof do
begin
LOGRADOURO.Add(DMBUSCA.cdsListalogradouro['RuaBairro']);
DMBUSCA.cdsListalogradouro.Next;
end;
Result := LOGRADOURO;
end; Eu criei esse codigo em uma unit global e em todos os formularios que eu preciso utilizar a tabela logradouro eu dou uso nao unitglobal e no form create listbox1.items : getlogradouro ; funciona direitinho ,porem eu preciso em determinadas sitaçoes jogar em um dbgrid como eu faço para jogar esses dados no dbgrid ?
Carlos Faria
Curtidas 0
Respostas
Rodrigo Mourão
15/04/2009
Olá Carlos, como vai ?? Bom tê-lo de volta !!!!
Bem esta função que você tem pronta não vai poder ser alterada pois precisamos retornar um DataSource para que você possa colocar no DBGrid. Teremos que criar uma nova função, sendo assim declare a função abaixo:
function GetLOGRADOURODBGrid: TDataSource;
function GetLOGRADOURODBGrid: TDataSource;
var
Ds: TDataSource;
begin
Ds:= TDataSource.Create(Nil);
DMBUSCA.cdsListalogradouro.Open;
Ds.DataSet := DMBUSCA.cdsListaLogradouro;
Result := Ds;
end;
Para utilizar a função basta fazer no formulário.
DBGrid1.DataSource := GetLOGRADOURODBGrid;
Abs !!!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Bem esta função que você tem pronta não vai poder ser alterada pois precisamos retornar um DataSource para que você possa colocar no DBGrid. Teremos que criar uma nova função, sendo assim declare a função abaixo:
function GetLOGRADOURODBGrid: TDataSource;
function GetLOGRADOURODBGrid: TDataSource;
var
Ds: TDataSource;
begin
Ds:= TDataSource.Create(Nil);
DMBUSCA.cdsListalogradouro.Open;
Ds.DataSet := DMBUSCA.cdsListaLogradouro;
Result := Ds;
end;
Para utilizar a função basta fazer no formulário.
DBGrid1.DataSource := GetLOGRADOURODBGrid;
Abs !!!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
GOSTEI 0
Carlos Faria
15/04/2009
É isso ai professor , pode fechar o chamado que funcionou redondo aqui !
GOSTEI 0
Rodrigo Mourão
15/04/2009
Ok Carlos,
Abraços !!!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Abraços !!!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
GOSTEI 0