Jump to content
Fórum Script Brasil

rodrigo biagioli

Membros
  • Posts

    20
  • Joined

  • Last visited

About rodrigo biagioli

rodrigo biagioli's Achievements

0

Reputation

  1. estou com o seguinte problema tenho uma aplicação VCL que executa um programa externo DOS usando WINEXEC, ou o SHELLEXECUTE; tenho também outra aplicação parecida com a tal porem em CLX e preciso executar o mesmo programa em DOS, mas não posso usar a biblioteca WINDOWS. não acho nenhuma função que faça tal serviço no CLX; alguém pode me ajudar???
  2. to com o seguinte caso preciso gerar um arquivo xml para ser validado posteriormente por um arquivo xsd mas para essa validação poder ocorrer o xml gerado precisa ser do padrão contido no XSD alguém sabe como fazer isso? :D
  3. to precisando saber qual o valor da tecla delete pra mim poder verificar quando ela for pressionada no delphi tipo quando eu quero saber se a tecla pressionada é enter eu coloco if key = #13 then... entenderam preciso saber qual é o valor do delete
  4. baixa o componente fortes report, ele vem com um componente especial pra exportar relatorios pro excel
  5. segue o s eventos procedure TFORM.FormKeyPress(Sender: TObject; var Key: Char); begin IF(KEY = #13)THEN BEGIN IF MUDA_FOCO <> FALSE THEN BEGIN KEY := #0; PERFORM(WM_NEXTDLGCTL,0,0); END; END; end; procedure TFORM.MEMOEnter(Sender: TObject); begin MUDA_FOCO := FALSE; end; procedure TFORM.MEMOExit(Sender: TObject); begin MUDA_FOCO := TRUE; end; QQER DUVIDA SOBRE O CODIGO PODE PERGUNTAR
  6. ow já pedi desculpa , não foi minha intenção de zuar!!!! quanto ao " Esse negócio de trocar TAB por ENTER, só mesmo para agradar usuários DOS. Em qualquer outro program Windows (que não seja o seu) o usuário terá que utilizar TAB. " eu to ligadu, mas sabe cmo é não é?, chefe mandou, tem que fazer. rsrsrsrsrsrsrsrsrsrsrsrsr mas tem algum jeito de eu continuar com esse tratamento e não perder o #13??? mas entaum porque aparece o ☺,? e porque quando eu copio o texto que contem esse ☺ e colo no bloco de notas ele aparece com quebra?
  7. exatamente!!!!! no sistema que to desenvolvendo acontece o seguinte: quando o usuario esta em um edit comun e ele perta o enter o focus deve mudar para o proximo componente (mesmo função do TAB). quando entra em um memo, o Enter volta a funcionar cmo quebra de linha, e ao sair do memo, volta para a função de tab. mas entaum isso influencia?????
  8. vlw mesmo heim pessoal!!! realmente tava perdendo um tempo desnecessario com isso. vlw...
  9. é assim mesmo o return (função := valor) eu tava fazendo mais ou menos igual á sua funcao mas to uzandu um for qtd_zeros := max - length(s); for i := 1 to qtd_zeros do s := '0'+s; mas achei que tivesse alguma outra função pois achei mta ganbiarra esse código; mas beleza vlw kiko!!!! é assim mesmo o return (função := valor) eu tava fazendo mais ou menos igual á sua funcao mas to uzandu um for qtd_zeros := max - length(s); for i := 1 to qtd_zeros do s := '0'+s; mas achei que tivesse alguma outra função pois achei mta ganbiarra esse código; mas beleza vlw kiko!!!!
  10. meu problema é que isso está acontecendo com o proprio componente de memo do delphi. eu digito algo no memo e gravo no BD, dai quando mando ele exibir os dados no mesmo memo ele não coloca quebra de linha: aparece o maldito ☺. sera que isso só acontece comigo? obs: o memo a que me refiro agr não é do relatorio, é o componente do delphi mesmo. acontece que fui fazer o relatorio e descobri que isso acontecia no memo do delphi também.
  11. ateh daria certo isso ai. mas meu problema é que nem sempre sei a qtde de zeros que quero colocar. entende? pode ser que uma hora digite apenas 2 digitos e precise completar com 3, outra hora pode ser que tenha digitado 4 e falte apenas um para completar. obs: essa função concat faz a mesma coisa que isso s := 'ABC'+'DEF'; ?
  12. é o seguinte:: quando temos um codigo em numero e queremos que o mesmo tenha sempre 5 digitos podemos fazer da seguinte forma: formatfloat('00000',codigo); bom, não sei se existe um jeito melhor mas sempre faço assim. o problema é que preciso fazer algo parecido só que num codigo que contem LETRAS. consegui fazendu um for que concatenado '0' nele ateh preencher todos os 5 digitos, mas me achei um ignorante ao apelar para tal codigo grotesco; alguém pode me dizer se tem um jeito ou só na base da "programação orientada a gambiarras"? ah!!!!!!!!!!!!! e foi mal pelo "FROMATFLOAT" do titulo
  13. foi mal dinovo!!! da proxima vez só vou usar caixa alta quando tiver gritandu entaum... bom mas caixa alta ou não, eu ainda não consegui fazer o delphi exibir a porcaria da quebra da linha!!! pensei que fosse o firebird que não armazenasse a quebra mas, quando tentei editar no proprio firebird o registro, ele apareceu com qubra de linha!!! entaum concluo que o problema é no delphi mesmo , na hora de mostrar os dados ele não reconhece cmo quebra de linha!!!! rsrsrsrs ateh copiei o ☺ que aparece no delphi e colei no bloco de notas o que aconteceu????? uma quebra de linha!!!!!! o bloco de notas está mais evoluido que meu delphi heim....
  14. ahuHAUhaUHaUHauhUHa FOI MAUS !!! não FOI ESSA MINHA INTENÇÃO não!!!!!! é que quando TO PROGRAMANDU só USO CAIXA ALTA então tenho MANIA DE ESCREVER só ASSIM!!!! REALMENTE não FOI MINHA INTENÇÃO!!! ME DESCULPE SE INTENDEU ASSIM...
×
×
  • Create New...