Progr'amador

Olá, use nas Select'S (TQuery): SELECT 'COD.MATERIAL' As COD_MATERAL, ... Abs. Progr'amador.

Olá Solid Snake, você poderia postar seu código?, acho que ficaria mais fácil pra tentar lhe ajudar. Abs. Progr'amador.

Olá, É o que o Graymalkin falou, use aspas simples ou duplas (tanto faz) Assim: select 'cod.material', M.descricao, T.Cod_Tipo from 'c:\Engevale\material.db' as M, 'c:\Engevale\tipo.db' as T where M.Cod_Tipo=T.Cod_Tipo Abs Progr'amador.

Olá s3c. vlw!!! mas era assim mesmo que eu estava fazendo, só que queria ver a possibilidade de tocar de dentro do exe assim como o wav, de qualquer forma, VLW!!! Abs. Progr'mador.

Abs. Progr'amador. esse erro já resolvi no uses: MMSystem Só que só toca se for WAV??? tem como tocar MP3? Abs. Progr'amador.

Olá gelara! s3c, eu tentei usar o seu código pra tocar um mp3, num sei se ta correto mas deu erro (Undeclared identifier: sndPlaySound), tem que declarar alguma coisa no uses? Abs. Progr'amador.

Olá Paulo, Não sei te dizer se ele faz o que você ta querendo. Abs. Progr'amador.

Ae! parabens a todos galera, com certeza foi uma ótima escolha! Essa comunidade só tende a crescer e eu estou de saída! PS: Antes que pensem, não tem nada haver com as escolhas galera! é que realmente tenho que sair! Abs. Progr'amador.

Olá galera, bem chegou a minha hora! não estou feliz com esse tópico! não queria esta postando isso agora, mas infelizmente vou ter que da um tempo. É que hoje pela manhã recebi um comunicado, pra eu me apresentar no Tribunal de Justiça referente a um concurso que eu fiz no ano de 2001 (já tinha até esquecido). NOVO EMPREGO!!!! E por isso, tive que pedir as contas do meu emprego atual, e como eu ainda não sei qual vai ser a minha situação lá no TJ, vou ter que sair da moderação, quem sabe quando regularizar a minha situação se ainda me quizerem eu possa voltar, HEHEHEH!!!!! E desculpe ae qualquer coisa! Parabens Binho! Essa comunidade só tende a crescer cara. Um grando abraço a todos! Progr'amador.

Olá eu num sou o Graymalkin, mas posso tentar te ajudar??? 1º - Se você ta declarando uma varavel você num pode usar o igual (=) use somente ":" e no final o ";". Exemplo: CorFundo : Integer; 2º - Pra inserir nesse caso você num pode usar a clausula WHERE, e sempre que se usar as funções INSERT, UPDATE e DELETE deve-se usar o comando ExecSql. exemplo: Abs. Progr'amador.

Ok Paulo, ficamos no aguardo, e qualquer coisa é postar. Abs. Progr'amador.

Olá Paulo, siga o exemplo abaixo: 1 - Crie uma pasta no Local desejado. Exemplo 'C:\WAV Res'. 2 - Copie todos os arquivos que deseja inserir em seu executavel. 3 - Crie um arquivo de texto(.txt) nessa pasta. Exemplo 'WavRes.txt'. 4 - No Arquivo texto: será informado um nome qualquer que será usando como referencia; o tipo de arquivo (WAVFILE, MP3FILE, ZIPFILE, etc...); e por ultimo o nome do arquivo real com a extensão. Exemplo: MUSICA01.WAV. Exemplo geral( VMUSICA WAVFILE MUSICA01.WAV ) . 5 - Compile o arquivo de texto usando o Brcc32.exe(no diretório Delphi\Bin) por linha de comando. De preferencia crie na pasta um atalho para o Brcc32, depois dê um clique com o botão esquerdo do mouse sobre o arquivo de atalho e clique em 'Propriedades', no campo objeto depois do "C:\...\Delphi\Bin\brcc32.exe" dê um espaço e digite entre aspas duplas o nome do arquivo de texto que você criou com o caminho completo. Exemplo: "C:\Wav Res\WavRes.txt". Pronto para compilar o arquivo dê um clique duplo no atalho. 6 - O Brcc32 vai gerar um arquivo de recursos com o mesmo nome do arquivo de texto. Exemplo 'Wav.RES'. 7 - Copie este arquivo para a pasta onde está o projeto. 8 - Agora no Delphi abra o projeto que você deseja inserir o arquivo de recursos, click no menu Projects | View Source e digite {$R Wav.RES}. 9 - Pronto agora é só Compilar o projeto e os arquivos vão estar dentro do aplicativo. Como usar os arquivos? Abaixo está o procedimento que vamos usar para extrair o arquivo Musica01.wav e grava-lo no disco. ------------------------- Abs. Progr'amador.

