Fórum Herança #4549

15/04/2009

0

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 ?    
Carlos Faria

Carlos Faria

Responder

Posts

15/04/2009

Rodrigo Mourão

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

Responder

Gostei + 0

16/04/2009

Carlos Faria

É isso ai professor , pode fechar o chamado que funcionou redondo aqui !
Responder

Gostei + 0

16/04/2009

Rodrigo Mourão

Ok Carlos,

Abraços !!!

Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar