Paulo Nobre

Olá OSJunior. O que você quer dizer com Delphi original?

Prezado Britici, Como salvar um arquivo em rtf se para abrí-lo e salvá-lo será necessário a senha?

?????????, boa noite. Supondo que seja a diferença entre a data de hoje e uma data qualquer, todas no formato dd/nn/aaaa. Veja se este código ajuda: numa célula aparecerá o número de anos se for colocado o seguinte código: =SE(DATADIF(C2;HOJE();"y")>1;TEXTO(DATADIF(C2;HOJE();"y");"0")&" anos";TEXTO(DATADIF(C2;HOJE();"y");"0")&" ano") Noutra o número de meses entre as datas: =SE(DATADIF(C2;HOJE();"ym")>1;TEXTO(DATADIF(C2;HOJE();"ym");"0")&" meses";TEXTO(DATADIF(C2;HOJE();"ym");"0")&" mês") E numa última o número de dias: =SE(DATADIF(C2;HOJE();"md")>1;TEXTO(DATADIF(C2;HOJE();"md");"0")&" dias";TEXTO(DATADIF(C2;HOJE();"md");"0")&" dia") Por exemplo para a data 01/02/2001 apareceria 3 anos 9 meses e 5 dias

Caramba, graças a DEUS apareceu a oportunidade da minha vida!!!! Muito Obrigado Brurra, desculpe quis dizer Bruna. A propósito, você já estudou progressão geométrica alguma vez? Paulo Nobre

Entendi, Graymalkin. Abs Paulo Nobre

Olá, Graymalkin, Desculpe a ignorância, mas neste código acima, onde está a vinculação com o DBGrid? Abs Paulo Nobre

Valeu Hencker. Paulo Nobre

Valeu pela dica Hencker! Mas me responda o seguinte a chamada a função para obter o número do HD seria feita por exemplo como label1.Caption := SerialNum('C'); Paulo Nobre

Falou!

Prezado Progr'amador, como seria o uso da função que você colocou no código. Por exemplo para colocar o numero do meu hd num label1 através de um clique num botão, como seria? Colocando label1.Caption := SerialNum(Result); não dá certo. label1.Caption := Result; também não dá certo! Como se usaria esta função? Você ou alguém poderia dar uma luz de como usar a função como pedi acima? Obrigado Paulo Nobre

Ninguém?

Ninguém?

Por um acaso ía postar a mesma (ou quase a mesma ) pergunta do colega FLY. Sem fazer nenhum tipo de relatório, só com o DBgrid mostrando os registros, como seria o código para imprimir O CONTEÚDO do DBGRId? Alguém poderia postar esse código por favor? Paulo Nobre PS: Fly, desculpe pegar carona na sua dúvida, mas dessa forma descongestiona o fórum evitando perguntas repetidas.

Olá, Edimar. O que voce está querendo dizer com biblioteca? Paulo Nobre

Olá Kindeles Você pode usar a função ShellExecute para "chamar" este arquivo de ajuda. ShellExecute(0,'open',PChar(caminho),nil,nil,SW_ShowNormal) Onde Caminho é uma string que indica onde se encontra o arquivo de ajuda. Você não deve esquecer de incluir a unit ShellApi entre as outras unit já pré exixtentes. Acho , também, que no submenu options de projects você deve fazer mensagem ao arquivo de ajuda também. Espero que ajude Paulo Nobre

Você acertou na mosca Prog'amador Fiz as duas modificações que você disse que tinha erro e funcionou. Como havia dito esse código foi copiado integralmente do livro Curso Completo Delphi 7 do Marcelo Leão. Como é que pode um código ser colocado sem ser testado. Para mim que estou começando(principalmente em banco de dados) acaba me confundindo mais ainda. Acho que essa pressa que os autores tem de fazer um livro por ano gera isso. Achei não só esse erro mas, inúmeros outros. Obrigado pela ajuda a você e a todos que tentaram colaborar. Esse forum só tem feras. Abraços Paulo Nobre

