Churc

Opa Então já ouve uma discussão no fórum de administradores sobre usuários que pedem ajuda sobre trabalhos de faculdade onde chegou-se na conclusão que o ideal é ajudar, tirar dúvidas e não fazer o trabalho... Sendo assim, poste parte de que você fez para podermos lhe ajudar, pois fazer para você realmente é sacanagem porque ai você não vai aprender nada e eu se fosse professor ia fazer com que cada aluno explicasse o que ele fez pra ver se foi ele que fez realmente uhahauahu Resumindo, poste o que você já fez ou o erro que lhe ajudaremos... abraço

Opa Se o valor vem como Double(TDateTime) pode-se formatar usando FormatDateTime(); FormatDateTime('hh:mm:ss', Valor); //sairia como 09:00:00 hh = hora mm = minuto ss = segundo abraço

Opa você pode fazer... if check_somar.checked then btn_calcular.Enabled := True; ou o mais correto btn_calcular.Enabled := check_somar.checked; abraço

Opa Não daria não, nunca fiz isso mas seria como o vivendo disse mesmo, você teria que caminhar em todos os campos e dar um visible := false; é simples, eu não sei qual é mas deve ter uma variável que lhe retorna quantos campos há na tabela... FieldCount ? vamos supor que seja FieldCount então você faz var i: Integer; begin for i := 0 to Query1.FieldCount - 1 do Query1.Field.Visible := False; end; Não é isso, mas só foi um exemplo de como seria, você terá que saber qual a variável que retorna o número de campos e saber como passar a index Field não deve ser isso, talvez Fields.Field rsr testa ai... abraço

Opa Eder não tem nada de absurdo e praticamente você falou o código if Checkbox1.Checked then showmessage('checkbox selecionado') else Showmessage('Checkbox não selecionado'); abraço

Opa Coloque no evento OnExit do Edit exemplo if (Length(Edit1.text) <> 14) then begin ShowMessage('Digite os 14 caracteres! rs'); Edit1.SetFocus; end; abraço

Opa Antes de você fazer o comando de Copy é só você tratar exemplo While not Eoln(Txt) do begin Readln(Txt,Entrada); Inc(Linhas); if Linhas > 3 then//aqui verifica e desconcidera AS 4 primeiras linhas do CSV if (Copy(Entrada, 1, 1) = '3') then begin Table1.Insert;//Abaixo converte pra *.DB..lembrando que antes deve criar o DB no DataBase Desktop. Table1.FieldByName('1').Value := Copy(Entrada,1, Pos(PathSep, Entrada) - 1); Delete(Entrada, 1, Pos(PathSep, Entrada)); Table1.FieldByName('sigla_ctrc').Value := Copy(Entrada,1, Pos(PathSep, Entrada) - 1); Delete(Entrada, 1, Pos(PathSep, Entrada)); Table1.FieldByName('numero_ctrc').Value := Copy(Entrada,1, Pos(PathSep, Entrada) - 1); Delete(Entrada, 1, Pos(PathSep, Entrada)); ... abraço

