Fórum Herança #4549
15/04/2009
0
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
Curtir tópico
+ 0Posts
15/04/2009
Rodrigo Mourão
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
16/04/2009
Carlos Faria
Gostei + 0
16/04/2009
Rodrigo Mourão
Abraços !!!
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)