Fórum Passa essa rotina para delphi8 #282205
19/05/2005
0
DataGrid.DataSource = DataSet ou DataTable
DataGrid.DataBind()
**** Abaixo um exemplo ****
´Neste ponto vc já tem o DataSet carregado SEM negrito. O DataSet chama dsTeste
dim dtTeste as new DataTable
dtTeste.columns.add(´COLUNA1´)
dtTeste.columns.add(´COLUNA2´)
dim item as DataRow
dim i as integer
For i = 0 to dsTeste.tables(0).rows.count -1
item = dtTeste.newRow()
item(´COLUNA1´) = dsTeste.Tables(0).rows(i)(´COLUNA1´)
item(´COLUNA2´) = Replace(dsTeste.Tables(0).rows(i)(´COLUNA2´),´microsoft´,´<b.>microsoft<./b>´)
dtTeste.rows.add(item)
Next
´ <b.> e <.b> é sem o ponto.
´Com isto acima vc tem um DataTable com todos os seus dados e as palavras chaves em negrito, certo ?
´Após isto:
DataGrid1.dataSource = dtTeste
DataGrid1.DataBind
**** Fim Exemplo ****
Elcilei
Curtir tópico
+ 0Posts
19/05/2005
Cristiam
dtTeste: DataTAble;
item: DataRow;
i : Integer;
begin
dtTeste := DataTable.Create();
dtTeste.columns.add(´COLUNA1´)
dtTeste.columns.add(´COLUNA2´)
For i := 0 to dsTeste.tables(0).rows.count -1 do
begin
item := dtTeste.newRow()
item(´COLUNA1´) = dsTeste.Tables(0).rows(i)(´COLUNA1´)
item(´COLUNA2´) = Replace(dsTeste.Tables(0).rows(i) (´COLUNA2´),´microsoft´,´<b.>microsoft<./b>´)
dtTeste.rows.add(item)
end;
DataGrid1.dataSource := dtTeste
DataGrid1.DataBind
Acredito que seja algo parecido com isso. ;)
Gostei + 0
19/05/2005
Elcilei
Exemplo Sou [b:21f2b752d2]programador[/b:21f2b752d2] em delphi
Gostei + 0
19/05/2005
Cristiam
Ex:
var frase: String; begin; frase := ´Eu sou <b>Programador</b>´; label1.text := frase;
Espero ter ajudado. ;)
Gostei + 0
19/05/2005
Elcilei
Elcilei
Gostei + 0
19/05/2005
Elcilei
Gostei + 0
19/05/2005
Elcilei
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)