KeitaroSan

cara, conheco o SnagIT... ele é mtu bom, captura uma foto da tela ou intom captura a tela em formato de vídeo, deve ser o q voce keh, não é?? www.snagit.com ou http://www.techsmith.com/download/snagitdefault.asp e por coincidencia, parece que esse Camtasia que você falou é dessa mesma empresa o.o''' :P dá uma olhada: http://www.techsmith.com/download/studiodefault.asp bom, falows :D

quero ue você mande uma unit com a função que usa query completa só para tirar minhas duvidas. mas a primeira maneira que você falow q era lenta funcionou! não sei se coloquei no evento certo. AfterPost e BeforeInsert só funfionou assim. mas valeu cara. se precisar estamos aehhhh Aew cara... o exemplo aew EXEMPLO

Poww... é mole cara, comu é um arquivo texto, tu pode fazeh assim: var arquivo: TStringList; begin arquivo := TStringList.Create; if pos('palavra', arquivo.text) > 0 then showmessage('Palavra encontrada'); arquivo.free; end; bom, issow já mostra se a palavra foi encontrada no texto ou nom, agora si você keh algo maix especifico, daew é só falah... hehehe falows ^__^v

cara issow é coisa simples, si liga só, se você queh ligah duas tabelas, logo, elas terão que teh um campo em comum, tipo um codigo, ficaria algo assim: tabela1 -codigo -nome tabela2 - codigo -endereco Ou seja, u que vai ligah essa duas tabelas é o campo CODIGO que nunca vai se repetir na tabela 1, se voce kiseh repetir na tabela 2, ateh pode, mas nesse caso fica estranho teh dois endereços.... Agora que voce sabe que as duas tem que teh um ponto em comum, você podi ligah uma a outra via SQL, ou por um MasterSource no Delphi, ou intom bolah alguma coisa via codigo que também é bem simples, ou ainda em algum evento que o ponteiro dos registros se movimente... Mas tipow, eu tow cum moh preguiça di falah sobre cada maneira, faix via SQL que é bem melhoh... fica assim: var sql_query: string; begin sql_query := 'SELECT * FROM tabela1, tabela2 WHERE tabela1.codigo = tabela2.codigo'; query1.sql.text := sql_query; query1.open; end; assim já dá pra relacionar as duas, esse modo tah bem basico, mas o importante é intendeh pra podeh implementar :D

O negocio é o seguinte cara, o Delphi manipula databases graças ao BDE (Borland DataBase Engine), para que uma aplicação feita em Delphi que tenha acesso a banco de dados rode com perfeição, o computador que vai rodar essa aplicação deve ter previamente instalado e configurado o BDE, você pode baixa-lo de graça no site da Borland(pelo menos era di graça :blink: , hj já nom sei maix, hauehauea), podi instalar a partir do CD do Delphi, ou quando criar o pacote de instalação da sua aplicação, ponha o BDE junto, se você estiver utilizando o Install Shield Express que vem com o Delphi, ele tem essa opção... é só fazer issow que prontu, ele vai funcionar direitinho... ps.: Como em tudo existem exceções, no Delphi não poderia faltar, não é?? Quando o assunto é base de dados no Delphi, o padrão é o BDE, mas existem componentes a parte que te dão acesso a outros tipows de bases de dados sem a necessidade do BDE ou ODBC :P é issow aew... falows cara ^__^v

