Douglas Soares

Perdoe-me.... Coloque isso no FormCreate que vai funcionar... procedure Tform1.FormCreate(Sender: TObject); var i : integer; begin for i := 0 to cds.FieldCount - 1 do begin cds.IndexDefs.Add('a' + cds.Fields[i].FieldName, cds.Fields[i].FieldName, []); cds.IndexDefs.Add('d' + cds.Fields[i].FieldName, cds.Fields[i].FieldName, [ixDescending]); end; end; Abraços

coloca isso no OnTitleClick do DBGrid if 'a' + Column.FieldName = cds.IndexName then cds.IndexName := 'd' + column.FieldName else cds.IndexName := 'a' + column.FieldName; Abraços

Faz assim... coloca isso assim que jogar os dados no dbgrid... cds.IndexName := 'a' + cds.FieldByName('meucampo').name; Abraços

Tipo, pra você organizar coloca isso no evento OnTitleClick do DBGrid if 'a' + Column.FieldName = cds.IndexName then cds.IndexName := 'd' + column.FieldName else cds.IndexName := 'a' + column.FieldName; Dai você tenta editar... Abraços

Tudo bem, Obrigado por contribuir :rolleyes:

Nossa, reabrir tópico de 2007 é tenso... o cara qria ajuda pra facu, ele já deve ter terminado eim....

O Código é esse: WebBrowser1.OleObject.Document.All.Tags('input').item('pa').value := 'Escreva aqui'; Você tem um campo do tipo text, ou seja, ele é um input, pa deveria ser o nome do seu campo input... daí é só você escrever um texto a frente ou associar à uma variavel ou sei lá... adapte as suas nescessidades... P.S. Como percebi você tem só a classe do campo texto, você terá que altera-lo para: <input class="pa" name="pa" type="text"> Abraços

Como você está passando essa data para sUso? posta o código, o problema deve ser aí então...

Fiz os testes conforme o Jhonas te passou e funcionou corretamente.... olha só, mesmo com DateTime ele funciona: procedure TForm1.Button1Click(Sender: TObject); var sUso : string; vUso : TDateTime; begin sUso := ''; sUso := '29/03/10'; if (sUso[9] = '') AND (sUso[10] = '') then begin vUso := StrToDateTime(FormatDateTime('dd/MM/yyyy', StrToDate(Copy(sUso,1,6)+'20'+Copy(sUso,7,8)))); showmessage(datetostr(vUso)); end; end; Testa exatamente como está acima... Abraços

Nossa gente, mais de 3 meses nessa pendura.... será que vão ficar amaciando os erros? vão deixar mais membros desistirem do fórum? puxa não deve ser tão complicado assim atualizar um fórum, mesmo que seja, uma hora terá que ser feito, acho que nem com uma invasão esse fórum é atualizado.... Sinceramente já estou pensando em desistir, já enjoei, não sei se é só comigo mas está muito lento o carregamento de páginas, etc. Gostaria de uma resposta decente dessa vez... Obrigado

Creio que é isso que você precisa: http://www.activedelphi.com.br/forum/viewt...c571ab936bc53a3 Abraços

pra importar você usa: RichEdit1.Lines.LoadFromFile('C:\teste.txt'); Vou ter que sair agora e só volto amanha, muda o tópico do Titulo e acrescenta Jhonas dai ele te da uma força, pois também n sou muito bom em delphi.. hehehe Abraços

Acho que entendi, se você escreve Vitor e poe negrito, quando você digita qualquer outra coisa fica em negrito também não é?? Deu isso comigo aqui vou tentar resolver e te falo em breve.. abraços

Porque você está referenciando um componente do form na função sendo que já existe um parametro para isso? with form1.RichEdit1 do Fiz como você disse e funcione normal, substitua sua função. Segue função: function Tform1.PintarPalavras(Palavra: string; RichEdit : TRichEdit; Cor : TColor; Negrito : Boolean): string; var FoundAt : LongInt; StartPos, ToEnd : integer; vBusca : string; begin vBusca := Palavra; with 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; Não se esqueça de declarar essa função no Type... type Tform1 = class(TForm) RichEdit1: TRichEdit; ............... procedure ........ function PintarPalavras(Palavra: string; RichEdit : TRichEdit; Cor : TColor; Negrito : Boolean): string; procedure ...... private { Private declarations } public { Public declarations } end; Abraços

Cara eu tinha esses erros em uma maquina também quando eu tinha um DataModule/SQLConnection e deixava ele como Connected = True, mesmo o erro não apontando pra ele, eu ia la e o desativava e sempre resolvia os problemas, se estiver conectado o seu, sete o connect para False e somente conecte no final do processo... Abraços

cara a função Pintar palavras é essa function TfrmColorir.PintarPalavras(RichEdit : TRichEdit; Cor : TColor; Negrito : Boolean): string; var FoundAt : LongInt; StartPos, ToEnd : integer; vBusca : string; str : string; begin vBusca := Edit1.text; with 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; Fiz testes aqui e nenhum dos problemas citados está ocorrendo, tente testar o executável que enviei junto com as fontes, e me diga se nele dá o erro. Abraços

Vai no richedit1 e no evento OnChange coloca isso: Application.ProcessMessages; Abraços

Segue um exemplo que acabei de fazer: http://www.4shared.com/file/241868050/3fe2...r_richedit.html coloca a palavra vaca no edit, seleciona uma cor e clica em pintar, ai você vai ver que vai pintar todas as palavras vacas independentemente se estão maiusculas ou minusculas. Abraços

mas qual o critério para o destacamento de palavras?

Reabrindo o tópico... será que alguém ai não conhece nenhum componente desse tipo para o delphi? Obrigado

Eder, só pra deixar claro, se você quiser saber qual dia da semana você está, você usa a função DayOfWeek, segue um exemplo: if (DayOfWeek(Date) = 7) or (DayOfWeek(Date) = 1) then ShowMessage('HOJE É SABADO OU DOMINGO') else ShowMessage('HOJE É UM DIA DE SEMANA'); Date é a data do PC, você pode por qualquer componente de data ali... caso não sabia... 1 = Domingo 2 = Segunda-Feira 3 = Terça-Feira 4 = Quarta-Feira 5 = Quinta-Feira 6 = Sexta-Feira 7 = Sabado hehe Abraços

Adms, tem um cara enchendo o fórum de caixa alta, má formatação, da até dor de cabeça esse negocio :wacko: veja se resolvem ai... Segue usuário: Boss_Man Obrigado

Opa esse é bom sim.... mas eu queria um separado, exemplo, eu vou ser o servidor, e meus amigos vão ter os clientes... somente os clientes, eles nunca serão o servidor!, tem jeito?

beleza, você tem como me ajudar fazer um chat com Tclientsocket e Tserversocket? porém via internet? eu não consigo fazer um mandar mensagem para o outro :wacko:

o que estou fazendo é um trojan, porém apenas para estudo... o que eu precisaria modificar?