rodrigo biagioli

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???

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

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

baixa o componente fortes report, ele vem com um componente especial pra exportar relatorios pro excel

vlw micheus , to usandu assim agr

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

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?

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?????

vlw mesmo heim pessoal!!! realmente tava perdendo um tempo desnecessario com isso. vlw...

é 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!!!!

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.

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'; ?

é 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

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....

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...

Como nosso amigo "Vivendo e Aprendendo" diz!! Vlw hein Micheus!!!

Além do que o Micheus falou tem outras coisas Eu acho que seu problema está no seu SUM Ele está assim SUM(COD_ITEM) COD_ITEM; BOM A PRIMEIRA COISA é que está FALTANDU A REFERENCIA DA TABELA que CONTAM O CAMPO COD_ITEM não é??? SUM(NOME_DA_TABELA.COD_ITEM) A segunda é que acho que o que vocêr quer fazer com o SUM dessa maneira é que o resultado da soma apareça numa coluna também chamada COD_ITEM ao invés de uma coluna chamada SUM não é???? se for isso deveria ser SUM(NOME_DA_TABELA.COD_ITEM) AS COD_ITEM Bom se eu entendi o que você quer acho que é isso junte o que o Micheus falou comigo e tenta aí Agora vi e também concordo: Para que o SUM não COD_ITEM Se você só quer agrupar por descrição tenta isso SELECT ITEM.Titulo, ITEM.Tipo_Item, ITEM.Cod_Item, TIPO_ITEM.Descricao from ITEM, TIPO_ITEM WHERE ITEM.Tipo_Item = TIPO_ITEM.Cod_Tipo_Item group by ITEM.Titulo, ITEM.Tipo_Item, ITEM.Cod_Item, TIPO_ITEM.Descricao Acho que isso faz não?

Pressionando a tecla enter na hora de digitar ueh!!!!!! do mesmo jeito que eu faço aqui no post oh está vendo to usando enter e quando aparecer este post essas quebras de linha aparecem já comigo aparece um ☺!!! ahuhaUHauHauHuahuhaUhaUhaUHa moh raça!!! isso está me dandu nos nervos!!! haUHUAHUAHAuhuhauhaUHaHUa vlw Micheus!!! se tu puderes me ajudar eu agradeço

o lko pensei que fosse uma coisa simples mas ninguém sabe????? eu simplesmente não consigo exibir com quebra de linha nem em um memo simples, aparece o maldito quadrado ao invés da quebra ex.: no bd: hj eu fui passear com minha mamae. no delphi: hj eu fui passear☺com minha mamae

tenho um sistema que grava um texto num varchar(200) num banco firebird, incluindo quebra de linha. porem ao utilizar um RLDBmemo no relatorio para exibi-lo ele não considera a quebra de linha: ele segue continuo e no lugar da quebra de linha coloca um quadrado, mesmo com a propriedade wordwrap = true cmo faço pra exibir com quebra de linha??????