Passa essa rotina para delphi8
ola galera peguei esse codigo e nao sei como pasalo para delphi8 asp.net e destar uma palavra em negrito na grid no meu site se alguem poder me ajudarr
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 ****
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
Curtidas 0
Respostas
Cristiam
19/05/2005
var
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. ;)
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
Elcilei
19/05/2005
Sera que alguem conhece outra rotina para colocar uma palavra em negrito numa dbgrid em delphi8 net
Exemplo Sou [b:21f2b752d2]programador[/b:21f2b752d2] em delphi
Exemplo Sou [b:21f2b752d2]programador[/b:21f2b752d2] em delphi
GOSTEI 0
Cristiam
19/05/2005
Isso é fácil.....
Ex:
Espero ter ajudado. ;)
Ex:
var frase: String; begin; frase := ´Eu sou <b>Programador</b>´; label1.text := frase;
Espero ter ajudado. ;)
GOSTEI 0
Elcilei
19/05/2005
na verdade o que quero mesmo e um resultado de uma consulta onde havera varios registros tipo essa do cade onde vc informa o que quer ele mostra o resultado e colocando a palavra em negrito
Elcilei
Elcilei
GOSTEI 0
Elcilei
19/05/2005
alguem tem exemplo negrito grid
GOSTEI 0
Elcilei
19/05/2005
me ajudem nessa
GOSTEI 0