Re: [delphi-br] ativar form em qlq resolucao
Eu já fiz utilizando o método ScaleBy. VC controi seu form para uma determinada resolução, por exemplo (800x600) e depois aplica essa taxa (4/3) nesta função, usando Screen.Width e/ou Screen.Height. Não me lembro direito, mas dá uma consultada no help. []'s, Nielsen Em 05/12/05, ..:: Rodrigo (-_-) Machado ::..[EMAIL PROTECTED] escreveu: vc deve mudar o tamanho dos componentes e das fontes para ajustar ao Form.. é bem complicado..!! Pelo menos eu nao conheço outra forma de fazer.. Saudaçoes 2005/12/5, Auriston Lopes [EMAIL PROTECTED]: como faço para que o form assume o tamanho do video independente da resolucao. sds Auriston *:-.,_,.-:*'``'*:-.,_,.-:*:-.,_,.-:*'``'*:-.,_,.-: Rodrigo Machado [EMAIL PROTECTED] msn: [EMAIL PROTECTED] Cel: +595 (0983) 640 899 Linux User #338262 Lat S25º49'20.11' - Lon W55º07'12.05'' *:-.,_,.-:*'``'*:-.,_,.-:*:-.,_,.-:*'``'*:-.,_,.-: -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [mais ou menos OFF-TOPIC] - Projeto DbDesigner
Veja em http://www.fabforce.net/dbdesigner4/ Nielsen Em 12/08/05, Raniere[EMAIL PROTECTED] escreveu: E aê galera? Beleza com todos?!! Alguém sabe onde foi parar o projeto DbDesigner? Eu entrei no Souceforge.org para verificar alguma atualização e não achei nenhum arquivo... O projeto continua existindo mas sem nada dentro! Para quem não sabe ou lembra, DbDesigner é uma ferramenta livre para modelagem de dados feita em Delphi. Eu tenho as versões para Windows e Linux mas não os fontes... Eu preciso fazer uma alteração nele e por isso, preciso dos fontes... Se alguém souber em que pé está o projeto e se tiver os fontes, peço que fale comigo... Muito obrigado a todos! Fiquem com Cristo! Raniere -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] JvOpenDialog?
Eneias, Vc pode usar o OpenPictureDialog padrão do Delphi (no meu caso, D7), mas não esqueça de incluir a unit jpeg na cláusula uses... Mesmo que vc use jvOpenDialog vc vai precisar incluir jpeg para poder usar LoadFromFile de algum TPicture. Lembre-se que essas caixas de diálogo não abrem o arquivo, apenas selecionam o mesmo para vc poder abrir, devolvendo o nome completo com path na propriedade FileName. Espero ter ajudado. Abraços, Nielsen Em 24/05/05, Eneias Sousa Carvalho[EMAIL PROTECTED] escreveu: gostaria de gravar fotos no banco de dados, só que as fotos de preferencia em formato *.jpg, já que o OpenDialog default do Delphi não faz isso, eu uso o JvOpenDialog, só que está errado, ele não está conseguindo abrir imgs *.jpg, quando pego uma img *.jps o sistema informa que não é possivel abrir a mesma, de que forma faço para que o mesmo abra *.jpg e tb redimensione a imagem de acordo com o tamonho do componente, por exemplo o DBImage, tambem gostaria de saber como faço para limpar a imagem do campo quando a pessoa não desejar mais a foto. Eneias Carvalho. - Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: Fw: [delphi-br] Toolbar
Seria mais fácil vc acessar os métodos do ImageList, em vez de alterar o comportamento do ToolBar e dos ToolButtons. Dê uma olhada nos fontes da Toolbar para entender o comportamento dos mesmos. Senão quiser fazer isso, sugiro que utilize conforme email anterior. Nielsen Em 17/04/05, delphibydelphi[EMAIL PROTECTED] escreveu: Obrigado, mas continuando, isso quer dizer que eu teria que acessar os métodos protegido da classe para poder realizar essa operação ? - Original Message - From: Nielsen Cassiano Simões To: delphi-br@yahoogrupos.com.br Sent: Sunday, April 17, 2005 8:20 AM Subject: Re: Fw: [delphi-br] Toolbar Um ToolButton não trabalha diretamente com imagens. Ele só trabalha com o índice da imagem associada na ToolBar. Dessa forma, vc não vai poder utilizar um ToolButton com imagem diretamente sem usar um TImageList. Observe que seu TImageList pode sim adicionar imagens em tempo de execução (por código). Nielsen Em 16/04/05, delphibydelphi[EMAIL PROTECTED] escreveu: Obrigado pela atenção, mas aproveitando o a questão, vejam que isso nos leva as vezes enviar o mesmo e-mail para várias listas (prática condenada pelas regras da lista), pois já fiz várias perguntas, ao ver, para a maioria dos integrantes são simples, mas em nenhuma obtive resposta. Claro que já tentei resolver, procurei no help e pela internet, não conseguindo, resolvi recorrer a lista e por incrível que pareça, de todas perguntas que fiz abaixo obtive a 1ª resposta. Em tempo, digo que ainda aguardo sugestões para minhas duvidas - Original Message - From: ArbSis To: delphi-br@yahoogrupos.com.br Sent: Saturday, April 16, 2005 6:45 PM Subject: Re: Fw: [delphi-br] Toolbar o seu email esta sendo visto tranquilamente delphibydelphi escreveu: Digam-me, vcs vêm meus emails ou não, pois já postei outras duvidas e não obtive nenhuma resposta, portanto gostaria de saber se realmente meus emails estão sendo postados na listas. Fico bastante agradecido, e mais ainda se tiver a resposta para a pergunta do 1º email. - Original Message - From: delphibydelphi To: delphi-br@yahoogrupos.com.br Sent: Friday, April 15, 2005 3:45 AM Subject: [delphi-br] Toolbar Como adicionar imagens aos buttons do TToobar através de código, ou seja sem usar o TImagelist ? -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: Fw: [delphi-br] Toolbar
Um ToolButton não trabalha diretamente com imagens. Ele só trabalha com o índice da imagem associada na ToolBar. Dessa forma, vc não vai poder utilizar um ToolButton com imagem diretamente sem usar um TImageList. Observe que seu TImageList pode sim adicionar imagens em tempo de execução (por código). Nielsen Em 16/04/05, delphibydelphi[EMAIL PROTECTED] escreveu: Obrigado pela atenção, mas aproveitando o a questão, vejam que isso nos leva as vezes enviar o mesmo e-mail para várias listas (prática condenada pelas regras da lista), pois já fiz várias perguntas, ao ver, para a maioria dos integrantes são simples, mas em nenhuma obtive resposta. Claro que já tentei resolver, procurei no help e pela internet, não conseguindo, resolvi recorrer a lista e por incrível que pareça, de todas perguntas que fiz abaixo obtive a 1ª resposta. Em tempo, digo que ainda aguardo sugestões para minhas duvidas - Original Message - From: ArbSis To: delphi-br@yahoogrupos.com.br Sent: Saturday, April 16, 2005 6:45 PM Subject: Re: Fw: [delphi-br] Toolbar o seu email esta sendo visto tranquilamente delphibydelphi escreveu: Digam-me, vcs vêm meus emails ou não, pois já postei outras duvidas e não obtive nenhuma resposta, portanto gostaria de saber se realmente meus emails estão sendo postados na listas. Fico bastante agradecido, e mais ainda se tiver a resposta para a pergunta do 1º email. - Original Message - From: delphibydelphi To: delphi-br@yahoogrupos.com.br Sent: Friday, April 15, 2005 3:45 AM Subject: [delphi-br] Toolbar Como adicionar imagens aos buttons do TToobar através de código, ou seja sem usar o TImagelist ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] TList
Caro Romario, Esse help sobre Free não é particularmente sobre o método Free de TList, e sim da classe TObject. Se você observar, é um método público derivado de TObject para todos os seus decendentes. O help nos alerta para, na criação de novos objetos, não chame Destroy, ou destrutor de sua classe diretamente. Crie um método Free, desaloque as memórias que você alocou que não tem proprietário (como as que você criou para cada ponteiro do TList), e só assim invoque inherited Free, i.e., chame o método Free da classe pai. Em outras palavras, o Free da classe Pai, herdado pelo seu componente, não pode destruir o que você criou sem referêcia de objetos. Se você está utilizando uma instância do objeto TList, sua lista não é responsável pelas referências de memórias criadas por você. Um exemplo: eu utilizo TList como lista de inteiros. Se, ao chamar Free, ele fosse desalocar o conteúdo de cada Item, eu ia obter Access Violation porque nenhum item é um apontador de memória, mas é diferente de nil. E isso não acontece. O que você coloca no TList não é de responsabilidade dele, e sim sua. Implemente um procedimento para liberar tudo, como: procedure TForm1.LiberaLista(Lista: TList); begin if (Lista nil) then begin while Lista.Count 0 do begin if (Lista.Items[0] nil) Then // Chame Free se for lista de objetos // ou Dispose para memória alocada com New Lista.Delete(0); end; end; end; Nielsen Em 15/04/05, Romario (Listas)[EMAIL PROTECTED] escreveu: No help está escrito o seguinte: - TList.Free; Use Free para destruir um objeto. Free chama automaticamente o destructor se o objeto referenciado não for nil. Qualquer objeto instanciado em runtime que não tem um proprietário deve ser destruído pelo Free de modo que possa ser desfeito corretamente e sua memória liberada. Ao contrário do Destroy, Free é bem sucedido mesmo que o objeto seja nil; assim se o objeto nunca for inicializado, Free não resultará em um erro. - TList.Destroy; Não chame Destroy diretamente. Em seu lugar, chame Free. Free verifica se a referência de TList não é nil, e somente então efetua a chamada ao Destroy. Destroy libera a memória usada para armazenar a lista de itens. Nota: Destroy não libera a memória apontada pelos elementos da lista. Sds, Romario Eduardo E. J. Menoncello escreveu: Não libera não, aliás, o TList só guarda ponteiros, vc pode guardar qq coisa lá, como uma String ou um numero qualquer. Pra liberar, faça um for liberando um por um... []'s Eduardo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Enviada em: sexta-feira, 15 de abril de 2005 14:50 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] TList Quando crio uma TList com objetos e depois a libero com Free, destruo todos os objetos nela contidos? Como isto acontece? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Decimal diferenca valores Banco
Mude o campo para Numeric(15,4), acho que isso já vai solucionar seu problema pois, conforme seu exemplo, VITEM seria 13,, o que daria o resultado 199,9995, ficando fácil o arredondamento. Nielsen On Wed, 23 Feb 2005 17:28:07 -0300, giuvany [EMAIL PROTECTED] wrote: Pessoal Seguinte estou com problema na formatacao e inclusao de valres no banco de dados, Bom no meu Banco de Dados tenho um campo VITEM NUMBER(15,2) E no meu programa o usuário vai digitar um valor total e eu terei que dividir este Valor por uma quantidade X e colocar este valor dividido no campo da Tabela VITEM Bom ae faço assim var c:string; b,valor_sub,a:double; begin valor_sub:=(StrToFloat(edit3.text) / StrToFloat(edit2.text)); valor_total dividido pela quantidade a:=StrToFloat(edit3.text)); b:=StrtoFloat(edit4.text); b:=b* dm_principal.Qry_Prestador_ambquantidade_consulta.value; --- refazer calculo para verificar showmessage('valor b'+floattostr(b)); -- coloquei só vizualizar c:=floattostr(a-b); --- só par aver a diferenca showmessage('diferenca c'+(c)); -- coloquei só vizualizar mostra a diferenca então o que acontece Quando vou colocar no Banco de dados estas informacoe elas entram com diferenca Vamos supor Valor Total =200 Quantidade=15 VITEM= 13,33 Na inserção no Banco fica 13,33 Mas na Soma no Banco ae Fica 199,95 O que me da 0,05 diferenca de alguns centavos não chegando a 200,00 Alguém sabe onde estou errando? Ou se neste caso vou ter que incrementar um VITEM com a Diferenca? Desde já agradeco [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] SQL muito complexa, unir 2 select
Você pode fazer isso com UNION (já que os campos retornados são os mesmos) da seguinte forma: Primeira Consulta UNION Segunda Consulta Nielsen On Fri, 28 Jan 2005 10:39:18 -0200, Hélder Rodrigues [EMAIL PROTECTED] wrote: Bom dia amigos, Estou precisando unir duas consultas SQL ... (a base de dados utilizada tabelas Paradox) e não sei qual cláusula usar (não tenho muito experiência no assunto ...) devo usar UNION ou JOIN ??? A 1ª consulta é essa: -- SELECT Cq_dd.CodCQ_MOEDA , Cq_dd.CodCQ_CLASS , (Cq_insum.Descricao) as Insumo, (Cq_fatpl.Periodo) as Periodo, (Cq_Ativ.NomeAtividade), (Cq_Ativ.IndiceOutLine), (Cq_Ativ.IndicePaterno), (sum(Cq_fatpl.QuantidadeNaoAcumulada * Cq_dd.QuantInsumo * Cq_dd.CustoUnitario)) as Custo FROM Cq_fatpl.DB Cq_fatpl , Cq_dd.DB Cq_dd , Cq_Ativ.DB Cq_Ativ, Cq_insum.DB Cq_insum WHERE (Cq_fatpl.CodCQ_ATIV = Cq_dd.CodCQ_ATIV) AND (Cq_fatpl.CodCQ_ATIV = Cq_Ativ.CodCQ_ATIV) AND (Cq_dd.CodCQ_INSUM = Cq_insum.CodCQ_INSUM) AND ( (Cq_fatpl.Periodo = '10') AND (Cq_dd.CodCQ_CLASS = '7') ) GROUP BY (Cq_Ativ.NomeAtividade), (Cq_Ativ.IndiceOutLine), (Cq_Ativ.IndicePaterno), (Cq_insum.Descricao) , Cq_dd.CodCQ_CLASS , Cq_dd.CodCQ_MOEDA , (Cq_fatpl.Periodo) ORDER BY Cq_Ativ.IndiceOutLine, Cq_Ativ.IndicePaterno -- ... e ela retorna 140 registros. A 2ª consulta é essa: -- SELECT Cq_dd.CodCQ_MOEDA , Cq_dd.CodCQ_CLASS , (Cq_insum.Descricao) as Insumo, (Cq_Ativ.NomeAtividade), (Cq_Ativ.IndiceOutLine), (Cq_Ativ.IndicePaterno), (sum(Cq_fatpl.QuantidadeNaoAcumulada * Cq_dd.QuantInsumo * Cq_dd.CustoUnitario)) as CustoAte FROM Cq_fatpl.DB Cq_fatpl , Cq_dd.DB Cq_dd , Cq_Ativ.DB Cq_Ativ, Cq_insum.DB Cq_insum WHERE (Cq_fatpl.CodCQ_ATIV = Cq_dd.CodCQ_ATIV) AND (Cq_fatpl.CodCQ_ATIV = Cq_Ativ.CodCQ_ATIV) AND (Cq_dd.CodCQ_INSUM = Cq_insum.CodCQ_INSUM) AND ( (Cq_fatpl.Periodo = '10') AND (Cq_dd.CodCQ_CLASS = '7') ) GROUP BY (Cq_Ativ.NomeAtividade), (Cq_Ativ.IndiceOutLine), (Cq_Ativ.IndicePaterno), (Cq_insum.Descricao) , Cq_dd.CodCQ_CLASS , Cq_dd.CodCQ_MOEDA ORDER BY Cq_Ativ.IndiceOutLine, Cq_Ativ.IndicePaterno -- ... e ela retorna 157 registros. * A diferença das duas é que a 1ª pega somente os registros do período 10 e a 2ª pega todos os registros até o período 10 incluindo o período 10 ... Tem como unir essas duas consultas ? Alguém pode me dar uma dica ? Desde já muito obrigado. Atenciosamente, Hélder -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] SQL muito complexa, unir 2 select
Então faça o seguinte: Se a segunda consulta não tem o campo período, então crie, na mesma posição na segunda consulta, uma expressão do tipo 0 AS Periodo, para que os campos possão bater. O importante é que o mesmo número de campos esteja presente nas duas consultas, e os campos de cada consulta sejam equivalentes (do mesmo tipo). Aí seu UNION vai funcionar. Se existir mais algum campo em qualquer uma das consultas que não tenha na outra, faça da mesma forma, até que as duas tenham estruturas equivalentes. Nielsen On Fri, 28 Jan 2005 11:46:46 -0200, Hélder Rodrigues [EMAIL PROTECTED] wrote: Oi Nielsen ... obrigado por responder ... Mas os campos retornados não são os mesmos ... na segunda pesquisa não tem o campo período ... pois eu quero saber o total geral (where periodo = 10) independente do total no período 1,2,3 ... etc ... Tem como fazer isso ? Obrigado. Att. Hélder -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ajuda em Procedure
O negrito não apareceu pra mim... Tente fazer o seguinte: procedure ShowForm(Sender: TObject; v_NomeForm : String); var v_ClasseForm: String; begin v_ClasseForm := 'T'+ v_NomeForm; if ((Sender as TForm) = NIL) then begin if DM_FDM2.Q_Permissoes.Locate('DSC_ID', v_NomeForm,[loCaseInsensitive]) then begin Application.CreateForm(GetClass(v_ClasseForm), TForm(Sender)); TForm(Sender).ShowModal; end else begin MessageDlg('Usuário Sem Acesso A Esse Módulo!',mtInformation,[mbOk],0); end; end; Espero que ajude. Nielsen [EMAIL PROTECTED] On Thu, 2 Dec 2004 10:27:34 -0200, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote: Oi Pessoal, estou tentando fazer uma Procedure que abra os fomulários (assim em cada botão eu só coloco a chamada pra Procedure) mas, não está dando certo...o erro aparece nas duas linhas em negrito Alguém pode dar uma ajudinhao código que eu fiz foi esse: Uso Delphi 5... procedure ShowForm(Sender: TObject; v_NomeForm : String); var v_ClasseForm: String; begin v_ClasseForm := 'T'+ v_NomeForm; if TForm(Sender) = NIL then begin if DM_FDM2.Q_Permissoes.Locate('DSC_ID', v_NomeForm,[loCaseInsensitive]) then begin Application.CreateForm(TFormClass(Sender), TForm(Sender)); TForm(Sender).ShowModal; end else begin MessageDlg('Usuário Sem Acesso A Esse Módulo!',mtInformation,[mbOk],0); end; end; Richard Wagner [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 171647537 ...E se a música parar, só restará o som da chuva, toda a esperança e glória, todo o sacrifício em vão. E se o amor remanescer, mesmo tudo estando perdido, nós pagaremos o preço e não contaremos o custo... Neil Peart -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ajuda em Procedure
Eu estava sem o Delphi, agora já testei e deu certo. O código abaixo tem algumas alterações que funcionárão. A princípio, percebi que vc tem que registrar (o que pode ser feito em uma única linha, todas as classes que vc vai utilizar antes de chamar GetClass. Eis o código: v_ClasseForm := 'T'+ v_NomeForm; if ((Sender as TForm) = NIL) then begin if True then begin RegisterClasses([TForm2]); Classe := GetClass(v_ClasseForm); Application.CreateForm(TComponentClass(Classe), TForm(Sender)); TForm(Sender).ShowModal; end else begin MessageDlg('Usuário Sem Acesso A Esse Módulo!',mtInformation,[mbOk],0); end; end; Onde TForm2 é apenas um exemplo que testei pra ver se funcionava. O array pode conter todas as classes que vc precisa. E se chamar 2 vezes não dá pau. Nielsen On Thu, 2 Dec 2004 14:34:40 -0200, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote: Nielsen, tentei da forma que vc me mandou e o erro aparece nas seguintes linhas: Application.CreateForm(TFormClass(Sender), TForm(Sender)); TForm(Sender).ShowModal; O erro é esse: EAccessViolation with message 'Acess violation at adress 004530D0 in module 'MExpress.exe'. Read of adress FFF4' Tentei usar o GetClass como vc sugeriu e apareceu a seguinte mensagem: Incompatible Types 'TComponentClass' an 'TPersistentClass' Richard Nielsen Cassiano Para: [EMAIL PROTECTED] Simões cc: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Ajuda em Procedure .com 02/12/2004 13:49 Favor responder a delphi-br O negrito não apareceu pra mim... Tente fazer o seguinte: procedure ShowForm(Sender: TObject; v_NomeForm : String); var v_ClasseForm: String; begin v_ClasseForm := 'T'+ v_NomeForm; if ((Sender as TForm) = NIL) then begin if DM_FDM2.Q_Permissoes.Locate('DSC_ID', v_NomeForm,[loCaseInsensitive]) then begin Application.CreateForm(GetClass(v_ClasseForm), TForm(Sender)); TForm(Sender).ShowModal; end else begin MessageDlg('Usuário Sem Acesso A Esse Módulo!',mtInformation,[mbOk],0); end; end; Espero que ajude. Nielsen [EMAIL PROTECTED] On Thu, 2 Dec 2004 10:27:34 -0200, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote: Oi Pessoal, estou tentando fazer uma Procedure que abra os fomulários (assim em cada botão eu só coloco a chamada pra Procedure) mas, não está dando certo...o erro aparece nas duas linhas em negrito Alguém pode dar uma ajudinhao código que eu fiz foi esse: Uso Delphi 5... procedure ShowForm(Sender: TObject; v_NomeForm : String); var v_ClasseForm: String; begin v_ClasseForm := 'T'+ v_NomeForm; if TForm(Sender) = NIL then begin if DM_FDM2.Q_Permissoes.Locate('DSC_ID', v_NomeForm,[loCaseInsensitive]) then begin Application.CreateForm(TFormClass(Sender), TForm(Sender)); TForm(Sender).ShowModal; end else begin MessageDlg('Usuário Sem Acesso A Esse Módulo!',mtInformation,[mbOk],0); end; end; Richard Wagner [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 171647537 ...E se a música parar, só restará o som da chuva, toda a esperança e glória, todo o sacrifício em vão. E se o amor remanescer, mesmo tudo estando perdido, nós pagaremos o preço e não contaremos o custo... Neil Peart -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] OFF Topic: Window s XP Pro não acessa controlador de dom í nio Windows 2000 server
On Wed, 13 Oct 2004 09:11:57 -0300, Cristina Orthmann [EMAIL PROTECTED] wrote: Caro Nielsen, Somente o meu computador é que não está funcionando corretamente na rede, apesar de poder acessar a internet e ter acesso ao software de gestão da empresa onde o banco de dados fica situado no servidor, não consigo entrar na rede através do explorer, para acessar um computador da rede preciso digitar a senha do administrador da rede (senha do servidor), este problema ocorre quando faço o logon no meu computador como usuária da rede, mas quando faço o logon como administrador do computador, tenho acesso normal a rede. O servidor está configurado da seguinte forma: Nome completo: servidor.serv-hacon Domínio: serv-hacon Propriedades de conexão de rede local - Cliente p/ redes Microsoft - Compartilhamento de arquivos e impressoras - Protocolo Internet (TCP/IP) - Endereço IP: 192.168.0.1 - Máscara de sub-rede: 255.255.255.0 - Gateway padrão: 192.168.0.100 - Servidor DNS preferencial: 192.168.1.1 Avançado DNS - Acrescentar sufixos DNS primário e específicos de cada conexão - Acrescentar sufixos pai do sufixo DNS primário - Registrar os endereços desta conexão no DNS WINS - Ativar exame LMHOSTS - Ativar NetBios sobre TCP/IP Vá no servidor 2000 e configure (ou peça para o administrador configurar) no DNS (ferramentas administrativas\DNS), para o domínio serv-hacon a entrada do host atenas, e coloque o IP 192.168.1.1 nas propriedades do domínio serv-hacon, como endereço de emcaminhadores. O meu computador (XP professional) está configurado da seguinte forma: Nome completo do computador: atenas.serv-hacon Domínio: serv-hacon Protocolo TCP/IP Endereço IP: 192.168.0.14 Máscara de sub-rede: 255.255.255.0 Gateway padrão: 192.168.0.100 Servidor DNS preferencial: 192.168.1.1 Avançado DNS - Acrescentar sufixos DNS primário e específicos de cada conexão - Acrescentar sufixos pai do sufixo DNS primário - Registrar os endereços desta conexão no DNS WINS - Ativar exame LMHOSTS - Ativar NetBios sobre TCP/IP Na sua máquina, coloque o servidor DNS preferencial como 192.168.0.1. Depois, execute o comando no prompt de comando: ipconfig /flushdns Isso deve resolver seu problema. No meu caso, todas as máquinas apresentavam este problema. Quando eu cadastrei as máquinas no DNS do meu servidor, parei de ter esse problema. Nielsen -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] OFF Topic: Window s XP Pro não acessa controlador de domí nio Windows 2000 server
Se o domínio cadastrado no Active Directory for controlado pelo servidor DNS de internet, então você terá que cadastrar novamente todo o mapa de domínio registrado no Active Directory no DNS do win2000 Server. Veja o exemplo: Tenho uma máquina com o Win200 Server com o Active Directory para o domínio NetBios EMPRESA, e DNS empresa.com.br. Meu servidor DNS é outro (ns.empresa.com.br), então eu coloco todo o mapa de domínio cadastrado em ns.empresa.com.br no Win2000 Server, incluindo todas as máquinas da rede, e configuro o domínio ns.empresa.com.br como encaminhador de domínio, para resolver outros domínios. Se não tiver entendido, me passe a configuração de sua rede (nome das máquinas servidoras e IPs (internos, se for o caso) que eu te explico como configurar. Quanto ao suporte da Micro$oft, eles só dão suporte gratuito para instalação, eu já precisei e não pude contar com a ajuda deles. Depois do Win2000 Server rodando, eles não querem nem saber, só pagando pra ter suporte a configuração. Falo por experiência própria. Nielsen On Fri, 08 Oct 2004 08:33:26 -0300, Cristina Orthmann [EMAIL PROTECTED] wrote: Prezado Nielsen, O servidor de DNS não fica na nossa empresa, utilizamos um servidor do prédio, onde todos os associados que tem acesso a rede de internet do prédio tem acesso. Nielsen Cassiano Simões escreveu: Já tive esse problema, e a única forma de resolver é configurar as máquinas da rede no DNS do servidor de domínio. Tente criar uma entrada para cada máquina (nome do host e IP) no servidor DNS do seu servidor de domínio e veja se o problema acaba. Outra coisa, você tem que colocar como servidor DNS de cada máquina o IP do seu servidor de domínio, senão não resolver. Nielsen On Tue, 5 Oct 2004 15:25:08 -0300, Eduardo Jedliczka [EMAIL PROTECTED] wrote: Utilize do seu suporte técnico mediante a MicroSoft... eles poderão passar as informações corretas para a solução do seu problema. Lembre-se de ter em mãos o Nº serial tanto do servidor quanto do terminal. [s] = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Instalação do Delphi (Como fazer com usuários/programadores)
Entre como administrador, abra o Regedit, vá em HKEY_CURRENT_USER\Software\Borland\Delphi\5.0 e exporte a ramificação selecionada. Aí, coloque o arquivo .reg exportado em algum lugar público e peça para cada usuário dar um duplo clique para fazer o merge desse arquivo no registro de cada um. Isso deve resolver o problema, pelo menos era assim que eu resolvia na empresa onde trabalhava. Nielsen On Mon, 4 Oct 2004 16:05:17 -0300, Rogério [EMAIL PROTECTED] wrote: Percebí uma coisa... Logando com um usuário qq. e instalando por cima, resolve o problema, mas será que isto não causará problemas no Delphi futuramente ? - Original Message - From: Group Delphi [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, October 04, 2004 12:22 PM Subject: Re: [delphi-br] Instalação do Delphi (Como fazer com usuários/programadores) Alguém tem alguma idéia de como resolver este problema ??? Abraços. - Original Message - From: Group Delphi [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, September 30, 2004 6:37 PM Subject: [delphi-br] Instalação do Delphi (Como fazer com usuários/programadores) Instalei o Delphi 5.0 como Administrador no Windows 2000 Professional, com upgrades, Etc... Quando criei os Usuários no Windows, ao abrir o Delphi, estes usuários não visualizam nenhum componente, apenas a aba Standard, com o componente Frames. Como posso fazer para qua meus usuários tenham acesso à instalação FULL do Delphi que fiz como administrador ? (Upgrades, Componentes, RxLib, Etc... ) Como só trabalhava com 98 não tinha estes problemas. Alguém já passou por isso ??? qq. ajuda serve. Abraço. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Replacear strings
Procure por StringReplace() Nielsen On Thu, 30 Sep 2004 10:46:05 -0300, Daniel Bastos [EMAIL PROTECTED] wrote: Atualmnte eu faço na mão. Existe alguma função no delphi que faça isso para mim? -- Daniel A. Bastos -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Usando comando Like
Oi ?, Tente da forma: WHERE (FONE_CLIENTE LIKE 254%) OR (FONE_CLIENTE LIKE 455) Nielsen On Thu, 30 Sep 2004 00:03:17 -, er83pet04 [EMAIL PROTECTED] wrote: Pessoal, Tenho um campo em uma tabela que guarda o telefone de clientes. O telefone é um campo do tipo varchar2 e é guardado da seguinte forma: 254-6395, 254-2478, 455-4859... Como posso montar uma consulta para pesquisar todos os clientes que tem o telefone que comece com 254 ou com 455 ou qualquer outro prefixo que será passado como parâmetro para a consulta, mas se houver algum telefone que no final possua a mesma combinação que no prefixo passado, não pode ser exibido no resultado da query. Ou seja, exibir somente os telefones que comecem com 455. Se houver um cliente com telefone que seja = a 452-2455, ele deverá ser ignorado. SELECT * FROM CLIENTES WHERE FONE_CLIENTE LIKE Consigo fazer isso com o Like ou há outro comando melhor? Obrigada -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Duvida para fazer função
Tente assim: function ExibeDescricao(Alias, Tabela, CampoChave, CampoDescricao, Valor, Tipo: String; Numerico: Boolean): String; var qryAux: TQuery; begin Result := ''; try if Valor '' then begin qryAux := TQuery.Create(nil); qryAux.DataBaseName := Alias; qryAux.Close; qryAux.Sql.Clear; qryAux.Sql.Add('SELECT ' + CampoChave + ',' + CampoDescricao); qryAux.Sql.Add(' FROM ' + Tabela); if Numerico then qryAux.Sql.Add(' WHERE ' + CampoChave + ' like ' + Chr(39) + Valor + Chr(39)) else qryAux.Sql.Add(' WHERE ' + CampoChave + ' = ' + Valor); qryAux.Open; if qryAux.IsEmpty then Messagebox(Application.handle,'Valor não encontrado !','Atenção',MB_OK or MB_ICONWARNING) else Result := qryAux.FieldByName(CampoDescricao).AsString; end; finally qryAux.Free; end; end; Porque na hora da chamada da função você sabe se o campo chave é numérico ou não. Acho que isso resolve seu problema. Nielsen -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Arquivo texto
Use a função FileExists da forma: If FileExists('C:\Arquivo.TXT') then ... Nielsen On Wed, 22 Sep 2004 21:22:47 -, fpsp2000 [EMAIL PROTECTED] wrote: Ola! Leio um arquivo texto, so q antes da leitura preciso verificar se ele existe pra efetuar a leitura, e nao sei como fazer isso. Se alguem puder me ajudar. Agradeco desde ja. Fernanda. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Concatenar variaveis
Vinícius, Acho que esse exemplo resolve seu problema: var t1, t2, t3, t4, teste, outro, variavel3: string; lstVars: TStringList; i: Integer; p: ^String; begin t1 := 't'; t2 := '3'; t3 := '50'; variavel3 := 'Valor da variavel3'; teste := 'variavel'; lstVars := TStringList.Create; lstVars.AddObject('t1', @t1); lstVars.AddObject('t2', @t2); lstVars.AddObject('t3', @t3); lstVars.AddObject('variavel3', @variavel3); lstVars.AddObject('teste', @teste); i := lstVars.IndexOf('t3'); if (i -1) then begin p := Pointer(lstVars.Objects[i]); t4 := p^; end else t4 := ''; i := lstVars.IndexOf(teste + t2); if (i -1) then begin p := Pointer(lstVars.Objects[i]); outro := p^; end else outro := ''; ShowMessage('teste + t2 = ' + Outro + ' e t4 = ' + t4 + ''); lstVars.Free; end; Espero que tenha ajudado. Nielsen On Fri, 17 Sep 2004 18:42:20 -, vinicius_mom [EMAIL PROTECTED] wrote: Acho que vc não entendeu o que eu to querendo.. Vamos seguir o que vc escreveu: valor := teste + outro; O valor da variavel valor vai ser 'variavel3' certo?!?! Pois então, como fazer para pegar o valor da variavel3 mas utilizando o que tenho na variavel valor? Se eu mandar mostrar o conteudo de valor vai me mostrar 'variavel3' mas eu queria que me mostrasse 'Valor da variavel3' Entendeu?!?! Não sei se consegui explicar bem o que eu queria []s Vinicius --- Em [EMAIL PROTECTED], Luciano R. Machado [EMAIL PROTECTED] escreveu valor := teste + outro; Atente para os dois pontos antes do = e o ; no final do comando. -- Luciano Rodrigues Machado Programador - Ribeirão Preto-SP Vinicius Mommensohn wrote: Olá pessoal, To com essa dúvida jah algum tempo e agora to precisando saber pra poder resolver um problema aqui: Vamos supor: var teste, outro, variavel3: string; begin variavel3 := 'Valor da variavel3'; teste := 'variavel'; outro := '3'; end; Tem como eu juntar essas duas para pegar o valor da variavel 3??? Coisa do tipo ShowMessage(teste + outro) que me iria retornar uma caixa com os dizeres 'Valor da variavel3'? No php seria coisa do tipo $valor = $teste . $outro echo $$valor; Um abraço a todos, Vinicius -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Try Except Application.Terminate
Valdemir, Tente dessa forma: try ExecSQL; except on E:Exception do begin ShowMessage(E.Message); Application.Terminate; end; end; Nielsen On Sat, 18 Sep 2004 10:55:55 -0300, Valdemir - PROSIS [EMAIL PROTECTED] wrote: Pessoal tenho a seguinte estrutura try ExecSQL; except Application.Terminate; end; Funciona... mas gostaria de mostrar a mensagem de erro para o usuário poder ter ideia do problema não gostaria de colocar uma mensagem generia, então fiz o seguinte try ExecSQL; except Raise; Application.Terminate; end; e também try ExecSQL; except Application.Terminate; Raise; end; ... em ambos os casos, aparece a mensagem para o usuário do jeito que eu queria... mas a aplicaçào não é fechada. tentei fazer assim try ExecSQL; except try Raise; finally Application.Terminate; end end; mas ai da erro na hora de compilar... alguem poderia me ajudar? Valdemir Jacon Sanches [EMAIL PROTECTED] - [EMAIL PROTECTED] PROSIS Informática Nº ICQ : 43791272 MSN: : [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Leitura de arquivo texto
Seria mais fácil você definir o padrão CVS, onde os campos são separados por , ou por ;, ou utilizar TAB como separador de campos, senão você vai se perder. Definido isso, você pode utilizar a função Pos(Separador, Linha) e Copy(Linha, Posição_Inicial, Tamanho) para remover campo a campo. Nielsen On Mon, 13 Sep 2004 11:14:22 -0300, Eduardo Silva ® [EMAIL PROTECTED] wrote: Galera, tenho a seguinte situação: Preciso ler um arquivo texto e jogar cada campo em um local específico (edits por exemplo). O problema é que esse arquivo texto terá formatações diferentes e não terá uma forma padrão, poois o arquivo será enviado para mim de diversos locais (pessoas) diferentes e cada um terá uma formatação diferente mas os campos iguais, por exemplo: Um arquivo pode vir assim: Eduardo Silva Rua Xv de novembro, 1256Centro 18680-000 Lençóis Pasulita Marcio José dos SantosAv Brasil, n.º 852 Vila Capoani 18680-000 Lençóis Paulista Renata CeribeliRua das Gaivotas, 963 Jardim Cidade Nova 18680-000 Lençóis Paulista Outro pode vir assim: _ __ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _ * [EMAIL PROTECTED] _ | _) )_ (((\ \)|_/ )__( \_|(/ /))) ( \_/ /\ \_/ ) \ / \ / \_/\_/ / /\ \ --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.749 / Virus Database: 501 - Release Date: 01/09/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html