Hehe... inicialmente pensei que você quisesse issow, mas pedi pra você especificar melhor pra ter certeza... cara, é o seguinte, agora me veio duas maneiras em mente de se fazer issow: antes de maix nada, você deve saber a diferença entre um Edit e um DBEdit e também deve saber quando melhor utilizar um ou o outro, nesse caso o melhor a ser utilizado é um Edit, pois o valor dessa soma serve puramente para exibição... Vamos fazer intom o seguinte, a primeira maneira é: - Fazer uma varredura na tabela desejada somando todus os valores, algo assim: var resultado: Double; begin //considerando q sua tabela se chame table1 table1.first; resultado := 0; while not table1.eof do begin resultado := resultado + table1.fieldbyname('tbl1_valor').asFloat; table1.next; end; edit1.text := FloatToStr(resultado); end; Essa seria uma maneira de se fazer isso, acho essa maneira bem básica e não gosto de utilizá-la, pois é meio lenta dependendo do tamanho que a tabela se encontra uma forma maix útil de ser feito esse processo que você quer, é atraves de SQL, mas antes de montar o código, seria beeeeem melhoh que o campo tbl1_valor ao invés de Alpha fosse do tipow Numérico, e de preferencia com suporte a casas decimais nesse caso, pois assim não precisariamos fazer a conversao agora na nossa query SQL, todo campo que vá guardar números e que futuramente vá ser utilizado para calculos é recomendavel que seja utilizado o tipow numerico, agora se o numero não vai ser utilizado para calculo algum, como código ou algo assim, nom há problema por Alpha, agora vamos ao SQL: var resultado: Double; Sql_query: String; begin Sql_query := "SELECT SUM(CAST(tbl1_valor AS FLOAT(6,2))) AS total FROM Nome_da_table" query.sql.text := Sql_query; query1.open; edit1.text := query1.fieldbyname('total').text; query1.close; end; Bom... é issow aew, no momentu só mi vieram essas duas ideias na cabeça cara ^__^v Espero que lhe ajude, caso você nom intenda algo que coloquei, é só perguntar, eu ti ixplico cada parte com detalhes se for preciso... falows cara :D

Aew cara, é maix simples tu fazeh assim ^^''' var Linhas: TStringList; Texto: String; begin Linhas := TStringList.Create; Linhas.LoadFromFile('c:\windows\desktop\teste.txt'); Texto := Linhas.Text; while Pos(';', Texto) > 0 do Texto[Pos(';', Texto)] := #13; Linhas.Text := Texto; ShowMessage(Linhas[0]); ShowMessage(Linhas[1]); Linhas.free; end; Já que você tah usando StringList, nem precisa mexeh com manipulacao de arquivo cara... Bom, aki funcionou di forma perfeita ^__^ esperu que ti ajude...

Pow cara, fazer etiquetas é praticamente igual uma listagem, a unica diferença é a configuração do QReport que deve obedecer as especificoes da etiqueta desejada, você poe um QBand do tipo Details, configura 2 colunas nas propriedades de QReport e ajustas as margens, distancias e tal... :P

Bom, como você falou edits, vou te dá um exemplo de calculos com edits, beleza? ^__^ tipo assim cara, como você já deve saber, edits guardam valores do tipo String, e como o Delphi não faz a conversão automática de tipoes, logo, para fazer calculos com esse valores, você deve converte-los, ficaria mais ou menos assim: var valor1, valor2, resultado: integer; begin //este exemplo consiste no calculo de numeros inteiros valor1 := StrToInt(edit1.text); valor2 := StrToInt(edit2.text); resultado := valor1 + valor2; //fazendo o calculo... edit3.text := IntToStr(resultado); //convertendo o valor novamente pra string e assinando o edit... end; nesse exemplo acima, usamos duas converções, primeiro usamos a função StrToInt que seria String To Integer (caracteres para inteiro), fizemos o calculo e jogamos o valor inteiro novamente para string com a funcao: IntToStr... intendeu? Se você necessitasse de calculos com números decimais, basta trocar as funções StrToInt por StrToFloat e IntToStr por FloatToStr... intendeu cara? uma ultima coisa, para somar utilizamos o +, diminuir: - e multiplicar: *, agora no caso da Divisão existem duas maneiras, quando for divisao de inteiros utilizasse o div e quando for divisao de numeros com ponto flutuante é a / Espero que tenha te dado uma luz, caso contrario, posta maix aew perguntando, hehe ^^'''''

