Churc

Opa Desculpe pela demora, é que está me faltando tempo, o tempo que tenho livre procuro fazer outras coisas pra mudar a cabeça ^^ ashuaush Segue o exemplo para download: Download Está explicado no source, não esquecer de ver o source principal (Menu Project > View Source) Está bem simples mas espero que ajude em algo! abraços

Opa A janela que seleciona uma pasta da uma olhada nisto. Depois você usa o código que passei exemplo var szPath: String; begin szPath := BrowseDialog('Selecione o diretório...', BIF_RETURNONLYFSDIRS); Ai se você quiser só adicionar MP3 EnumFiles(szPath, '*.mp3', faanyfile - faDirectory, Listbox1.Strings, False, False); Se quiser também adicionar WAV EnumFiles(szPath, '*.wav', faanyfile - faDirectory, Listbox1.Strings, False, False); Entendeu mais ou menos? abraço

Opa procedure EnumFiles(szPath, szAllowedExt: String; iAttributes: Integer; Buffer: TStrings; bClear, bIncludePath: Boolean); StdCall; var res: TSearchRec; szBuff: String; begin if (bClear) then Buffer.Clear; szPath := IncludeTrailingBackslash(szPath); if (FindFirst(szPath + szAllowedExt, iAttributes, res) = 0) then begin repeat szBuff := res.Name; if ((szBuff <> '.') and (szBuff <> '..')) then if (bIncludePath) then Buffer.Add(szPath + szBuff) else Buffer.Add(szBuff); until FindNext(res) <> 0; FindClose(res); end; end; Ai se faz exemplo EnumFiles('CAMINHO', '*.mp3', faanyfile - faDirectory, Listbox1.Strings, False, False); abraço

Opa 1º) qual é a função que diz o tamanho do arquivo em bytes (Ex: 1871 Kb). Exemplo baseado naquele site que passei function Get_File_Size1(sFileToExamine: string; bInKBytes: Boolean): string; { for some reason both methods of finding file size return a filesize that is slightly larger than what Windows File Explorer reports } var FileHandle: THandle; FileSize: LongWord; d1: Double; i1: Int64; begin //a- Get file size FileHandle := CreateFile(PChar(sFileToExamine), GENERIC_READ, 0, {exclusive} nil, {security} OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); FileSize := GetFileSize(FileHandle, nil); Result := IntToStr(FileSize); CloseHandle(FileHandle); //a- optionally report back in Kbytes if bInKbytes = True then begin if Length(Result) > 3 then begin Insert('.', Result, Length(Result) - 2); d1 := StrToFloat(Result); Result := IntToStr(round(d1)) + 'KB'; end else Result := '1KB'; end; end; Label1.Caption := Get_File_Size1('C:\MeuArquivo.exe', True); abraço

Opa Bom teria que pensar em uma fórmula para isso, pra quem não sabe Fibonnaci é uma sequencia de números com a seguinte forma 1 1 2 3 5 8 13 21 Onde 1 + 1 = 2, 2 + 1 = 3, 3 + 2 = 5, 5 + 3 = 8, 8 + 5 = 13, 13 + 8 = 21 Seria o valor inicial mais ele mesmo e depois o valor final mais o ultimo valor... Eu não conheço nenhuma fórmula pra isso, a não ser começar desde o 1 e ir até o número passado, se passar dele e durante a passagem não bater com ele então ele não faz parte da sequencia, caso contrário sim... Se alguém souber um jeito mais fácil posta ai! abraços

Opa 1º) Neste site tem vários exemplos. 2º) Depende o tipo do erro, mas antes de qualquer coisa cheque se o arquivo existe... if OpenDialog.Execute then if FileExists(OpenDialog.FileName) then begin {codigo} ... 3º) Não sei não trabalho com banco de dados... 4º) TDBF? Muito menos uauhsahuuh Espero que outras pessoas possam te ajudar... abraços

Opa Exatamente, mas primeiro você vai ter que passar do Firebird para TXT e de TXT para Paradox! CSV é o nome que se dá a este sistema, pode ser usado para múltiplas coisas, o Outlook por exemplo usa este sistema para exportar contatos... Entendeu o procedimento? Passa de Firebird para TXT e depois importa do TXT para Paradox Naquele tópico que passei ensina a fazer isso... abraços

Opa entrando pelas portas do fundo tipo, pela mensagem diz que o campo "cod_empresa" não existe na tabela, chegou a verificar ou se por exemplo alguma outra coisa faz ligação a "cod_empresa"? abraço

