Ir para conteúdo
Fórum Script Brasil

Corposemalma

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    1.393

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Corposemalma

  1. Problema Indexfieldnames

    em Delphi, Kylix

    Postado

    Eu tenho uma tabela em paradox com vários campos. Eu gostaria de saber como devo fazer para ordenar um desses campo na hora de  mostrar um relatorio ou um DBGrid por exemplo. Eu já tinha usado o IndexFieldNames uma vez e tinha funcionado mas agora não quer funcionar mais...

    Como eu disse:

    * Dentro da tabela você vai ter que ter os dois indices já criados (procure uma ferramenta para editar a tabela que você tem, eu não conheço nenhum, porque não trabalho com paradox)

    * em tempo de execução o que você vai fazer é alternar entre os indices, por exemplo:

    Nesse caso, já existem dois campos indexados, um deles o campo nome, com indice com nome de NOM e o outro campo seria o da data, onde o indice esta com nome de Dat

    dm.tabela.IndexfieldNames := 'Nom'
    dm.tabela.IndexfieldNames := 'Data'

    Deve ser só isso, mas mesmo assim recomendo dar uma passada nesses sites e procurar umas apostilas de Paradox, para se aprofundar mais..

    http://www.activedelphi.com.br

    http://www.delphi.eti.br <- ta fora do ar, não sei quando volta : (

  2. Como Extrair Executavel?

    em Delphi, Kylix

    Postado

    você quer fazer o processo inverso da compilacao do Delphi? (hehe seria uma decompilação?)

    Tipo transformar o .exe devolta a um projeto?

    Bem eu já vi algo semelhante, mas ele não conseguia tirar tudo, (somente os códigos nos .dcu)

    Mas não me lembro o nome do programa : (

  3. Usando Units de Proc. e Funções prontas

    em Tutoriais & Dicas - Delphi, Kylix

    Postado

    Vo postar uma dica, para comemorar meu post numero 100

    Outra coisa que eu acho bastante interessante, são as Units com procedimentos e funções prontas...

    Você pode diminuir, e muito a quantidade de código de um programa, criando uma unit com todos os procedimentos e funções das quais repete muito...

    Por Exemplo:

    No caso a Unit aqui é chamada de CSA

    Type
  Tcsa = class(Tobject);
  function CSA_Strtodatecheck(X: string): boolean;
  function CSA_Strtodate(X: string): tdatetime;

implementation

function CSA_Strtodatecheck(X: string): boolean;
begin
  try
    StrToDate(X);
    Result := true;
  except
    messagedlg('A data não é válida', mtError, [mbOK],0);
    Result := false;
  end;
end;

function CSA_Strtodate(X: string): tdatetime;
begin
  if CSA_Strtodatecheck(x) = true then
    Result := strtodate(x)
  else
    abort;
end;
    então quando eu quero transformar uma string para data de um texto de um determinado campo, não preciso digitar todo o código acima novamente, simplesmente adiciono a Unit (aqui no caso CSA) aos Uses do Form que estiver e o seguinte código para transformar a string para data: 
    AlgoQueUseData := CSA_Strtodate(Edit1.text);

    Sem repetição de código e com as mensagens de erro já embutidas

    Muito bom isso biggrin.gif Deu pra notar a diminuição de código? laugh.gif

    Se algum moderador achar que isso aqui não ta certo, pode tirar a mensagem a vontade.. só to querendo dar uma mão pro pessoal wink.gif

  4. Meu Primeiro Software

    em Delphi, Kylix

    Postado

    Arrumei umas coisinhas...

    * não quis mudar a cor não, não achei nenhuma legal...

    * Mas mudei os panels...

    * Fiz a sugestao dos menus, ficou otimo...

    * Removi a combinação ALT F4 em alguns lugares...

    * Adicionado atalho (ESC) para saída de qualquer menu, mais pratico

    * ENTER nos edits seta o foco pro próximo componente

    * Adicionei suporte a arquivos INI(configuracao) e um menuzinho pra mudar algumas opcao

    * Adicionado um Menu para atualizacao na inet(não vai ter muita, mas achei uma ideia legal e fico +- bem implementado biggrin.gif)

    * Coloquei tambem uma figura de fundo e uma opcao pra mudar ela wink.gif

    Nada de mais tb

    A versao "final" aqui: http://logic.vila.bol.com.br/CDC.exe

    Essa versao já tem uma atualizacaozinha de um bug, então vocês ate pode testar ela blink.gif

  5. Criando Registro Vazio Sozinho

    em Delphi, Kylix

    Postado

    UIx cara.. intendi nada.. sad.gif quem manda ser iniciante tongue.gif

    Deixa ver: é +- assim:

    você aperta o editar, chama o form com os dbedits, com o foco em um Maskedit, ao sair do maskedit checa se o codigo existe, se ele existe da a mensagem e retorna pra ele, caso não, da um insert?

    Se o codigo não existe e você quer criar um novo o certo não seria dar um append?

    quanto a mensagem de erro dizendo que a tabela não está em modo de edição ou inclusão, isso só da comigo ao dar um post na tabela, mas não vi isso no seu codigo... Acho o seguinte... marca o codigo pra dar um stop um pouko antes disso e da uma step (F7) pra ver em que linha o erro esta sendo originado

    Foi mal não poder ajudar de verdade aehhehe

  6. Windows98 Vs Windows Me

    em Microsoft Windows

    Postado

    afff,  aqui em casa não vejo muito tempo essa tela azul,

    se você ter um computador razoavel, e instalar difreitinho, fazendo a manutenção, dificilmente vai ter problemas

    ate mais

    Eu vi outro dia... puxei o cabo IDE com o win ligado rolleyes.gif

    Opa cabo errado! laugh.gif

    tongue.gif

    Ei! o que você editou no meu post? Se falei besteira foi malz! blink.gif

    Primeira vez que um moderador edita um post meu unsure.gif

  8. Problema Indexfieldnames

    em Delphi, Kylix

    Postado

    Você já tem criado os indices na tabela para os campos que quer utilizar?

    Pelo meu pequeno conhecimento de banco de dados, os indices já devem estar criados na tabela.. em tempo de execução o maximo que você pode fazer é trocar entre eles (usando os nomes que deu dentro da estrutura da tabela). Ah! e claro: voce ainda pode usar sql pra criar indices em tempo de execução.... rolleyes.gif

  13. Validar Datas

    em Delphi, Kylix

    Postado

    Mole! No onExit do DbEdit:

    Try

      Datetostr(dbedit.text);

    except

      Showmessage('Data não válida!')

    end;

    Explicação:

    Ele tenta transformar o texto de data para string, mas se não for uma data valida ele vai dar erro, então o except segura e mostra a mensagem!

    Se você quiser entender melhor baixa o source do meu programa, lá tem uma Unit chamada CSA. Tem várias checagens já prontas e com mensagens de erro bem pratico... ai ao invés de digitar tudo você somente digita:

    CSA_checaData(dbedit1.text);

    Ele já checa e caso esteja errado da os avisos

    AH! tem também uma Unit com os messagesdlgs traduzidos (MSGDLG)

    Os codigos estao dentro desse zip:

    http://logic.vila.bol.com.br/CDCeFonte.zip

    smile.gif Mas mesmo assim seria legal você dar uma olhada na Unit e fazer a sua propria wink.gif

  15. Pagina Inicial

    em Microsoft Windows

    Postado

    entra em modo de segurança, e faz as remoções..

    em modo de segurança os virus não funcionam.. hehe

    t+

    Por inquanto.. do futuro ninguém sabe tongue.gif

    não deve ser muito dificil fazer um não huh.gif

    é substituir um serviço basico do win pelo virus.. Nada impossivel.... smile.gif

    Mas deve ser bastante dificil pra fazer, pra não ter aparecido nenhum ainda rolleyes.gif

    Mas sei não... Pow já pensou um virus que em modo de segurança tambem funciona? Ai abre uma mensagem bem grande: AHAH!! TE PEGUEI!!!

    Ia ter muito 'tecnico' desesperado por ai hauhauhauahuah laugh.gif

  16. Windows98 Vs Windows Me

    em Microsoft Windows

    Postado

    koe ta zuando ae po !!! rsrs...

    eu tenho um pentium 3 600 e tinha 128 de ram    (abaixo da sua meta ae de 700mhz) sobre o 2000 eu acho rapido, não tenho reclamaçao !!!

    depois eu edito esse post !!! (trab chegando)  rolleyes.gif

    não to zuando ninguém..

    Aquela meta ali é pro XP biggrin.gif

    E tambem é só minha opiniao... vai do cara se ele vai querer instalar o 2000 ou não...

    Mas eu se fosse vc, já tinha testado o Xp ai.. provavelmente vai ficar a mesma coisa que o 2000 (se desativar os recursos gráficos)

  17. Windows98 Vs Windows Me

    em Microsoft Windows

    Postado

    Outro grande problema do Windows ME é o suporte à drivers...

    Mas eu acho o seguinte, se você não tem problemas quanto a travamento etc... não vale a pena trocar

    Mas dependendo da sua maquina (pra cima de 700Mhz e 128Mb memoria) da pra colocar o Windows XP(com todos os recursos gráficos desabilitados), quanto ao 2000 não aconselho não (embora mais leve que XP, o boot e desligamento é muuuiiito demorado), se não tem maquina para rodar o XP, coloque o Win98SE!

    Falowz!

  18. Não Conheço Esse Arquivo

    em Microsoft Windows

    Postado

    Cara, arquivos Vxd são utilizados pelo windows...

    Mas esse ta com o nome bem estranho... parece bem um virus mascarado! Melhor passar um antivirus e anti-trojan na maquina, Caso ainda continue lá,(se tu tiver um pouco de conhecimento de DOS) recomendo mover ele pra outro lugar e ver se o Windows funciona! esse ai ta com o nome bem estranho!

  21. Meu Primeiro Software

    em Delphi, Kylix

    Postado

    Ele edita os Tag de arquivos Mp3... Seriam as informações que aconpanham o arquivo(nome, artista, ano etc etc etc)... você visualiza parte das tags no playlist do winamp(artista e titulo) e pode ate editar... Mas a edicao no winamp é muito massante... Se você selecionar uma Mp3 la na parte de tag, vai ver o que estou falando biggrin.gif

    É realmente a aparencia ta na basica ainda... Vo ver se dou uma garibada nele tongue.gif

    Quanto as sugestoes eu vou fazer e ver como fica! laugh.gif

    valeu mesmo por ter dado uma olhada nele e ter postado a sua opiniao!! biggrin.gif

  22. Me Ajudem Com Pesquiza

    em Delphi, Kylix

    Postado

    O problema que eu tinha (e tive que resolver com o find) era o seguinte:

    O grid tb mudava de source em tempo de execucao e mostrava a query

    então se o usuario movesse o para o segundo registo(o proximo produto) e apertasse o botao editar, ele na verdade ia editar ainda o primeiro registro da tabela (porque o ponteiro não acompanhaca a query)

    então eu fui forçado a fazer o ponteiro da tabela pular para o produto que estava selecionado na query smile.gif

    Nem sei se isso vai acontecer contigo, depende de como e pra que você usa o Grid.. So tou falando do meu prob e que talvez você tv tivesse wink.gif

    Falow!

×
×
  • Criar Novo...