Pow cara, tu já usa o ADO, nom é necessario o TKaDao... mas já que tu keh, achei um link pra tu cara... ateh agora tava funcionando XD http://www.torry.net/db/direct/db_msother/kadao.zip kem kiseh esse componente, é mtu bom, mas talvez seja meiu estranho a primeira vista, pois ele é query e table em um só, hehe é legal pakas... falows :lol:

Posta um exemplu du que voce quer fazer cara, assim fica maix simples, existem varias formas di si fazeh alguma coisa, tudo depende de que exatamente o q voce keh...

Fala anãããão.... tinha ateh ixkecido disso cara, mas eu fiz esse negocio pra tu, ficou maneirinho, tipow, esse exemplo que fiz, lista todos os icones que esta em uma DLL, EXE ou qualquer outra biblioteca de icones... quando o arquivo é simplesmente um arquivo normal, ele pega o icone associado dependendo de cada win... acho que era issow que voce queria, certu? hahaha, eu sempre quis fazeh issow, mas quando as coisas são pra mim, tenho moh preguiça di procurah XDD Exemplo de icones

Nhmmmm... tow ligado, errow no registro, por algum motivo, ele nom tah conseguindo acessah teu registro... mtu ixtranho, kual win tu usa? o.o''

hahaha... que errow cara? ateh agora todu mundo conseguiu jogah ^__^'' klaru, menus voce, mi fala que msg de errow que aparece, que resolvu pra tu...

Aeeew pessual, fiz essi joguinho já há um certo tempo atras, coisa de 1 anos mais ou menos, mas resolvi pegah ele, tirah uns bugs e distribuir, si vuces puderem pegah e avaliah pra mim, fiquei grato, é bem legal o joguinho, tem ateh plano de fundo :lol: Tetris by KeitaroSan valews ^_^v

Si liga aew cara... ord($char) retorna o codigo ascii do char... e chr($cod) retorna o char relacionado ao codigo ascii :D

Ahhh, tu usa o ADO? intom tah beleza também... ele também é bom, dá pra ixcolheh Provider, daew podi ixcolheh o Jet... esse codigo que passei também funciona cum o ADO, cabei de fazeh o teste aki... funcionou direitinhu ^__^ só pra nom dexah duvidas, ali ondi tah ixcrito tabela.RecNo, é só substituir "tabela" pelo nome do componente, beleza? o.o'' intom fui..

cara, o maix proximo disso que voce disse que quer e q eu tenha visto ateh agora, é o agente da Microsoft... tipow, já fiz applicacao em Delphi, que ele aparecia e lia um texto pra vuce por exemplo, é bem legal, o problema é que a pessoa tem que ter esse ActiveX no computador para que possa visualizah também... Si nom mi falha a memoria, ele trazia um exemplo feito em VB e JavaScript, ou era Java, maix provavel em Java, mas comu nom lembro, vale a pena tentah, hehehehe dá uma olhada no site da MS e procure pelo Agent talvez ajude... ^_^

Aew... se voce estiver utilizando um Memo, nom conheço outra maneira de imprimir a não a forma que o Anão disse... porem pelo Richedit, voce pode fazer assim: vou dá um exemplo para todos os Dialogs aki citados: if PrintDialog1.Execute then Richedit1.Print(Richedit1.Text); if PrinterSetupDialog1.Execute then Richedit1.Print(Richedit1.Text); if FontDialog1.Execute then Richedit1.Font := FontDialog1.Font; if ColorDialog1.Execute then color := ColorDialog1.Color; entendeu o funcionamento dos Dialogs? o Metodo Execute serve exatamente para checar se voce clicou no botao OK do dialogo... caso tenha clicado em CANCELAR, o execute retorna FALSE e qnt a parte de impressão, com o Richedit pode ser feito dakela forma ali em cima citada ^___^ Bom, é issow aew

