LucAlucard

Bom gente brigadão pela força de todos vocês aqui do Fórum..! Conseguí fazer o que eu qria. E to postando como eu fiz no final das contas.. (lógico ainda tem coisas pra melhorar.. e os créditos não são meus.. a final de contas essa função estava semi pronta.. eu só precisei inserir o que eu qria fazer a mais dentro dela...) bom... aqui vai o código pra quem estiver precisando assim como eu precisei... function TForm2.fnBuscarPorPalavra(RichEdit: TRichEdit; DataSource: TDataSource) : Boolean; var ProcurePor: LongInt; PosInicial, ProFinal: integer; vPosAntiga, Limite: integer; vBusca: String; begin Result := True; try with RichEdit do begin vPosAntiga := SelStart; SelStart := 0; SelLength := 0; Limite := 0; DataSource.DataSet.First; while True do begin PosInicial := SelStart + SelLength; if (Limite = 3) then PosInicial := (Length(RichEdit.Text) - (RichEdit.Lines.Count - 1)); ProFinal := Length(RichEdit.Text) - PosInicial; if DataSource.DataSet.RecordCount <= 0 then Break; if RichEdit.Text <> '' then begin if ((PosInicial) = (Length(RichEdit.Text) - (RichEdit.Lines.Count - 1) )) and (DataSource.DataSet.Eof) then Break; end else Break; if DataSource.DataSet.Eof then DataSource.DataSet.First; while not DataSource.DataSet.Eof do begin vBusca := DataSource.DataSet.FieldByName('PALAVRA').AsString; ProcurePor := FindText(vBusca, PosInicial, ProFinal, []); if ProcurePor < 0 then begin DataSource.DataSet.Next; if DataSource.DataSet.Eof then Limite := Limite + 1; Break; end; SelStart := ProcurePor; SelLength := Length(vBusca); SelAttributes.Color := clRed; SelAttributes.Style := SelAttributes.Style + [fsBold]; DataSource.DataSet.Next; if DataSource.DataSet.Eof then Limite := Limite + 1; end; end; SelStart := vPosAntiga; SelLength := 0; SelAttributes.Color := clWindowText; SelAttributes.Style := []; end; except raise ; Result := False; end; end;

... Como posso explicar... Digamos.. quero q determinadas palavras fiqem coloridas e em negrito por exemplo.. mas pra mim saber q palavras q eu qro eu preciso saber a q palavra... então eu cadastro no banco de dados as palavras... no meu caso por exemplo q qro fazer um treco = o sql server q pinta a palavra se eu digitar determinada palavra... Eu só qro modificar as palavras do RichEdit... Vlw pela observação... e brigado por me ajudar também nesse meu post...