Opa Da uma pesquisada no fórum, procure por CSV você vai ver vários tópicos com este assunto! Como exemplo aparecerá vários, como este. abraço

Opa Conforme contato via MP, movendo para tutoriais e dicas... abraços

Opa Isto não parece ser uma dúvida, portanto movendo para a seção tutoriais e dicas... abraço

Opa Tem um componente que faz isso, mas é pago: http://www.wab-component.com Gratuitos não conheço! abraço

Opa Ahhh então não é Instalar ehehe Assim, se possível instale nas máquinas das secretárias também, porque não? De qualquer forma, o que você pode fazer é compartilhar a pasta do seu programa, e gerar um Atalho nas máquinas das secretárias com o caminho exemplo \\Maquina_Do_Chefe\Pasta_Do_Seu_Programa\Seu_Programa.exe Mas como o Windows emula local o programa e não em rede, então as DLLs você vai ter que colocar nas máquinas das secretárias também... abraço

Opa Como assim instalar em rede Carlos Rocha? Instalar o programa? ... Se for, tendo a pasta Meus Documentos compartilhada basta colocar o instalador nela e através das máquinas das secretárias acessar esta pasta... Não sei se foi isso que você quis dizer rsr Abraço

Opa Toolbar é uma barra de Ferramentas, este é o nome real no Português, por exemplo, a Barra do IE é uma Toolbar... Fica na paleta Win32, coloque ela no form, deixe a propriedade Align pra AlNone e posicione-a onde deseja... Coloque uma ImageList no Form, nesta deve ficar as imagens que vai aparecer nos botões... Deixe o tamanho das imagens na ImageList para 16x16 Selecione a Toolbar, procure pela propriedade Images no Object Inspector e selecione a ImageList... Clique com o botão direito emcima da Toolbar e clique em New Button Neste botão se tem eventos como um botão comum, como OnClick, etc você pode trabalhar com ele normalmente... Bom o primeiro passo você já sabe, agora é só fuçar para chegar aonde você quer shushauhu abraço

Opa Manda bala ahuauhhau valeu Erso abraço

Boa Erso ;) Mas pra evitar erros, coloque um try except antes de fazer isso pra evitar que o usuário digite algo errado e de erro no programa... Exemplo var Ano, mês, Dia: Word; begin Try DecodeDate(StrToDate(Edit1.text), Ano, mês, Dia); Except ShowMessage('A data digitada é inválida!'); end; abraço

Opaa Estou interessado sim, por onde começo!? ahuahua abraços

não estou com o delphi aqui pra testar.... é so uma ideia... Opa Só que desta maneira não é de alta precisão, é apenas contado diferença entre segundos já a temporização de alta precisão conta até milisegundos... Mas funciona também, depende o caso... abraço

Opa O erro acontece porque as vezes um item pode não estar selecionado ai ele da erro mesmo, você deve comparar se está selecionado assim: if Assigned(shelllistview1.ItemFocused) then edit1.Text := shelllistview1.ItemFocused.Caption; ou if (shelllistview1.ItemFocused <> nil) then edit1.Text := shelllistview1.ItemFocused.Caption; Ambos comparam se o item está selecionado antes de fazer com que o Edit1 pegue seu Caption... abraço

Opa Aham eu sei brother apenas havia comentado asuhsahuas Qualquer coisa, poste aqui se achar uma solução ou coisa do tipo... abraço

Opa Da uma olhada nisto. Esta seção do fórum somente se aplica a questões de Delphi/Kylix, de qualquer forma, se seu problema fugir deste assunto, por exemplo, for erro de configuração no Apache ou coisas relacionadas ao Apache, então iremos mover seu tópico para uma seção apropriada do fórum! abraços

Opa Existem funções que formatam e criam Datas a partir de um valor No caso: FormatDateTime(); EncodeDate(); O usuário digita aonde essa data, em um edit? se sim esse edit possui alguma formatação ou é normal, ou é como... essa variável txt entre os % pega o que? abraço

Opa Emcima do Form do OpenDialog não sei não se você vai conseguir... Agora se quiser fazer um parecido se for o que eu entendi... Onde tá o "Meu Computador" é um ShellCombobox Os botões do lado é uma Toolbar com tamanho de 16x das imagens Onde mostra os arquivos é uma ShellListView abraço

Opa Da uma olhada neste exemplo. abraços