Jhonas

veja se é isto que voce esta querendo. http://scriptbrasil.com.br/forum/index.php...st&p=468593 abraço

OBS: esta modificação que fiz no seu codigo está funcionando certinho. abraço

Não seria mais facil e mais pratico voce utilizar um quickreport para isto ? outros comentarios sobre o assunto: http://www.activedelphi.com.br/forum/viewt...639057af78dbea7 http://forum.clubedelphi.net/viewtopic.php...d0b071186815741 http://www.activedelphi.com.br/forum/viewt...a10cce4578636f6 http://forum.clubedelphi.net/viewtopic.php...d605f0bab949df7 abraço

1- Ser impossível de maximizar a tela; use a propriedade do form BordersIcons ... deixe a opção ibMaximize como false 2- Fazer as músicas passarem automaticamente; crie uma rotina para que ao final da musica, passe para a propriedade FileName do media player o caminho da proxima musica 3- Ao invés de abrir a janela pra escolher a pasta, abrir uma pra escolher os arquivos que você quer na lista; procure no forum pela palavra-chave listbox vai encontrar algo que vai ajudar 4- Gostaria de saber se dá para editar (imagem) os botões no media player; é possivel sim, so não lembro qual é o arquivo que voce deve alterar por exemplo Mudar as imagens do DBNavigator //abra o seguinte arquivo no Image Editor do Delphi e modifique as imagens como quizer. "C:\Arquivos de programas\Borland\Delphi5\Libdbctrls.res" e por ultimo ... veja este endereço http://www.devmedia.com.br/articles/viewcomp.asp?comp=6324 abraço

seu codigo está quase correto ... no entanto voce deve estar entrando com um valor com ponto decimal e não com virgula, por isso o erro ( não é um valor de ponto flutuante valido ) ou seja.... voce digitou 35.69 quando deveria ser 35,69 procedure TForm1.Button1Click(Sender: TObject); var qm,vm,tm,qme,vme,tme : real; begin qm := 0; vm := 0; tm := 0; qme := 0; vme := 0; tme := 0; qm := strtofloat(edtqtdemorango.text); vm := strtofloat(edtvalormorango.text); qme := strtofloat(edtqtdemelao.text); vme := strtofloat(edtvalormelao.text); tm :=qm*vm; tme := qme*vme; edttotalmorango.text := formatfloat('#,##0.00',tm); edttotalmelao.text := formatfloat('#,##0.00',tme); end; abraço

Oi Eder... realmente voce tera resultados duplicados, pois voce esta fazendo select em duas tabelas... voce deve procurar o cnpj diferente em apenas uma tabela Select Clientes.Cnpj, Clientes.Nome From CLIENTES WHERE (CLIENTES.CNPJ <> MCLIENTES.CNPJ) Order By Clientes.Nome, Clientes.Cnpj mostra os clientes diferentes na Clientes.cnpj <> MClientes.Cnpj neste caso voce estara procurando todos os Clientes.cnpj diferentes de um dos registros de MClientes.Cnpj abraço

Como voce não informou qual é o banco de dados que usa .... voce pode usar CREATE INDEX idx_PONTOS ON minha_tabela (minha_coluna); ou uma instrução SQL Select * from minha_tabela Order by PONTOS mais informações: http://www.freecode.com.br/forum/index.php?showtopic=10402 http://www.devmedia.com.br/clubedelphi/bor...se75-Parte2.asp http://www.devmedia.com.br/articles/viewcomp.asp?comp=2623 http://www.uri.br/~preuss/delphibd/DelphiComBD.htm abraço

tradução do erro: [Erro fatal] Project1.dpr(5): foram compiladas Unit Forms com uma versão diferente de Sistema. @LStrFromQCharLen Possivelmente existem erros nos registros.... Voce deve desinstalar o delphi e fazer uma limpeza nos registros use o Easy-Cleaner para isto http://baixaki.ig.com.br/download/Easy-Cleaner.htm depois voce instala novamente o delphi, deve resolver o problerma. abraço

Parabéns, KaKarotto! .... Valeu pela força. abraço

voce montou um navegador pelo delphi ? abraço

acho que este problema foi corrigido nesta versão http://switch.dl.sourceforge.net/sourcefor...Print-3.0.4.zip abraço

[O que é uma Dll ?] DLL é um acrônimo para Dnamic Link Library ( Biblioteca de Linkagem Dinamica). Dlls são funcionalmente equivalentes a units, pois representam um coleção de fuções externas ao módulo principal da aplicação. A diferença se encontra no modo através do qual a biblioteca é linkada. Dlls exportam funções para serem utilizadas por outras Dlls ou aplicações ( importando-as). Nada mais pode ser exportado ou importado atraves do mecanismo de Dlls, a não ser funções e procedimentos. OBS: Uma Dll não precisa necessariamente ser escrita em delphi. A sua aplicação delphi pode usar Dlls escritas em outras linguagens. As Dlls do windows não são escritas em delphi e voce as usa normalmente. abraço