Estudando um exemplo do livro do Marcelo Leão, sobre consulta SQL deparei com o seguinte código: procedure TFormSQL.BotaoOkClick(Sender: TObject); Var i: Integer; Consulta: boolean; declaracao: String; begin declaracao:=''; Consulta:= False; for i:=0 to Memo1.Lines.Count - 1 do If Pos('',Memo1.Lines[i+1])<>1 then declaracao:= declaracao + Memo1.Lines else declaracao:= declaracao + Memo1.Lines+' '; Query1.SQL.Clear; Query1.SQL.Add(declaracao); If Pos('Select',UpperCase(declaracao))>0 Then Consulta:= True; Try If Consulta = True then Query1.Open else Query1.ExecSQL; except Showmessage('Erro no código SQL'); end; end; o form possui um dbgrid um query e um datasource digitando o que está abaixo no memo aparece um erro. A principio o erro era de keyword depois apareceu o erro desconhecido database alias dbdemos. Select * From country Where Continent = "South America" Alguém sabe o que está errado no código. A consulta acima está correta, pois colocando ela direto na propriedade SQL do Query1 funciona normalmente. Paulo Nobre

Como faço para transferir um template de um computador para outro? Tipo, tenho um form que está na paleta meus exemplos, num computador e gostaria que ele fosse para outro computador.

Creio que a terceira é mais elegante. Tudo entendido. Obrigado pela aula Graymalkin. Abraços Paulo Nobre

Na mosca Graymalkin, Fiz o que você falou e deu certo; o programa passou a abrir com o dat no mesmo diretório do exe. Aliás no tempo em que fazia programas em vb usava muito este chdir. No delphi quase nunca é necessário. Vale observar que o problema só ocorreu por causa do arquivo dat sendo chamado pelo contato.exe. Se fosse apenas para chamar o contato.exe sem a necessidade do arquivo dat funcionaria. Você saberia me dizer por que? Como havia dito passando o dat para o diretório do programa que chama o contato.exe funciona. Aí fica a questão; dat no diretório de quem chama ou dat no diretório do contato.exe com mais duas linhas de código. Você acha que faz diferença? Paulo Nobre

Resolvi o problema da seguinte maneira: Criei um índice pelo campo nome. O componente SQLMemTable tem uma propriedade chamada indexName. Coloquei esta propriedade para usar o índice pelo campo nome e o DBGrid, como está associado ao SQLMemTable, passou a exibir a lista em ordem alfabética. Obrigado a todos, que como sempre estão dispostos a ajudar. Abraços Paulo Nobre

Ewerton Concordo com você plenamente em relação ao ctrl+c e ctrl+v. Programador de ctrl+c e ctrl+v, não é programador, é copiador. Não, que acho que devemos decorar tudo, isto é impossível, mas devemos tentar entender o máximo Abraços Paulo Nobre

Valeu Graymalkin. Abraços Paulo Nobre

Graymalkin, sinceramente, acho que não sei como fazer isto. Abraços Paulo Nobre

Imaginem um programa(por exemplo Contatos.exe) e um dat(Contatos.dat) que armazena os dados deste programa. Abrindo o programa(clicando direto no contatos.exe) ele lê os dados do dat (se encontra na mesma pasta do contatos.exe) e mostra para o usuário. Nada demais. Contato.exe e Contatos.dat se encontram dentro da pasta Contatos. O problema é o seguinte: ao abrir este programa, o Contatos .exe através de outro(Por exemplo, chamado principal.exe), usando o comando Caminho:=ExtractFilePath(Application.ExeName)+'\Executáveis\Contatos\Contatos.exe'; ShellExecute(0,'open',PChar(Caminho),nil,nil,SW_Shownormal); ele dá um erro dizendo que não pode encontrar o Contatos.dat. Se mudo o Contatos.dat de posição, da pasta onde se encontra o Contatos.exe, que é a pasta Contatos, para a pasta do executável que chama o programa, ou seja a pasta do principal.exe, ele funciona corretamente. Como se explica isto? Qual é a lógica? Parece até uma questão de prova. não é? Mas, é uma dúvida mesmo! Paulo Nobre