Inserir Arquivos dentro do Executavel 1 - Crie uma pasta no Local desejado. Exemplo 'C:\WAV Res'. 2 - Copie todos os arquivos que deseja inserir em seu executavel. 3 - Crie um arquivo de texto(.txt) nessa pasta. Exemplo 'WavRes.txt'. 4 - No Arquivo texto: será informado um nome qualquer que será usando como referencia; o tipo de arquivo (WAVFILE, MP3FILE, ZIPFILE, etc...); e por ultimo o nome do arquivo real com a extensão. Exemplo: MUSICA01.WAV. Exemplo geral( VMUSICA WAVFILE MUSICA01.WAV ) . 5 - Compile o arquivo de texto usando o Brcc32.exe(no diretório Delphi\Bin) por linha de comando. De preferencia crie na pasta um atalho para o Brcc32, depois dê um clique com o botão esquerdo do mouse sobre o arquivo de atalho e clique em 'Propriedades', no campo objeto depois do "C:\...\Delphi\Bin\brcc32.exe" dê um espaço e digite entre aspas duplas o nome do arquivo de texto que você criou com o caminho completo. Exemplo: "C:\Wav Res\WavRes.txt". Pronto para compilar o arquivo dê um clique duplo no atalho. 6 - O Brcc32 vai gerar um arquivo de recursos com o mesmo nome do arquivo de texto. Exemplo 'Wav.RES'. 7 - Copie este arquivo para a pasta onde está o projeto. 8 - Agora no Delphi abra o projeto que você deseja inserir o arquivo de recursos, click no menu Projects | View Source e digite {$R Wav.RES}. 9 - Pronto agora é só Compilar o projeto e os arquivos vão estar dentro do aplicativo. Como usar os arquivos? Abaixo está o procedimento que vamos usar para extrair o arquivo Musica01.wav e grava-lo no disco. OBS.: Se os arquivos estiverem compactados inclua o algoritmo de descompactação antes de salvar o arquivo. ------------------------- Abs. Progr'amador.

Olá, Use array pra receber os valores do arquivo e depois passe para um memo, assim: procedure TForm1.Button1Click(Sender: TObject); var txt : array[1..1000] of String; f : TextFile; linha : String; i, x, max : Integer; begin AssignFile(f,'C:\ARQUIVO.txt'); Reset(f); max := 0; while not eof(f) do begin max := max + 1; Readln(f,linha); txt[max] := linha; end; Closefile(f); Memo1.Clear; x := 0; for i := 1 to max do begin if i = 1 then Memo1.Lines.Add(txt[max]); if i = max then Memo1.Lines.Add(txt[1]); if (i > 1) and (i < max) then Memo1.Lines.Add(txt[max-x]); x := x + 1; end; end; Abs. Progr'amador.

você colocou? onde? tem certeza que é o mesmo erro? Se você colocou no mesmo diretórios que está o projeto não tem como da esse erro num serie nessa unit "backup1" o erro??? Abs. Progr'amador.

Ta faltando essa unit backup.pas ou backup.dcu Abs. Progr'amador.

No Timer?? Coloque no OnKeyDown do Form: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0); end; e na propriedade do KeyPreview do form coloque TRUE Abs. Progr'amador.

Tenta assim: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i := menufornecedor.Categories.Count; menufornecedor.Categories.Insert(i); end; Abs. Progr'amador.

faz assim: with DM.Query do begin Close; SQL.Clear; SQL.Add('UPDATE data SET contato = '+#39+Edit8.text+#39+', endereco = '#39+Edit2.Text+#39' '); SQL.Add('WHERE nome = '+#39+Edit_name.Text+#39); ExecSQL; end; Abs. Progr'amador.

Olá, postae o codigo que você esta usando. Abs. Progr'amador.

Olá, Posta ae como ta saindo a fórmula la no excel. provavelmente essa variavel strLinha não recebendo o valor, e ta ficando assim: =SOMA(E3:E) Abs. Progr'amador.

Olá Kikonanet, Eu nunca usei o DBExpress mas acredito que funcione com DBGrid sim, o DBGrid é lincado com um TDataSource, e o TDataSource pode ser lincado com um TSQLQuery, TSQLTable ou TSQLDataSet. Abs. Progr'amador.

Olá, você tera que fazer uma select na query, na propriedade SQL (String)... , tipo assim: [/code] Abs. Progr'amador.

postae o código que você ta usando. Abs. Progr'amador.

você ta usando assim: RenameFile('c:\arquivo.zip','c:\novo_arquivo.zip');