Verificando o tipo do campo selecionado no DBGrid

Question

Ola amigos,gostaria de saber como fa�o para pegar o tipo do campo que est� selecionado no DBGrid.Algu�m pode me ajudar ?...

Marco Salles · Answer

Ol� F�bio Banhos tudo bem . Ent�o eu escrevi uma classe que pode ser utilizada para esta finalidae

http://marcosalles.wordpress.com/2011/03/28/classe-generica-para-transformar-tipos-enumerados-para-tstrings/

Ap�s adicionar a unit uEnunConvertString no seu projeto de uses a esta Unidade no Form que esta o DbGrid

Adicone um Vari�vel do tipo FLista:Tstrings na sec��o Private deste form

Instancie esta vari�vel no evento OnShow e Destrua no Ondestroy

procedure TForm2.FormShow(Sender: TObject);
begin
Flista:=TStringList.Create;
TConvert<TFieldType>.PopulateListEnum(Flista);
end;

Agora em qq evento coloque

procedure TForm2.Button3Click(Sender: TObject);
begin
showmessage(FLista.Strings[integer(DBGrid1.SelectedField.DataType)]);
end;

ps) tem outros modos de fazer tb , mas acredito que qq um deles # deste processo ir� cair num case

F�bio Banhos · Answer

Vou come�ar a implementar agora MARCO ;)

Mas tipo, tenho uma unit chamada Biblioteca onde coloco todas as procedures, funcions e variaveis que seja comum a todo projeto, como valida��o de CPF por exemplo. Eu poderia colocar a classe escrita por voc� nessa unit ou devo realmente adicionar a uEnunConvertString no meu projeto ?

Marco Salles · Answer

Veja bem , modestia a parte � uma unidade bem feita e poderosa

se voce adicionar no seu projeto toda vez que voce for utiliza-la em outro projeto ter� mais trabalho
porque tem que achar o caminho onde ela se encontra , e adicionar no novo dpr .. Processo chato e n�o
muito recomend�vel

voce pode Adicionar esta unit com Patch Files do delphi , assim ela pode ser utilizada em qq aplica��o

mas antes voce tem que experimenta-la , pode ser que n�o seja isso tudo como eu imagino ..

F�bio Banhos · Answer

Consegui fazer o que queria.Achei o tipo do campo da coluna selecionada no grid com o seguinte comando:   dbgrdPesquisa.Columns[dbgrdPesquisa.SelectedIndex].Field.DataTypeVeja o c�digo implementado:procedure TfrmPadraoPesquisa.edtPesquisaChange(Sender: TObject);var CampoSelecionado: String;begin  inherited;  if not (cdsPesquisa.IsEmpty) and (Trim(edtPesquisa.Text) &lt&gt ) then  begin    CampoSelecionado := dbgrdPesquisa.Columns[dbgrdPesquisa.SelectedIndex].Field.FieldName;    if (dbgrdPesquisa.Columns[dbgrdPesquisa.SelectedIndex].Field.DataType = ftString) then    begin      cdsPesquisa.Filtered := False;      cdsPesquisa.Filter   := CampoSelecionado +  LIKE  + edtPesquisa.Text + %;      cdsPesquisa.Filtered := True;    end    else if (dbgrdPesquisa.Columns[dbgrdPesquisa.SelectedIndex].Field.DataType = ftInteger) then    begin      cdsPesquisa.Filtered := False;      cdsPesquisa.Filter   := CampoSelecionado +  =  + edtPesquisa.Text;      cdsPesquisa.Filtered := True;    end;  end  else  begin    cdsPesquisa.Filtered := False;  end;end;...

Marco Salles · Answer

ent�o Fabio , foi o que eu ohe disse .. Desde do inicio
Com IFs ou CASES voce consegui

ps) tem outros modos de fazer tb , mas acredito que qq um deles # deste processo ir� cair num case

Tudo bem que voce imprementou Dois IFS , mas sua pergunta inicial foi como saber pegar o tipo do campo
selecionado na Grid , e isto s�o muitas as possibilidades ...

TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, // 0..4
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, // 5..11
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, // 12..18
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, // 19..24
ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, // 25..31
ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, // 32..37
ftFixedWideChar, ftWideMemo, ftOraTimeStamp, ftOraInterval, // 38..41
ftLongWord, ftShortint, ftByte, ftExtended, ftConnection, ftParams, ftStream, //42..48
ftTimeStampOffset, ftObject, ftSingle); //49..51

se voce pergunta-se que queria saber se era somente o ftInteger ou o ftString Ai a resposta seria outra

F�bio Banhos · Answer

Entendi!Bom, a principio s� irei trabalhar com esses dois tipos, mas fiquei curioso em utilizar aquela sua unit.Como esse � um projeto teste para um processo de sele��o, procurei utilizar c�digos mais familiares.Acho que deveria ter especificado mais a minha duvida mesmo.Obrigado por estar sempre me ajudando MARCO.Abra�o....

Marco Salles · Answer

se � um processo de sele��o no minimo utilize o case ao inves de dois if concatenados...

F�rum Verificando o tipo do campo selecionado no DBGrid #412957