Aew cara, si liga só: poe assim oh: if SaveDialog1.Execute then Richedit1.SaveToFile(SaveDialog1.Filename); daew se você colocah a extensão no nome do arquivo, salva com extensão, caso contrario, salva sem extensao, certu? pra resolver issow, no SaveDialog tem a propriedade "DefaultExt" vai no Inspector e muda essa propriedade pra extensão que voce quer q seja a padrão, tipow "TXT"... daew independente do fato de colocar extensao ou nom lá no diálogo de salvar, ele vai colocah o TXT pra voce :P Delphi ruleia XD

Aew, si liga Anão: no form eu usei um Edit pra mostrah o path quando clicah, mas tu ajeita da forma que tu kiseh... primeiro, declarar a variavel: var Form1: TForm1; total_menus: integer; ------------------------------------------- depois lá no debaixo do implementation, declara essas procedures: procedure TForm1.PegaCaminho(Sender: TObject); var path: string; begin path := (Sender as TMenuItem).Caption; if pos('&', path) > 0 then delete(path, pos('&', path), 1); edit1.text := path; end; procedure TForm1.GeraMenus; var menuad: array of TMenuItem; ArqRec: TextFile; linha: string; cont: integer; begin while MainMenu1.items.Count > total_menus do begin MainMenu1.Items.Delete(3); end; cont := 0; AssignFile(ArqRec, 'arquivo_cotendo_paths_recentes'); Reset(ArqRec); while not Eof(ArqRec) do begin SetLength(menuad, cont+1); menuad[cont] := TMenuItem.Create(nil); Readln(ArqRec, linha); menuad[cont].Caption := linha; menuad[cont].OnClick := PegaCaminho; MainMenu1.Items[0].Insert(3, menuad[cont]); inc(cont); end; CloseFile(ArqRec); end; essa daki é claru, vai ficah no evento on show do form: procedure TForm1.FormShow(Sender: TObject); begin total_menus := MainMenu1.Items.Count; GeraMenus(); end; Bom, acho que issow ficou meiu imbolado, não é?? x___x -->Bom, catem aki o arquivo de exemplo funcionando<--

Aew cara... si liga aew ^__^ é moleza issow... si liga no IF, tow mandando checah si o numero do registro, é par, caso for, ele pinta a linha duma cor, caso contario, ele pinta de outra cor... e a ultima linha lá em baixo, faiz com q seja "pintado" essas alteracoes que vuce manda fazeh, comu si fosse uma confirmacao, entede? procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin if tabela.RecNo mod 2 = 0 then begin DBGrid1.Canvas.Brush.Color := clInfoBk; DBGrid1.Canvas.Font.Color := clBlack; end else begin DBGrid1.Canvas.Brush.Color := clWindow; DBGrid1.Canvas.Font.Color := clBlack; end; DBGrid1.defaultdrawdatacell(Rect, field, State); end; obs.: quando uso o componente TTable pra acessar tabelas DBASE e PARADOX, a propriedade RecNo funciona direitinho... quando eu acesso tabelas do ACCESS, essa função perde a utilidade, mas eu uso o componente TKaDaoTable pra acessar tabelas do ACCESS, ele é mtu melhoh, ele usa o JET pra acessah bem maix rapido, e essa propriedade RecNo funciona direitinho... :P Tomara que vuce consiga aew também ^__^

Bom, no Richedit, tu podi fazeh igual igual no Memo, mas assim trocaria toda a fonte, usando a propriedade SelAttribute tu podi formatar o texto selcionado... faix assim cara: FontDialog1.Font.Assign(RichEdit1.SelAttributes); //<-essa linha nom é necessaria, aki tah fazenu cum que a fonte inicial do fontdialog, seja a merma do texto selecionado do richedit... if FontDialog1.Execute then RichEdit1.SelAttributes.Assign(fontdialog1.font); Falows... :D