preencher String Grid com Fields de tipo diferente

Question

Bom dia pessoal!!!Estou utilizando um String Grid e o estou preenchendo com a rotina abaixo[code:1:2db711b6f5]  with DmBanco.S040 do    begin      First;      For nRecords := 1 to RecordCount do      ...

Wdrocha · Answer

Ol�...bom dia....tenta fazer o seguinte.....faz um Cast para String....[code:1:cdb7dad72b]with DmBanco.S040 do     begin       First;       For nRecords := 1 to RecordCount do         begin           for nFields := 0 to FieldCount-1 do             begin               if Fields.Fields&#91;nFields&93;.Value=�� then                 strngrd.Cells&91;nFields,nRecords&93; :=��               else                 strngrd.Cells&91;nFields,nRecords&93; := String  (Fields.Fields&91;nFields&93;.Value);// <-------- O Cast est� nesta linha             end;           strngrd.RowCount := strngrd.RowCount+1;           Next;         end;     end[/code:1:cdb7dad72b]Espero ter ajudado...Flw...

Wagnermarrane · Answer

Infelizmente continuo com o mesmo erro.Como fa�o para identificar o tipo do Field que esta sendo apontado?...

Wagnermarrane · Answer

algu�m poderia me ajuda?????...

Adoniram · Answer

Acho desnecess�rio vc verificar se o campo est� vazio e atribuir vazio e caso contr�rio atribuir o valor do campo. Pq vc n�o faz direto assim:

  with DmBanco.S040 do 
    begin 
      First; 
      For nRecords := 1 to RecordCount do 
        begin 
          for nFields := 0 to FieldCount-1 do 
             strngrd.Cells[nFields,nRecords] := Fields.Fields[nFields].AsString;
                       end; 
          strngrd.RowCount := strngrd.RowCount+1; 
          Next; 
        end; 
    end

Caso deseje saber o tipo do campo verifique o tipo da classe:
Fields.Fields[nFields] is TIntegerField
Fields.Fields[nFields] is TStringField
Fields.Fields[nFields] is TFloatField.

Espero ter ajudado.

Wagnermarrane · Answer

Muito obrigado pela ajuda. Abaixo c�digo corrigido

[]�s

  with DmBanco.S030 do
    begin
      First;
      For nRecords := 1 to RecordCount do
        begin
          for nFields := 0 to FieldCount-1 do
            begin
              if Fields.Fields[nFields] is TIntegerField  then
                strngrd.Cells[nFields,nRecords] := IntToStr(Fields.Fields[nFields].Value)
              else
                strngrd.Cells[nFields,nRecords] :=Fields.Fields[nFields].Value;
            end;
          strngrd.RowCount := strngrd.RowCount+1;
          Next;
        end;
    end;

F�rum preencher String Grid com Fields de tipo diferente #363928