Opa tenta usar em seu código de substituir Enter por Tab algo do tipo If (Key = #13) and not (Sender is TDBLookupComboBox) then Então quando o Enter for pressionado no TDBLookupComboBox ele vai ignorar o código e não vai pular pro próximo controle... abraço

Opa Vai ser difícil te ajudar assim, visto que você chama várias rotinas dentro deste clique do botão e o fato de dar erro ai nesta função não quer dizer que o erro esteja exatamente ai e com certeza está nestas rotinas que você está chamando... Faça o seguinte, chame a CallStack do Delphi assim que der o Access Violation e veja em qual ponto exatamente acontece o erro... Da uma olhada neste tópico sobre como usar a Call Stack e poste aqui... abraço

Opa Se existe algum erro eu não sei porque não testei e estou sem o Delphi em casa, mas foi muito inteligente essa maneira que você passou, espero que de certo! Mas não deve ter porque você com certeza testou antes de postar rsr Certeza que outras pessoas vão procurar por isto futuramente... abraço

Opa É eu também não manjo muito de DataModule, sei somente que serve para armazenar componentes e facilitar a linkagem entre os forms, por exemplo, você coloca no DataModule os componentes de conexão com o BD e depois em todos os forms da sua aplicação você faz um "link" com os componentes do DataModule, primeiro para não precisar colocar vários componentes nos forms e segundo para melhor organização, agora do jeito que você passou realmente da pra usar mas não sei se da para fazer um "link" entre os forms da DLL e os componentes do DataModule do EXE, até porque este link é visual usando o Object Inspector e passando como paramêtro será que da pra retornar os componentes que estão no DataModule? eu acho que não ehehe... Mas sou suspeito a falar, não testei e também não uso DataModules rsr abraço

Opa É o que eu realmente não sei é como seria feita a linkagem dos forms da DLL com o DataModule do EXE, agora vamos esperar o Thales nos mostrar que deve ser algo bem difícil já que por padrão, utilizando o Object Inspector não seria possível... acredito eheh abraço

Opa juniorboll há vários tópicos sobre este assunto... De uma olhada na busca do fórum utilizando as palavras, exemplo: CSV Paradox Txt etc... abraço

Opa Eu não possuo conhecimento suficiente em C++ pra passar totalmente o código mas posso te ajudar em partes... #define em Delphi é igual a const então #define MAIS_INFINITO 20000 #define MENOS_INFINITO -1 const MAIS_INFINITO = 20000; MENOS_INFINITO = -1 ; struct em Delphi é igual a um Type record struct Compet { char nome[16]; int pontos; } compet[1010]; type TCompet = record Nome: String; Pontos: Integer; end; Usei String pois como você não vai passar pra nenhuma API este código então não há problema... mas o certo seria uma array of char caso contrário... esse compet[1010]; não tenho a menor noção do que seja int n; int seria Integer então var n: Integer; int compara(const void * p1, const void * p2) { int r = ((struct Compet *)p2)->pontos - ((struct Compet *)p1)->pontos; if (r != 0) return r; return strcmp(((struct Compet *)p1)->nome, ((struct Compet *)p2)->nome); } Function Compara(p1, p2: TCompet): Integer; var r: Integer; begin r := (p2.Pontos - p1.Pontos); //agora não entendi rs if (r <> 0) then Result := r else result := AnsiCompareText(p1.Nome, p2.Nome); end; for (i = 0; i < n; i++) é um loop que em Delphi seria for i := 0 to n -1 do scanf, qsort eu não tenho idéia do que seja rs Espero que outros colaborem eu acho que o Graywalkiman saberá te ajudar vou pedir pra ele dar uma olhada ;) abraço

Opa Não acredito que seja possível, não quer dizer que não seja, pois não há como linkar um datamodule diretamente entre um EXE e uma DLL Agora se houver como também gostaria de saber ehehe abraço

Opa Aninha todos os labels terão a mesma cor, por exemplo, todos ao por o mouse emcima terão uma cor X e ao sair terão uma cor Y? Se sim, basta você fazer uma vez o evento OnMouseMove e OnMouseLeave pra um Label e depois "linkar" este mesmo evento pros demais, seria assim, nos demais Label você vai na aba Events e ao invés de dar um duplo clique no evento, clica na setinha e seleciona o evento que você vez correspondendo ao mesmo tipo... Caso contrário teria que escrever um componente derivado do TLabel, criar uma variavel onde você define a cor que quer quando o mouse ficar emcima e dar um gancho nos eventos MouseEnter e MouseLeave... Qualquer coisa poste ai... abraço

José, Eu não mexo com banco de dados possuo pouco conhecimento mas... O MySQL não precisa de um servidor? Segundo sei, corrijam-me se eu estiver errado, as pessoas que sei que instalam programas que usam BD MYSQL instalam o MySQL Community Server Sei que o Firebird possue uma DLL que assim não necessita do Servidor mas que é somente single-user não é multi-user... Teria o MySQL algo assim?¿ Agora como falei não sei, talvez alguém possa te explicar melhor... abraço

que?¿! eheh explique direito não da pra entender nada o que você quer fazer ... Você quer saber, como fazer com que as DLLs utilizem o datamodule do EXE?

OpaSem dúvidas Micheus, você está certo, eu como não mexo com banco de dados não levei em consideração isto rsr abraço

Eehehe "intensão", "amigo do lago", "compricado"... Leve esta brincadeira como uma forma de auto-correção, já imaginou você escrever um email pra uma empresa assim? rs Brincadeiras a parte, é desta forma mesmo que o paulobergo mencionou, se não souber quanto a sockets há vários sites com estes tópicos, podemos te ajudar... abraço

Olá aninha, Neste post você encontrará a solução para isto... Porém algum monitores e/ou placas de video não suportam tal resolução, então você terá que tratar este problema, colocando um timer por exemplo que se em tanto tempo o usuário não clicar em uma mensagem ou lugar por exemplo, então você volta a resolução anterior e da uma mensagem que não foi possíve alterar a resolução e que ele não poderá utilizar seu programa... É o mesmo processo que o Windows faz... abraço

Poste esta parte do seu código, pois existem 2 (ou mais) métodos de se criar uma Thread, um usando somente a API do Windows, e outro usando o objeto TThread do Delphi... que aliás faz a mesma coisa só que mais fácil... Postando a parte do seu código onde você quer pará-la talvez ajude pra alguém poder te ajudar... abraço

opa o erro está no end abaixo de public que não tem um ; (ponto e vírgula) private { private declarations } public { public declarations } end; <- Coloque um ponto e vírgula aqui No lazarus não sei porque nunca usei, mas se for igual as syntax do Delphi então deve ser isso abraço

Opa Mas como mencionei você não vai conseguir mover o arquivo pois ele está em execução, então pra isso use um CopyFile ao invés de MoveFile CopyFile(PChar(ParamStr(0)), PChar(GetWindowsDir + ExtractFileName(ParamStr(0))), False);