Arlon

Entender eu até q entendi, o texto não tá confuso, mas eu não sei como fazer isso. Dá uma olhada nesses sites aqui que todos eles tem tutoriais, artigos e apostilas sobre QuickReport, vale a pena dar uma olhada. Planeta Delphi Active Delphi Clube Delphi Portal Delphi aki da SB

Tenho uma sugestão: Porquê que ao invés de criar uma tabela temporária e imprimir o conteúdo da tabela, você não faz uma pesquisa com SQL na primeira tabela, joga o resultado num relatório e imprime esse relatório, eu acho q daria menos trabalho. Use um componente TQuery ao invés de gerar uma tabela temporária e sete as propriedades do relatório e de seus componentes QrDBText para o TQuery. Caso queira fazer isso, mas não saiba fazer a busca e/ou não saiba gerar um relatório posta ae que o pessoal te ajuda.

Bem, mostramos as duas opções, agora vai de acordo com a vontade do freguês, certo... Abraços. Raphael Arlon

Veja a Api SHFileOperation e o parâmetro TSHFileOpStruct Cara desculpa, mas eu não entendo nada dessas paradas aí ainda. Dava pra explicar melhor?? O que é Api?

he he, essas doideiras acontecem de vez em quando. O site é esse aki: www.delphi.eti.br

o amigo s3c disse: porque você não copia no padrão Windows? Ele já coloca a barra de progresso. agora eu pergunto: como é que se copia com o padrão windows que eu não sei, aliás eu não sei comando de cópia em padrão nenhum!!

Deixa eu ver se entendi... você quer fazer um relatório, só que ao invés de colocar todos os registros da tabela, você quer filtrar os registros com uma Query para selecionar somente os registros que lhe interessam e por no relatório??

Tem outra forma também: Para adicionar TabSheet: Coloca o PageControl no formulário -> clica com o botão esquerdo -> new page. Para mudar o Caption: Seleciona a aba -> clica no corpo dela -> propriedade "Caption", no object Inspector.

Faz assim ó, só que ao invés de mostar num stringGrid mostra num DBGrid. è só você setar a propriedade dataset do DBGrid pra Query q você tá fazendo a consulta. Código do botão "Buscar" DataModule.Query.Close; DataModule.Query.SQL.Text := 'Select * from Tabela ' + 'Where Upper(Campo) =:CampoBusca'; DataModule.Query.Params[0].AsString := UpperCase(ComboBox1.Text); DataModule.Query.open; Código da propriedade SQL da Query: Select * from Tabela qualquer coisa posta ae...

Eu tive pensando aqui e consegui fazer o código em Delphi. Só q ue ficou uma coisa sem lógica, pensa comigo: Eu fiz assim o formulário: - 3 edits - 1 botão - Declare Math no uses nos dois primeiros edits são informados os números e no terceiro edit é informado o resultado. Só que independente do valor que você colocar nos edits vai dar o mesmo valor para os mesmos números. você tá querendo elevar sempre o valor mais alto pelo mais baixo, independente do q tiver digitado nos edits, ou seja, 10 elevado a 2 vai ser igual a 2 elevado a 10, entendeu, uma vez q você sempre eleva o mais alto pelo mais baixo, mas... o código tá aí ó, coloca no evento OnClick de um botão: procedure TForm1.Button1Click(Sender: TObject); var a, b : Integer; valor : Extended; begin a := strtoint(edit1.Text); b := strtoint(edit2.Text); if a > b then begin valor := power(a,b); Edit3.Text := floattostr(valor); end; if b > a then begin; valor := power(b,a); edit3.Text := floattostr(valor); end; end; end. esse é o código em Delphi de C eu não entendo nada!!

Dá uma olhada nesse site aqui, lá eu peguei um roteiro completo ensinado a usar o Install Shield 4. Vai na seção de Apostilas que tem um mecanismo de busca nele, você acha o q quer rapidinho.

Como assim?? setar 132 campos ou setar colunas que correspondem aos campos, tipo assim: Código Nome Endereço Bairo Cidade Estado DDD Telefone ... <-- colunas ou Código Nome Endereço Bairo Cidade Estado DDD Telefone... <-- colunas cod1 nome1 cod2 nome2 <-- Campos cod3 nome3 "E assim vai" cod4 nome4 . . . . . .

Pow cara, já que a decisão já está tomada e também foi uma coisa q aconteceu graças ao aumento de trabalho (bem, pior seria se não tivesse trabalho a fazer, certo), a única coisa que temos a fazer é agradecer de forma bastante sincera ao cara q sem dúvida ajudou muito (e espero q continue ajudando, hein!!) os membros aqui do fórum de Delphi. Eu sou um membro recente no fórum, mas grande parte das dúvidas que tive (sem desmerecer a ajuda dos outros membros, a quem tb sou bastante grato) resolvi através das suas dicas e sugestões. Valeu mesmo cara, todos nós aqui do fórum, sem demagogia, somos gratos à sua ajuda. E pow, na medida do possível dê uma passada aí pra responder às dúvidas da galera, valeu. Tudo de bom e boa sorte... Raphael Arlon Ah, só mais uma coisinha: alguém sabe do KeitaroSan?? O cara manda benzão e se não tivesse dado uma sumida repentina do fórum daria um ótimo moderador.

Eu fiz aqui e o Delphi mandou declarar a palavra "Power".

