brhvitor6

Boa tarde a todos, estou com um problema em meu codigo de paginação. Codigo: <?php include('connect.php'); //Verifica se recebeu a pagina if(isset($_GET['pagina'])){ //teste para mysql ijection $pagina = mysql_real_escape_string($_GET['pagina']); //primeiro id = 5*pagina-1 $prim = 5*($pagina-1); //ultimo id e = prim + 5 $ut = $prim + 5; //Seleciona todos entre prim e ut $pega = mysql_query("SELECT * FROM material LIMIT $prim , $ut"); //cria array $ar = mysql_fetch_array($pega); //se não recebeu a pagina utiliza padrão }else{ $pega = mysql_query("SELECT * FROM material LIMIT 0,5"); $ar = mysql_fetch_array($pega); } //loop para escrever tudo na pagina do{ echo $ar['materia']." id: ".$ar['idmaterial'].'<br>'; }while($ar = mysql_fetch_array($pega)); //faz a istagen de paginas $num = (mysql_num_rows(mysql_query("SELECT * FROM material")) / 5); $a = 0; while($a < $num){ $prox = $a+1; echo '<a href="paginacao.php?pagina='.$prox.'">'.$a.'</a> '; $a++; } ?> O seguinte erro ocorre: Por exemplo, estou na pagina 2 então era pra retornar isso: yg id: 6 y id: 7 y id: 8 y id: 9 gy id: 10 Mas ele retorna isso yg id: 6 y id: 7 y id: 8 y id: 9 gy id: 10 huhuh id: 11 uhuhu id: 12 uhuh id: 13 huhu id: 14 uhuh id: 15

Desculpe... mas tudo que aprendi foi sozinho pois nunca tive oportunidade de fazer um curso ou algo parecido. E quando pessoa ajuda pois não estou conseguindo fazer alguma coisa as pessoas me julgam desta forma... Pode dar close não precisa mais não.

com esse script q você me passou n resolve.... eu importei todas as palavras que quero em um memo e quero que toda vez que eu escreva uma palavra que esteja no memo se destaque no richtext...

dei uma lida... mas ambos usam database... vou tentar me basear nos códigos... qualquer duvida eu posto aqui...

sim o load file eu já sei... mas n sei como ele pode ver palavra por palavra sem usar um loop toda veiz

isso mesmo...mas com as cores n tem esse problema... vou tentar também... em quanto isso... como posso "importar" de um arquivo txt as palavras pensei em importar com o Tmemo mas ele verificaria linha por linha mas acho que é um loop inutil.

fiz algumas alterações para que não fique voltando o |... function Tform1.PintarPalavras(Palavra: string; RichEdit : TRichEdit; Cor : TColor; Negrito : Boolean): string; var FoundAt : LongInt; StartPos, ToEnd : integer; vBusca : string; v,b:integer; begin vBusca := Palavra; with RichEdit1 do begin v := SelStart; b := SelLength; SelStart := 0; SelLength := 0; repeat StartPos := SelStart + SelLength; ToEnd := Length(Text) - StartPos; FoundAt := FindText(vBusca, StartPos, ToEnd, []); if FoundAt < 0 then Break; begin SelStart := FoundAt; SelLength := Length(vBusca); end; SelAttributes.Color := Cor; if Negrito then SelAttributes.Style := SelAttributes.Style + [fsBold] else SelAttributes.Style := SelAttributes.Style - [fsBold] until False; SelStart := v; SelLength := b; SelAttributes.Color := clWindowText; end; end; mas continua com o erro que ele n muda so a palavra que eu quero... era pra ficar: vitor huahuahuahuahu mas fica: vitor huahuahuahuahu

com minhas alterações n funciona: function PintarPalavras(palavra:string;RichEdit : TRichEdit; Cor : TColor; Negrito : Boolean): string; var FoundAt : LongInt; StartPos, ToEnd : integer; vBusca : string; str : string; begin vBusca := palavra; with form1.RichEdit1 do begin SelStart := 0; SelLength := 0; repeat StartPos := SelStart + SelLength; ToEnd := Length(Text) - StartPos; FoundAt := FindText(vBusca, StartPos, ToEnd, []); if FoundAt < 0 then Break; begin SelStart := FoundAt; SelLength := Length(vBusca); end; SelAttributes.Color := Cor; if Negrito then SelAttributes.Style := SelAttributes.Style + [fsBold] else SelAttributes.Style := SelAttributes.Style - [fsBold] until False; SelStart := 0; SelLength := 0; SelAttributes.Color := clWindowText; end; end; timer 1 PintarPalavras('vitor',RichEdit1, clblack,true); o objetivo é que o usuario não tenha que apertar o botão...

resolvi mais umas coisa... mas agora por ex: eu digito vitor huahuahuahuahua era para ficar: vitor huahuahuahuahua mas fica: vitor huahuahuahuahua

o problema persiste... eu usei um timer para verificar as palavras no richedit e coloquei Application.ProcessMessages; no onchange mas o problema persiste --------------------------------- Descobri o erro: SelStart := 0; SelLength := 0; Mas não sei corrigi-lo... ele volta para a coluna 0 e linha 0 porq isso ficava voltando.

obrigado.. irei testar

Tive um certo problema... quando estou digitando ele sempre volta para a primeira coluna... porq exemplo estou digitando vitor ... sai rotiv... outro ex: vou digitar abc: a| b|a c|ba o | é aquele negocio que fica piscando enquanto você digita

Obrigao... vou ver se consigo aplicar em meu projeto... por enquanto é so =)

tipo mudar a cor da palavra ou deixa-la em negrito...

Em quanto o usuário estiver digitando no richedit algumas palavras se destacam. ex: ola meu nome é... A palavra nome foi destacada.