É possivel mas não aconselhavel ... pode dizer em que tipo de projeto esta imaginando usar isto ? abraço

o nome dos arquivos do YouTube será algo como "get_video?video_id=5Bj9BAd2Qpk" certo? o nome será um pouco mais extenso do que colocou ... quando voce copia e cola, voce vai ter o nome abreviado vamos fazer um teste: use este codigo para voce ver se o nome vem completo use um button e um memo function TemAtributo(Attr, Val: Integer): Boolean; begin Result := Attr and Val = Val; end; procedure ListarArquivos(Diretorio: string; Sub:Boolean); var F: TSearchRec; Ret: Integer; TempNome: string; begin Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F); try while Ret = 0 do begin if TemAtributo(F.Attr, faDirectory) then begin if (F.Name <> '.') And (F.Name <> '..') then if Sub = True then begin TempNome := Diretorio+'\' + F.Name; ListarArquivos(TempNome, True); end; end else begin Form1.Memo1.Lines.Add(Diretorio+'\'+F.Name); end; Ret := FindNext(F); end; finally begin FindClose(F); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ListarArquivos('C:\Documents and Settings\User1\Configurações locais\Temporary Internet Files',true); end; end. abraço

ao inverter a alimentação o led do drive A fica aceso direto, e se voce deixar a alimentação invertida por mais de 1 minuto, pode queimar o circuito. pode ser erro de drive ( painel de controle, sistemas, hardware e verifique os erros ) pode ser flat cable ( troque por outro ) pode ser cabeçote de leitura sujo ou desalinhado ( use um disquete de limpeza ) e se estiver desalinhado, somente com um disquete padrão e ajuste manual resolve. abraço

Vejo do jeito como eles estão lá.... melhor voce postar um exemplo de como voce esta vendo esses arquivos abraço

O " Lançamento falhou não binarios " indica, que você não tem um Arquivo Binário Compilado (aka * .exe File) entre na versão traduzida da pagina para maiores informações http://people.cs.uchicago.edu/~adamshaw/CS106-ecl-faq.html abraço

Jhonatas... procure no forum pela palavra-chave socket, vai encontrar muita coisa a respeito exemplo http://scriptbrasil.com.br/forum/index.php...st&p=123060 abraço

Colega ... um texto na banda detail, não é repetido na pagina seguinte, a não ser que voce queira isso .... para poder te responder é melhor voce deveria explicar com mais detalhes como está montada a estrutura desse report. abraço

Oi Jhonatas ... procure ler mais a respeito do delphi ( apostilas, tutoriais, biblia do delphi, artigos ..etc ) para poder ficar mais por dentro do assunto... no forum e na internet vai achar o material necessario quanto a Dlls já postei para voce http://scriptbrasil.com.br/forum/index.php...st&p=474343 abraço

Veja se ajuda.... http://scriptbrasil.com.br/forum/index.php...st&p=467362 http://scriptbrasil.com.br/forum/index.php...st&p=471275 ou procure no forum pela palavra-chave Exportar abraço

Da uma olhada neste post .... veja se ajuda http://scriptbrasil.com.br/forum/index.php...st&p=473848 abraço

Oi Carlos .. de maneirta bem simplista é: va em Component e clique em Install packages e procure por "Zeos Database Components" caso tenha problemas com a packages para o delphi 2007 procure em http://zeosdownloads.firmos.at/downloads/snapshots/ OBS: a biblioteca Zeos versão 6.6.1 beta não é compatível com o delphi 2007 a versão compativel é ZEOSLIB_TESTING_REV315.zip como instalar o zeos http://imasters.uol.com.br/artigo/3377?cn=3377&cc=254 abraço

Não tenho muita certeza, mas acho que o comando é este: @ ... SAY - Objects BMPs & OLE @ <linha, coluna> SAY <arquivo> BITMAP <campo geral> [STYLE <expC1>] [CENTER] [ISOMETRIC | STRETCH] [SIZE <expN1>, <expN2>] [NOWAIT] abraço

Eder basta seguir a mesma lógica procurar e copiar if pos('SC', Entrada) > 0 then // se achar na linha 'SC' retorna a posição onde foi encontrada //function Copy(S; Index, Count: Integer): string; Table1.FieldByName('estado').Value := Copy(Entrada, pos('SC', Entrada), 2); abraço