ADO - como carregar campos MEMO na dbgrid e mostrar dados?
16/02/2006
0
carregar eu carrego blz... soh q tipo os campos mesmos...
nao aparecem o conteudo...
soh aparecem escritos .. MEMO
alguem sabe oq fao pra q ele mostre o conteudo da lista qndo eu der um SELECT * From tabela .. pra ele carregar na dbgrid os registros?
valeu :P
Salsa
Posts
16/02/2006
Paullsoftware
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
R : TRect;
begin
(*exibe campo memo*)
R:=Rect; // declara uma variável local R : TRect
Dec(R.Bottom,2);
if Column.Field=ClientDataSet1OBS then
begin
if not (gdSelected in State) then
DBGrid1.Canvas.FillRect(Rect);
DrawText(DBGrid1.Canvas.Handle,
pchar(ClientDataSet1OBS.AsString),
length(ClientDataSet1OBS.AsString),
R,DT_WORDBREAK);
end;16/02/2006
Paullsoftware
seria o nome de SuaTabelaCampoObervacoes..
16/02/2006
Salsa
eh q tipo trabalho com varias tabelas... ae queria pegar se fosse uma coluna memo..!!!
17/02/2006
Rafael Gomes
procedure TDmRE.AuxdescEnquadramentoGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin Text:= DmRe.Aux.fieldByName(´DescEnquadramento´).AsString; end;
adapte o codigo de acordo com sua necessidade ...
abraços!!
Clique aqui para fazer login e interagir na Comunidade :)