Bom gente... consegui dar uns passos.. mas to começando a ficar com sono... tem uns bugs ainda... Por exemplo : Cadastre lá no seu banco de dados (seja lá qual for..) alguma coisa pra ele realçar... aew depois você digita lá no RichEdit pra ele ir fazendo a no key Up... ou verifica num botão você qm sabe.. a busca ele faz quase perfeitamente... porém... quando eu digito lá por exemplo na tabela tem cadastrado Lucas, Thiago e Bruno... aew eu digito lá : Lucas E depois eu volto na posição 1 (onde ta o 'L') e digito lá Bruno o 'Bruno' não vai ficar colorido exceto q eu coloque o Bruno na frente do Lucas... (bom sentido ta gente ^^')... Se vocês puderem me ajudar a corrigir esse bug por favor... eu ficaria muito grato!!... ^^'' Agradeceria muito a força!! ^^ Abração a todos vocês aew gente!! ^^... E boa noite q eu to com sono T_T... Pra qm quisera função ta aqui function TForm2.fnBuscarPorPalavra (RichEdit : TRichEdit ; DataSource : TDataSource) : Boolean; var ProcurePor : LongInt; PosInicial, PosFinal : integer; vPosAntiga : Integer; vBusca : String; begin Result := True; try with RichEdit do begin vPosAntiga := SelStart; SelStart := 0; SelLength := 0; DataSource.DataSet.First; while True do begin PosInicial := SelStart + SelLength; PosFinal := Length(Text) - PosInicial; if DataSource.DataSet.RecordCount <= 0 then Break; if DataSource.DataSet.Eof then Break; while not DataSource.DataSet.Eof do begin vBusca := DataSource.DataSet.FieldByName('PALAVRA').AsString; ProcurePor := FindText(vBusca, PosInicial, PosFinal, []); if ProcurePor < 0 then begin DataSource.DataSet.Next; Break; end; begin SelStart := ProcurePor; SelLength := Length(vBusca); end; SelAttributes.Color := clRed; SelAttributes.Style := SelAttributes.Style + [fsBold]; DataSource.DataSet.Next; end; end; SelStart := vPosAntiga; SelLength := 0; SelAttributes.Color := clWindowText; end; except raise; Result := False; end; end;

Gente eu conseguí fazer uma funçãosinha achando uma coisa ou outra pronta da net e gostaria de melhora-la... só q não sou tão bom assim rsrs... Qria saber se alguém aew pode me ajudar... Eu qro acessar um banco de Dados... E se eu achar a palavra dentro digamos da tabela "Dicionário" na coluna "palavras" eu posssa colorir em tempo de execução... mais ou menos como o sql server faz quando a gente ta digitando o script um exemplo é o SELECT e o SUM q ficam azul e meio rosa... em rumtime (tempo de execução)... Se alguém puder me dar uma força! ^^.. Eu agradeceria muito!! ^^ Vlw gente brigadão e um forte abraço a todos!! Tava quase esquecendo... pra quem quiser dar uma olhada no código q eu fiz.. e quero melhorar (não foi eu qm fez TUDO eu só dei uma ageitada.. então por favor.. os créditos não ficam pra mim ^^) function TForm2.fnBuscarPorPalavra (ValorBusca : String ; RichEdit : TRichEdit) : Boolean; var ProcurePor : LongInt; PosInicial, PosFinal : integer; vPosAntiga : Integer; begin with RichEdit do begin vPosAntiga := SelStart; SelStart := 0; SelLength := 0; while True do begin PosInicial := SelStart + SelLength; PosFinal := Length(Text) - PosInicial; ProcurePor := FindText(ValorBusca, PosInicial, PosFinal, []); if ProcurePor < 0 then Break; begin SelStart := ProcurePor; SelLength := Length(ValorBusca); end; SelAttributes.Color := clRed; SelAttributes.Style := SelAttributes.Style + [fsBold]; end; SelStart := vPosAntiga; SelLength := 0; SelAttributes.Color := clWindowText; end; end;

Rickayron eu num tenho permição pra pegar essa matéria.. Mas vlw mesmo assim!! Gente Brigadão por encarar essa barra comigo! Eu conseguí resolver... tinha achado uma matéria em inglês q ensinava mais ou menos... de marcus cantu... Vou postar aqui depois pra qm (provavelmente averão) tiver o mesmo problema q eu eu não precisar se matar... Brigadão gente!! Um forte abraço!! ^^

Ainda não consegui.... mudei uma cambada d coisa.... Mas num consigo T-T...

entendi o que você quis dizer mas aidna tenho uma dúvida... ele qr q eu crie um novo datamodule e adicione ele na unit do UserSession ou ele qr q eu adicione o UserSession em outro lugar?

Então... é isso q ele ta reclamando eu também acho q faz sentido.. eu achei essa matéria... http://www.bobswart.nl/Weblog/Blog.aspx?RootId=5:1955 (inglês)... mas agora lá ele não acha esse tal de [color : #ff0000]DataMod.TDataModule1

Lí sim... só q ele da erro na referência do datamodule... ele fala q eu num posso chamar ele mesmo.. Digamos.. to no carro e falo q qro usar o carro... Pelo menos eu acho q é isso não é? ^^''..... é q ta fogo cara.. eu realmente to estudando.. mas na realidade é meu chefe q ta qrendo migrar um sistema q ele tem todo desktop pra intraWeb... só q ele separou bastante coisa em datamodules.. e ta qrendo aproveitar... e eu to sendo o cara pra procurar isso.. só q sei lá.. num sei direito por onde começar a procurar... sou um mero estagiário.. =/ Desculpa incomodar vocês aew... e obrigado...

No delphi 2007 aparece que eu não posso referenciar o cara q eu já estou... ou seja... não posso referenciar o formulário onde eu já estou... alguém sabe como eu posso fazer funcionar???

Alguém sabe se é possível adicionar mais de um data Module em uma aplicação IntraWeb? Achei vários artigos falando sobre algumas coisas semelhantes mas nada que eu consiga aproveitar... Mais ou menos assim... eu tenho meu TCC q to fazendo com alguns dataModulos... só q... não acho pra criar um dataModule no IntraWeb... alguém sabe?? vlw gnt brigadão!! ^^