Eu acho meio difícil de você encontar um código desse pronto, mas já q você perguntou... não sei se você já os conhece, mas existe aí pela net uns sites com um conteúdo muito legal sobre Delphi, todos eles tem uma seção de dicas e já q você tá precisando do código vale a pena dar uma procurada. Eu nunca vi algo desse tipo q você quer, mas... Planeta Delphi Clube Delphi Active Delphi Delphi BR se você conseguir achar, posta o site ae porque pode ser q mais alguém precise um dia, falou.

Ferj, o sinal "^" indica que A será elevado por B, exponencial, entende?? eu tentei fazer em Delphi pra ajudar o rapaz, mas eu nunca usei expoente e tá dando um erro aqui q eu não estou conseguindo resolver: procedure TForm1.Button1Click(Sender: TObject); var valor : integer; begin valor := strtoint(4 ^ 2); // usei (4 ^ 2) só pra testar e ver se dava certo edit1.text := inttostr(valor); end; end. tá dando o seguinte erro: "Pointer type required". O q q eu estou fazendo de errado??

Pow, eu não entendo muito de criação de sites [[sei só Front Page, e é claro q não posso me considerar um WebDesign, como muitos aí]]. Prefiro não dar nota no trabalho dos outros e "apenas" comentar. Eu achei q o site ficou show de bola mesmo, muito bem diagramado, tá parecendo uma revista, tá maneiro mesmo, parabéns. Uma única sugestão: abaixo dos links tá uma área vazia, você podia por algua coisinha ali, falou... parabéns + uma vez!!

Obrigue-o a digitar: procedure TForm1.FormShow(Sender: TObject); Begin BtnOK.enabled := false; end; e só desabilita o botão OK se o cara digitar alguma coisa: procedure TForm1.MaskEdit1Change(Sender: TObject); var cod : string; begin DataModule.Tabela.Cancel; if (trim(Maskedit1.text) <> '') then cod := Maskedit1.text; if (DataModule.Tabela.FindKey([cod])) then begin BtnOK.Enabled := false; end; if (DataModule.Tabela.FindKey([cod])) or (MaskEdit1.Text = '') then begin BtnOK.Enabled := False; end else begin BtnOK.enabled := True; end; DataModule.Tabela.Append; end; vc´s acham uma boa saída?? é sempre assim q eu faço. Além de obrigar o cara a digitar no campo (código - chave primária), ele evita violação de chave.

He, he, disponha.

Iabadabaduuuuuuuuuuú!! Consegui resolver o problema. Era só tirar o UPPER q tá antes do campo que eu quero fazer a busca. Pow imaginem só, colocar data e número em maiúsculo!!?? Estranho né!!?? Mas, é como eu costumo dizer: "vivendo, se estressando, perdendo noites de sono, futebol, televisão, e aprendendo". Valeu galera.

Se liga nesses códigos aki: procedure TForm1.ButtonClick(Sender: TObject); begin {Reinicia o windows} ExitWindowsEx(EWX_REBOOT,0); end; procedure TForm1.Button1Click(Sender: TObject); begin {Desliga o windows} ExitWindowsEx(EWX_SHUTDOWN,0); end; procedure TForm1.Button1Click(Sender: TObject); begin {Força todos os programas a desligarem-se} ExitWindowsEx(EWX_FORCE,0); end; Pra abir uma caixa de diálogo você pode fazer o seguinte: procedure TForm1.Button1Click(Sender: TObject); begin If APPLICATION.MESSAGEBOX('Atualizações concluídas. Deseja reiniciar o computador agora?', 'Aviso', MB_ICONQUESTION + MB_YESNO)=ID_YES Then ExitWindowsEx(EWX_REBOOT,0); end;

Acho q a melhor solução para esse problema está aki: Na rotina abaixo, o TEdit só aceitará números de 0 a 9 e o BackSpace (Chr(8)). Se voce quiser a vírgula também, coloque dentro do colchete DecimalSeparator. Utilize o evento OnKeyPress do Edit procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in['0'..'9',Chr(8)]) then Key:= #0; end;

Mas se você quizer mudar os ícones apenas de determinados formulários faz assim ó: Clica no formulário --> object inspector, propriedade Icon (clica nas reticências, lógico) --> Load --> agora você seleciona o caminho do ícone, só q você só pode adicionar arquivos de extensão .ico. você querendo passa seu e-mail aí q eu te mando algumas centenas deles q eu tenho aki, muitos são inúteis mas tem uns legaizinhos pra você usar. E tem uns q já vem com o Delphi: Clica no formulário --> object inspector, propriedade Icon (clica nas reticências, lógico) --> Load --> Disco Local --> Arquivos de programas --> Arquivos comuns --> Borland Shared --> Images --> Icons. Espero ter ajudado. Raphael Arlon

Às vezes fica mais rápido a às vezes mais lento, porque a frequência da rede elétrica não é 60 Hz continuamente, existe uma pequena variação. O processador trabalha da mesma forma que um rádio relógio: a cada 120 oscilações entre o pico e o vale de uma onda (60 Hz) ele conta 1 segundo, situação q acaba se agravando se o seu processador for aquele movido a carvão vegetal... rsrs Curiosidade: se agente pegar um rádio relógio alemão e ligá-lo numa tomada aki no brasil ele vai atrasar dez minutos por hora, isso porque a frequência da rede elétrica na Alemanhã é 50 Hz e não 60 Hz como aki.

s3c, seria legal se você colocasse isso lá no tópico fixo 'Seção de Dicas', aí até quem entrar aki no fórum daki há algum tempo tb vai visualizar isso aí sem ter q fazer busca... falou.