Re: [delphi-br] Sistema de Portaria
lhada no clube delphi. Tem um sistema completo com tudo que vc ta precisando. denilson rezende <[EMAIL PROTECTED]> wrote: Tenho uma missão para cria um sistema de controle de portaria ele vai funcionar da seguinte forma : O visitante chega na portaria se identifica com um documento o sistema vai tira a Foto e manda para o departamento: Duvida: 1) Qual o componete de para pega a imagen ? 2) As Imagem vao para o Banco ou guardo so link ? 3) Na tela do departamento como faco para atualizar o registro vindo da portaria ? Atenciosamente Denilson Rezende __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - Ahhh...imagining that irresistible "new car" smell? Check outnew cars at Yahoo! Autos. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ZeosLib
Pessoal eu desenvolvo com o Delphi 2006 Registrado. Tive problemas no inicio do projeto ao usar o DBexpress com Mysql. Estou usando a ZeosLib atualizada para D2006 gostaria de enviar para o grupo. Se alguem souber como, favor me avisar. Andre Mesquita <[EMAIL PROTECTED]> wrote: Prezados Colegas, Fiz contato com um dos desenvolvedores da ZeosLib e este me enviou um site onde pode-se encontrar o Zeos atualizado. http://zeos.firmos.at/ [ ]'s, Andre Mesquita - Get your own web address for just $1.99/1st yr. We'll help. Yahoo! Small Business. [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] 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] Justifica��o de campos string � direita
Olha o modo mais simples que conheço é alterando a propiedade BIDIMode que existe no componente Edit para bdRightToLeft; Vandinei Santos <[EMAIL PROTECTED]> wrote: Olá pessoal! Já implementei uma função que faz com que a largura de um campo numérico, quando for menor do que o seu tamanho máximo, seja preenchido com brancos à esquerda, ou seja o campo fica justificado à direita, mas gostaria de saber se no Object Pascal (Delphi) existe uma função que justifique campos string à direita. Tentei a função FormatFloat, mas não consegui o efeito desejado. Agradeço a dica. Vandinei A. Santos Programador Object Pascal [As partes desta mensagem que não continham texto foram removidas] - Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+ countries) for 2¢/min or less. [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] 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
[delphi-br] Tradução das caixas de mensagen
Alguem sabe como traduzir as mensagens Yes, No das caixas de mensagens no DELPHI 2006. [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] 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
[delphi-br] Ex. Iinserir um texto dentro de outro Texto no word
Outro dia postei uma mensagem perguntando sobre um exemplo de como inserir um texto dentro de outro texto no word. Não conseguindo resposta fui atraz de alguns exemplos existentes e modifiquei para que funciona-se conforme eu queria . Vai ai um exemplo de como inserir um um texto(Sem limites) dentro de outro Texto no word num lugar exato na formatação que vc bem pre configurar. Espero que ajude atodos da comuni dade. // I := 0; j := Memo_Objeto.GetTextLen DIV 250; k := 0; if j > 0 then begin while true do begin if I > 0 then k := k + 250; Memo_Objeto.SelStart := k; Memo_Objeto.SelLength := 250; if I >= j then begin Doc.Content.Find.Execute(FindText := '[Obj]', ReplaceWith := Memo_Objeto.Seltext); Break; end else I := I + 1; if i <= 1 then begin if Doc.Content.Find.Execute(FindText := '#CAMPO4#', ReplaceWith := Memo_Objeto.Seltext+ '[Obj]') then Continue; end else begin if Doc.Content.Find.Execute(FindText := '[Obj]', ReplaceWith := Memo_Objeto.Seltext+ '[Obj]') then Continue; end; end; end else begin Memo_Objeto.SelectAll; while true do if not Doc.Content.Find.Execute(FindText := '#CAMPO4#', ReplaceWith := Memo_Objeto.Seltext) then Break; end; Marcelo Mauricio Recife, 21 de outubro de 2006 [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] 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]Programação em camadas
Olha a ultima edição da clube delphi ta falando de um projeto feito todo em UML da uma olhanda acho q pode te ajudar ! Marcelo Mauricio Desenvolvedor. - Original Message From: Vinicius Latini <[EMAIL PROTECTED]> To: delphi-br@yahoogrupos.com.br Sent: Saturday, October 21, 2006 1:50:31 PM Subject: [delphi-br]Programação em camadas Alguém aqui já programou em camadas estou tendo dificuldades para encotrar exemplos de programação em camadas Utilizando padrões UML será que alguem tem algum exemplo ??? [As partes desta mensagem que não continham texto foram removidas] [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] 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] Alterar a fonte do MainMenu
Não era isso não! :) Assim terei que mudar a fonte de todos os usuarios isso não é legal. Seria apenas a fonte do menu no programa. Mais de qual quer forma valeu pela dica. Um abraço Rogerio Rogério <[EMAIL PROTECTED]> wrote: Sei... No Painel de controle, vídeo, aparência e altere o tamanho da fonte de menu... (hehehehe, acho que não era isso que queria neh? rsrsrs) Mas não sei se há outra forma, imagino que não há. Abraço, Rogério Ricardo Fernandes Desenvolvimento GS3 Sistemas Tel.:47 3035-6020/Fax:47 3035-6050 - Original Message - From: surfvibration To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 18, 2006 4:45 PM Subject: [delphi-br] Alterar a fonte do MainMenu Alguem sabe dizer como faço para alterar o tamanho da fonte no componente MainMenu. [As partes desta mensagem que não continham texto foram removidas] - How low will we go? Check out Yahoo! Messengers low PC-to-Phone call rates. [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] 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] Texto no word
Oi Andre !
Obrigado pela dica que você envio.
Testei a função replaceInformal e funciono corretamente .
Só que vê mesmo.
Esse texto(O texto que quero alterar no word) tem uma serie de formatações
como palavras em negrito e outros.
Pelo que entendi sua função replaceInformal troca em um texto_Inicial uma
palavra por um texto e retorna o texto_Inicial com a palavra substituida isso
fora do word.
Neste caso você esta sugerindo a inserir o texto_Inicial no word, após a
substituição ?
Se for isto como faço para determina em que lugar do documento(Linha,Coluna)
word
o textoInicial sera inserido. Pois se tenho um cabesalho no documento
formatado gostaria de inserir após o mesmo.
Para inserir um texto( Com quantidade indeterminada de caracteres ) em um
documento word uso a função a baixo mais a mesma inseri sempre no inicio do
documento não consigo determina em q local do documento o texto entre.
MSWord:= CreateOleObject ('Word.Basic'); //cria o objeto
MSWord.AppShow; //mostra o word
MSWord.FileNew; //inicia um novo documento
MSWord.italic; //coloca italico
MSWord.Font('Times New Roman'); //muda a fonte usada
MSWord.FontSize(10); //muda o tamanho da fonte
MSWord.insert(resultado);
Andre quero aqui te agradecer pela ajuda pois não consegui em canto nenhum
uma solução para tal problema.
Valeu mesmo Andre tudo de bom pra vc !.
Andre Mesquita <[EMAIL PROTECTED]> wrote:
De qualquer forma, eu e um colega aqui da empresa acabamos de criar uma
função que talvez possa te ajudar. Não testamos ainda...
function replaceInformal(const textoAntigo, textoNovo, textoCompleto :
WideString) : WideString;
var
p,i : Integer;
textoWord : WideString;
begin
textoWord := textoCompleto;
// Verifica a posição inicial do Texto Antigo dentro do Texto
p := pos(textoAntigo,textoCompleto);
// Se encontrou o texto Antigo
if p > 0 then
begin
// Apaga o texto antigo
for i:=1 to lenght(textoAntigo) do
textoWord[p] := '';
// end for
// Insere o texto novo
Result := copy(textoWord, 0, p) + textoNovo +
copy(textoWord,p,length(textoWord));
end
else
Result := textoWord; // Retorna o Texto Antigo
// end if
end;
- Original Message -
From: "surfvibration"
To:
Sent: Tuesday, October 17, 2006 4:18 PM
Subject: [delphi-br] Texto no word
Oi galera blz !
Sou novo no Grupo espero poder ajudar com o pouco de conhecimento em
delphi que tenho.
Estou com problemas para inserir um texto em um determinado documento
word.(Uso Delphi 2006 Win32)
A bronca é a seguinte: Não consigo inserir um texto(com mais de 256
caracteres ) em uma determinada posição dentro de outro texto pre
fixado no word.
As rotinas que encontrei na net usam :
.Find.Execute(FindText := '#campo2#', ReplaceWith:= NomeDesejado);
Essa rotina só aceita troca de texto ate 256(Tamanho de uma String).
Desde já quero agradecer a todos que poderem responder.
Um abraço a todos !!
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Links do Yahoo! Grupos
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Links do Yahoo! Grupos
-
Talk is cheap. Use Yahoo! Messenger to make PC-to-Phone calls. Great rates
starting at 1¢/min.
[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]
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
Res: [delphi-br] Select * from :Parametro
Olha eu resolveria esta situação criando uma string com os dados solicitados . Ex : var tab_Dessejada,SQL1 : String; begin SQL1 := 'SELECT * FROM '; SQL1 := SQL1 + tab_Dessejada; SQL1 := SQL1 + 'Order by campo_desejado'; Datamodule.Query.sql.Add(Sql1); end; Espero que te ajude. Ricardo Cesar Cardoso <[EMAIL PROTECTED]> wrote: Passar um nome de tabela como parâmetro? Acho que não. Mas se tiver gostaria de saber como... Pode ser uma tremenda brecha de segurança. - Mensagem original De: Anderson Furtilho <[EMAIL PROTECTED]> Para: Delphi-br Enviadas: Quarta-feira, 18 de Outubro de 2006 15:54:48 Assunto: [delphi-br] Select * from :Parametro Olá amigos!!! Tem como fazer isso no FireBird ? Ja vi algo do tipo mas não encontrei em lugar nenhum ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - Do you Yahoo!? Everyone is raving about the all-new Yahoo! Mail. [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] 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] Select * from :Parametro
Olha eu resolveria esta situação criando uma string com os dados solicitados . Ex : var tab_Dessejada,SQL1 : String; begin SQL1 := 'SELECT * FROM '; SQL1 := SQL1 + tab_Dessejada; SQL1 := SQL1 + 'Order by campo_desejado'; Datamodule.Query.sql.Add(Sql1); end; Espero que te ajude. Ricardo Cesar Cardoso <[EMAIL PROTECTED]> wrote: Passar um nome de tabela como parâmetro? Acho que não. Mas se tiver gostaria de saber como... Pode ser uma tremenda brecha de segurança. - Mensagem original De: Anderson Furtilho <[EMAIL PROTECTED]> Para: Delphi-br Enviadas: Quarta-feira, 18 de Outubro de 2006 15:54:48 Assunto: [delphi-br] Select * from :Parametro Olá amigos!!! Tem como fazer isso no FireBird ? Ja vi algo do tipo mas não encontrei em lugar nenhum ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - All-new Yahoo! Mail - Fire up a more powerful email and get things done faster. [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] 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 não pega o erro
Esta linha sempre tem que ter ou uma variavel que recebe o valor ou que retorna
uma valor tipo:
strtoint(Tabela.FieldByName('campo').AsString) := Variavel;
ou
Variavel := strtoint(Tabela.FieldByName('campo').AsString);
Da forma que está ele nao muda nuca por isso naó da erro... mas estranho pois o
delphi devia te avisar isso pois náo existe logica em declarar um valor pra
nada.
Marcelo Silva
- Original Message -
From: delphi6_2005
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, July 23, 2005 3:26 PM
Subject: [delphi-br] try except não pega o erro
Estou usando
try
strtoint(Tabela.FieldByName('campo').AsString);
except
on E: Exception do
GravaLogTxt(E.Message);
end;
Mais não funciona.
Agradeço as dicas
Alex
--
<<<<< 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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.9.4/57 - Release Date: 22/07/2005
[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
<*> 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] Testar o evento que chamou uma procedure
De uma olhada no "Sender" da procedure... ele que mostra que é o objeto
executado
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: V.Alberto
To: Delphi-Br-Msgs
Sent: Wednesday, July 20, 2005 4:00 PM
Subject: [delphi-br] Testar o evento que chamou uma procedure
Olá pessoal!
Tenho uma procedure:
procedure TfrmPrincipal.btnSalvarClick(Sender: TObject);
var i: integer;
begin
Application.MessageBox('Arquivo com sucesso', 'Informação',
MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
end;
Mas como essa procedure tanto é chamada qdo clico no botão "Salvar", qto
através de outra procedure, gostaria que a mensagem apenas fosse emitida qdo
for clicado no botão.
Tem como implementar isso?
Antecipadamento agradeço a ajuda.
Vandinei Santos
[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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 14/07/2005
[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
<*> 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: WebBrowser no delphi(Mais uma)(para completar)
No meu browser ele ao invéz de executar, baixou o arquivo.xul ... Vi a estrutura dele... e me parece que ha xml encapsulado, bem se a proposta pegar... eu pelo menos vou me agradar muito pois vira e mexe tenho que desenvolver pra web Quanto ao Flash não há o que discutir... é o melhor em interface para web e afins, mas o desenvolvimento também é bem pesado e não podemos fazer um acesso de qualidade a um banco, pois ele depende do ASP PHP e outros... Sem contar que precisaria de uma banda de no minimo 1G pra rodar Bem... vamos acompanhando os lançamentos para ver o que vem por aí... * Muito boa essa palestra pois vem coisas novas pra gente... eu ainda não tinha visto o xul... agora queria ve-lo em execução Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Josir Gomes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 20, 2005 12:58 PM Subject: [delphi-br] Re: WebBrowser no delphi(Mais uma)(para completar) Olá Marcelo e all, como vc disse a Internet veio para ficar... Entretanto a Internet é apenas meio. O problema está na camada de apresentação, que no caso comum é o HTML. Esta sugestão de "Delphi Server Pages" é trocar seis por meia-dúzia e a Borland acertadamente não quis embarcar nisso. Mas existem várias bibliotecas que fazem isso (procure no SourceForge que vc achar umas 5 pelo menos). Na minha opinião, a produtividade em ASP *também* é uma porcaria. Ela é uma porcaria porque trabalhar com HTML em aplicações comerciais *é* uma porcaria em termos de produtividade para o desenvolvedor. Exemplo: O que é melhor ? if (a = b) then begin x> MINHA TABELA http://www.faser.net/mab/chrome/content/mab.xul (funciona com Mozilla, Firefox, Netscape em Windows, Linux, Mac, etc) e depois me falem o que vcs acham! Saudações a todos, Josir - Pelo que já sabemos a internet veio pra ficar... e todos tentam transformar suas ferramentas de algum modo para integrar a internet. Acho que a Borland está "dando murro em ponta de faca", peguemos como exemplo o ASP... Deixando os pormenores de lado sabemos que o VB é uma ótima ferramenta para desenvolver assim como o Delphi. Mas por que será que a Microsoft não tentou colocar o proprio VB para a web de forma direta? Temos aí o ASP que é o puro VB mas sem a interface do mesmo... pois a microsoft achou melhor deixar esta parte com o ja existente html. A Borland podia ter colocado o puro texto (Pascal) assim como a MS fez com o VB para interagir com a web. Veja como poderia ser: Exemplo ASP <% if (a = b) then %> MINHA TABELA <% end if %> . Com delphi seria assim: MINHA TABELA Sei que podemos fazer isso em uma aplicação Snap ou WebServices... mas como dito não é tão flexivel como o ASP ou PHP sobre o html, que podemos usar um notepad por exemplo. * Ou seja a sugestão seria criar um delphi interpretado * Já imaginou poder colocar codigos Delphi direto no html ? * Pode ter certeza que de cara trocentos neguinhos iriam portar muitos Snaps e Webservices para o ADW "Active Delphi Pages" :-) * Mas, agora com a "parceria" Borland + MS... esse sonho já era :-( Marcelo Silva -- <<<<< 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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 14/07/2005 [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 <*> 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] Montar Treeview Dinamicamente
Não seria bom vc usar um DBTreeview ? Procure no google por DBTreeview e vai encontrar rapidinho Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Marcelo Moacir Florindo To: DelphiBR Sent: Tuesday, July 19, 2005 2:52 PM Subject: [delphi-br] Montar Treeview Dinamicamente Senhores, Estou precisando montar uma treeview dinamicamente, ou seja, passo o dataset e mais alguns dados. Alguém teria como me ajudar?? Um grande abraço a todos.. Marcelo -- <<<<< 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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 14/07/2005 [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 <*> 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] WebBrowser no delphi(Mais uma)(para completar)
Pelo que já sabemos a internet veio pra ficar... e todos tentam transformar suas ferramentas de algum modo para integrar a internet. Acho que a Borland está "dando murro em ponta de faca", peguemos como exemplo o ASP... Deixando os pormenores de lado sabemos que o VB é uma ótima ferramenta para desenvolver assim como o Delphi. Mas por que será que a Microsoft não tentou colocar o proprio VB para a web de forma direta? Temos aí o ASP que é o puro VB mas sem a interface do mesmo... pois a microsoft achou melhor deixar esta parte com o ja existente html. A Borland podia ter colocado o puro texto (Pascal) assim como a MS fez com o VB para interagir com a web. Veja como poderia ser: Exemplo ASP <% if (a = b) then %> MINHA TABELA <% end if %> . Com delphi seria assim: MINHA TABELA Sei que podemos fazer isso em uma aplicação Snap ou WebServices... mas como dito não é tão flexivel como o ASP ou PHP sobre o html, que podemos usar um notepad por exemplo. * Ou seja a sugestão seria criar um delphi interpretado * Já imaginou poder colocar codigos Delphi direto no html ? * Pode ter certeza que de cara trocentos neguinhos iriam portar muitos Snaps e Webservices para o ADW "Active Delphi Pages" :-) * Mas, agora com a "parceria" Borland + MS... esse sonho já era :-( Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 19, 2005 4:27 PM Subject: Re: [delphi-br] WebBrowser no delphi(Mais uma) Concordo plenamente com você. Não é que o Delphi é um "lixo", mas acredito que nessa parte ainda deixa a desejar... No delphi 2005 andam dizendo que é facil integral web, mas tb ja ouvi dizer que ta cheio de bugs... acho que ainda falta muito para que o delphi corresponda a flexibilidade que a web nos da... Uma prova disso é que tive que mudar o esquema de acesso ao banco só por causa do delphi, e como ja tinha dito, tive que "descobrir" que alguns comandos não funcionam... Com isso, perdi tempo... Mas a vida de programador é assim mesmo Fiz uma pergunta a um colega de trabalho se ele ja tinha aberto uma janela especifica (por exemplo o IE) no form e ele disse que "graças a Deus" nunca tinha precisado disso Isso porque ele morre de amores pelo Delphi Aí fica a pergunta, será que o Delphi é só para um determinado "tipo" de programador como disse o nosso amigo aí de baixo "É como uns e outros que condenam o Delphi por não saberem trabalhar com controles data-aware" Fica aí a pergunta, sem querer ofender ninguem, porque isso é uma "lista de discussão" Marcelo Silva <[EMAIL PROTECTED]> escreveu: Tinha certeza que isso ia acontecer hehe... Como eu disse é algo pessoal e não que "disseram". E também não disse que é um "lixo" É que tentei fazer algumas coisas aqui e não tive muito sucesso, por isso eu disse que era "pessoal" Eu faço muitas coisas num piscar de olhos com DreanWeaver e PHP (ou ASP), mas não tenho a mesma flexibilidade e resultados em "tempo de desenvolvimento" no Delphi. Gosto muito e só utilizo o delphi em aplicações (front ou back end) Estou tentando desenvolver algumas coisas intranet com Delphi mas confeço que os resultados são muito "xôxos" em vista de que temos que dar muitos nós pra chegar em uma interface mais bonita. É claro que com o tempo vamos dominando a ferramenta, mas diga-se de passagem... não temos muito tempo para re-aprender a programar para a web com delphi sendo que ja existem ferramentas mais indicadas. Como eu disse "é pessoal heim"... sei que há muita gente que detona em delphi para a web e inclusive já ví intraweb funcionando muito bem... mas o desenvolvedor disse que foi um parto. Nada contra o Delphi heim Rubem... senão eu nem estaria nesta lista.. hehe Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 19, 2005 9:06 AM Subject: Re: [delphi-br] WebBrowser no delphi(Mais uma) Quem te disse essa blasfêmia que o Delphi definitivamente não é para Internet? Sugiro que vc reveja seus conceitos sobre isso. Uma limitação do componente TWebBrowser do Delphi não significa dizer que o Delphi é um lixo para desenvolvimento Web. É como uns e outros que condenam o Delphi por não saberem trabalhar com controles data-aware! []s >From: "Marcelo Silva" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: >Subject: Re: [delphi-br] WebBrowser no delphi(Mais uma) >Date: Tue, 19 Jul 2005 08:5
Re: [delphi-br] WebBrowser no delphi(Mais uma)
Tinha certeza que isso ia acontecer hehe... Como eu disse é algo pessoal e não que "disseram". E também não disse que é um "lixo" É que tentei fazer algumas coisas aqui e não tive muito sucesso, por isso eu disse que era "pessoal" Eu faço muitas coisas num piscar de olhos com DreanWeaver e PHP (ou ASP), mas não tenho a mesma flexibilidade e resultados em "tempo de desenvolvimento" no Delphi. Gosto muito e só utilizo o delphi em aplicações (front ou back end) Estou tentando desenvolver algumas coisas intranet com Delphi mas confeço que os resultados são muito "xôxos" em vista de que temos que dar muitos nós pra chegar em uma interface mais bonita. É claro que com o tempo vamos dominando a ferramenta, mas diga-se de passagem... não temos muito tempo para re-aprender a programar para a web com delphi sendo que ja existem ferramentas mais indicadas. Como eu disse "é pessoal heim"... sei que há muita gente que detona em delphi para a web e inclusive já ví intraweb funcionando muito bem... mas o desenvolvedor disse que foi um parto. Nada contra o Delphi heim Rubem... senão eu nem estaria nesta lista.. hehe Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 19, 2005 9:06 AM Subject: Re: [delphi-br] WebBrowser no delphi(Mais uma) Quem te disse essa blasfêmia que o Delphi definitivamente não é para Internet? Sugiro que vc reveja seus conceitos sobre isso. Uma limitação do componente TWebBrowser do Delphi não significa dizer que o Delphi é um lixo para desenvolvimento Web. É como uns e outros que condenam o Delphi por não saberem trabalhar com controles data-aware! []s >From: "Marcelo Silva" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: >Subject: Re: [delphi-br] WebBrowser no delphi(Mais uma) >Date: Tue, 19 Jul 2005 08:51:01 -0300 > >Crie sua página em editor de Html (dreanweaver por exemplo) com os recursos >que precisar e "somente" mostre no seu form, ou seja deixe o html e afins >com o internet explorer senao vc vai apanhar muito, "pois definitivamente o >Delphi ainda não é para internet". > > >* Sei que esse finalzinho vai atiçar muita gente, mas antes que isso >aconteça, pessoal isso é pessoal heim :-) > > >Marcelo Silva >Cel. 11 9693-4251 >ICQ - 49224093 >MSN [EMAIL PROTECTED] > - Original Message - > From: Eny Urias > To: delphi-br@yahoogrupos.com.br > Sent: Tuesday, July 19, 2005 8:43 AM > Subject: Re: [delphi-br] WebBrowser no delphi(Mais uma) > > > ele não aceita a tag applet, tenho que usar a object. > > Eny Urias <[EMAIL PROTECTED]> escreveu:Descobri que além de não >aceitar a tag (tenho que usar ), o webbrowser tb não >reconhece as rotinas em javascript para conversar entre as páginas > > como faço agora procuro outra ferramenta de desenvolvimento ou >alguem sabe de outra maneira que posso utilizar para mostrar a minha pagina >no form? > > Agradeço a atenção de todos > > __ > Converse com seus amigos em tempo real com o Yahoo! Messenger > http://br.download.yahoo.com/messenger/ > > [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 > > 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 Termos do >Serviço do Yahoo!. > > > > __ > Converse com seus amigos em tempo real com o Yahoo! Messenger > http://br.download.yahoo.com/messenger/ > > [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
Re: [delphi-br] WebBrowser no delphi(Mais uma)
Crie sua página em editor de Html (dreanweaver por exemplo) com os recursos que precisar e "somente" mostre no seu form, ou seja deixe o html e afins com o internet explorer senao vc vai apanhar muito, "pois definitivamente o Delphi ainda não é para internet". * Sei que esse finalzinho vai atiçar muita gente, mas antes que isso aconteça, pessoal isso é pessoal heim :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 19, 2005 8:43 AM Subject: Re: [delphi-br] WebBrowser no delphi(Mais uma) ele não aceita a tag applet, tenho que usar a object. Eny Urias <[EMAIL PROTECTED]> escreveu:Descobri que além de não aceitar a tag (tenho que usar ), o webbrowser tb não reconhece as rotinas em javascript para conversar entre as páginas como faço agora procuro outra ferramenta de desenvolvimento ou alguem sabe de outra maneira que posso utilizar para mostrar a minha pagina no form? Agradeço a atenção de todos __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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 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 Termos do Serviço do Yahoo!. __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 14/07/2005 [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 <*> 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] Rotina bloqueante (Contribuiçã o)
Completando...e até para ajudar aqueles (inclusive eu :-)) que não tem muita familiaridade com Threads Vai aí uma dica sobre Threads Na palheta Jv Utils dos componentes Jedi existe o componente JvThread Para utiliza-lo faça o seguinte: Coloque dois componentes JvThreads e dois Labels e um Button em um form e na rotina OnExecute do JvThread de cada um coloque as instruções: // Jv 1 var i: integer; begin for i:=0 to 10 do Label1.Caption := 'For 1: '+IntToStr(i); // Jv 2 var i: integer; begin for i:=0 to 10 do Label2.Caption := 'For 2: '+IntToStr(i); No Buttom coloque: JvThread1.Execute(nil); JvThread2.Execute(nil); Ai vc verá ele executar os dois fors intercalando entre eles e deixando a aplicação livre para movimentar o formulario ou executar outra coisa Fica aí a dica pro pessoal :-) * Vale lembrar que quanto mais Threads vc inicializar mais recursos da máquina ele irá pedir, desta forma cuidado pra não derrubar seu Servidor :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message ----- From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 19, 2005 8:06 AM Subject: Re: [delphi-br] Rotina bloqueante Neste caso seria bom o uso de Threads e se nao me engano nos componentes Jedi tem um que faz justamente isso. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: laerciograton To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 19, 2005 8:04 AM Subject: [delphi-br] Rotina bloqueante Estou usando delphi e MSDE. Executo uma instrução sql para incluir milhares de registros em lote em uma tabela. Enquanto a instrução está sendo executada o delhi não executa mais nada (nem as messages). Mas eu preciso realizar outras tarefas enquanto a instrução não termina. Por exemplo minimizar a aplicação, mas esse evento só ocorre quando a instrução termina. Existe algum modo de fazer com que o delphi continue processando as messages ou eventos durante esse tempo? Ex: Quando se utiliza um loop muito demorado esse problema é solucionado com a instrução application.ProcessMessages no meio do loop. Mas como faço com uma instrução sql?? obrigado. -- <<<<< 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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 14/07/2005 [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 14/07/2005 [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 <*> 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] Rotina bloqueante
Neste caso seria bom o uso de Threads e se nao me engano nos componentes Jedi tem um que faz justamente isso. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: laerciograton To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 19, 2005 8:04 AM Subject: [delphi-br] Rotina bloqueante Estou usando delphi e MSDE. Executo uma instrução sql para incluir milhares de registros em lote em uma tabela. Enquanto a instrução está sendo executada o delhi não executa mais nada (nem as messages). Mas eu preciso realizar outras tarefas enquanto a instrução não termina. Por exemplo minimizar a aplicação, mas esse evento só ocorre quando a instrução termina. Existe algum modo de fazer com que o delphi continue processando as messages ou eventos durante esse tempo? Ex: Quando se utiliza um loop muito demorado esse problema é solucionado com a instrução application.ProcessMessages no meio do loop. Mas como faço com uma instrução sql?? obrigado. -- <<<<< 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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 14/07/2005 [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 <*> 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] Criar aplicativo que inicie outros programas
Tera que trabalhar com Threads Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: delphi6_2005 To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 14, 2005 2:49 PM Subject: [delphi-br] Criar aplicativo que inicie outros programas Peço a ajuda dos amigos (dicas) preciso por motivos de desempenho desmembrar meu programa em 3 e executá-los ao mesmo tempo para ganhar desempenho. Meu aplicativo lê uma base de dados e efetua um processamento para cada tabela, preciso criar um programa para executar cada tabela porém preciso manter um controle sobre esse processamento (um sincronismo por exemplo preciso iniciar todos ao mesmo tempo porém só poderei reiniciá- los quando todos tiverem terminado entaum na verdade não sei qual a melhor solução) Qual seria a melhor forma de fazê-lo? Agradeço a dica de todos Paulo -- <<<<< 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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.12/46 - Release Date: 11/07/2005 [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 <*> 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] Fechar Formulário
Basta deixar o BorderIcons do Form com o biSystemMenu = False; Vale lembrar que o usuário poderia usar Alt+F4 pra fechar ignorando seu botão sair :-) Se deseja mesmo que sua função seja executada reveja seu código e poderá coloca-la no OnClose do Form t+ Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Cleiton To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 13, 2005 12:52 PM Subject: [delphi-br] Fechar Formulário Olá pessoal ... Alguém poderia me dizer como faço pra impedir que o usuário feche a aplicação pelo "X" do formulário, usando apenas o botão sair? Obrigado. -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.12/46 - Release Date: 11/07/2005 [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 <*> 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] abrir um form dentro de outro
Que eu saiba pode até existir mas terá que ser não mão Voce terá que colocar o formAberto no tamanho máximo do FormPrincipal menos o heigth das bordas e menus. Terá que limitar a área de movimentação do mesmo... Etc... etc... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: juniormello To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 06, 2005 10:04 AM Subject: [delphi-br] abrir um form dentro de outro ola pessoal, td bem? estou com a seguinte duvida: tenho meu form principal, que contém o menu de acesso a outras areas do sistema, mas ele tem o corpo do form "inutilizado". Estou querendo modificar para o seguinte: ao mandar abrir um form, fazer com que ele seja aberto nesse espaço vazio. A unica forma que conheço pra fazer isso eh usando MDI, mas eu gostaria de saber se há algum outro modo. Grato, Eduardo -- <<<<< 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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.8/37 - Release Date: 01/07/2005 [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 <*> 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] Delete
Veja se o KeyPreview do for está ativa
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: "Anderson" <[EMAIL PROTECTED]>
To: "Grupo Delphi"
Sent: Wednesday, July 06, 2005 3:29 PM
Subject: [delphi-br] Delete
Aes Galera...
Como saber que a tecla delete foi pressionada?
Já tentei isso e naum deu
If key = #46 then
showmessage('delete');
ou
If key=VK_DELETE then
showmessage('delete');
[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
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.8/37 - Release Date: 01/07/2005
--
<<<<< 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] Conversao de string para char
ShowMessage( PChar(String) ); ShowMessage( PAnsiChar(String) ); Fica a sua escolha Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Florentino - Agrosoft To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 05, 2005 7:54 AM Subject: [delphi-br] Conversao de string para char Amigos, Desculpem a pergunta básica, mas procurei na documentação do Delphi e não encontrei (de repente estava no meu nariz e nao vi!). Como faço para converter uma variável string (tam=1) em uma variável char ? Obrigado. [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.7/34 - Release Date: 29/06/2005 [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 <*> 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] [maf] Leitura de arquivo texto
Ou voce pode colocar um Memo e fazer Memo.LoadFromFile('c:\arquivo.txt');
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: Leandro
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 24, 2005 7:19 AM
Subject: Re: [delphi-br] [maf] Leitura de arquivo texto
Se for só ler, eu uso um stringlist.
Ex:
procedure CarregaArquivo;
var
Linhas : TStringList;
i : Integer;
begin
Linhas := TStringList.Create;
Linhas.LoadFromFile('c:\arquivo.txt');
for i :=0 to Linhas.Count - 1 do
begin
form1.caption := Linhas[i];
end;
linhas.Free;
end;
- Original Message -
From: "Marcos Abreu Ferreira" <[EMAIL PROTECTED]>
To:
Sent: Friday, June 24, 2005 12:21 AM
Subject: [delphi-br] [maf] Leitura de arquivo texto
Pessoal
Qual a melhor forma de ler arquivo texto pelo Delphi 5? Existe algum
componente?
Att,
Marcos Ferreira
"O problema das novas tecnologias não é ter que aprendê-las, o problema é
sentir-se idiota perante os outros durante todo o processo de aprendizado."
[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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.7.11/26 - Release Date: 22/06/2005
[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
<*> 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] OFFTOPIC - Campo BLOB do Interbase em PHP
Use a tag texto Assim ele vem como foi originalmente escrito E com certeza o pessoal tem outras dicas T+ Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Eduardo Paci Galvão To: Lista Delphi Sent: Thursday, May 19, 2005 6:42 AM Subject: [delphi-br] OFFTOPIC - Campo BLOB do Interbase em PHP Olá, pessoal Estou com um problema ao exibir campos BLOB do Firebird em uma página via PHP. Exibir até que eu consigo, mas ele vem todo junto, sem as quebras de linha. Alguma dica? Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] [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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.12 - Release Date: 17/05/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.12 - Release Date: 17/05/2005 [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 <*> 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] Como manipular arquivos DFM - OFF TOPIC
D = Delphi 2 = 2 K = 1000 5 = 5 Entendeu ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: "Filipe" <[EMAIL PROTECTED]> To: Sent: Wednesday, May 18, 2005 11:50 AM Subject: Re: RES: [delphi-br] Como manipular arquivos DFM - OFF TOPIC > Desculpem a ignorancia, mas D2K5 = delphi 2005? > > se for, pq o chamam desta forma? > > > > - Original Message - > From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]> > To: > Sent: Wednesday, May 18, 2005 11:46 AM > Subject: RES: RES: [delphi-br] Como manipular arquivos DFM > > > Éhh, do 5 então :) > > O bom disto é que você hoje pode abrir um projeto do D7 no D2K5 trabalhar > nele tranquilamente. Caso amanha você precise reabrí-lo no D7, pode fazer > isto tranquilamente desde que não seja inserido algum recurso que somente > na > versão superior exista. > > > > []s > > Walter Alves Chagas Junior > Projeto e desenvolvimento > Telemont Engenharia de telecomunicações > Belo Horizonte - MG - Brazil > [EMAIL PROTECTED] > Fone: (31) 3389-8215 Fax: (31) 3389-8200 > > >> -Mensagem original- >> De: Valfrid-Ly Silva Couto [mailto:[EMAIL PROTECTED] >> Enviada em: quarta-feira, 18 de maio de 2005 11:37 >> Para: delphi-br@yahoogrupos.com.br >> Assunto: Re: RES: [delphi-br] Como manipular arquivos DFM >> >> >> Delphi 7 não Walter, Delphi 5 já é texto!! >> >> --- Walter Alves Chagas Junior >> <[EMAIL PROTECTED]> escreveu: >> >> > O problema é que ele quer fazer isto via >> > programação. Não sei, ele deve tar >> > querendo desenvolver um gerador de programas, neste >> > caso o .DFM é tratado a >> > partir do Delphi 7, como um arquivo texto. Aí é só >> > abrir ele e editá-lo, >> > tomando cuidado para não afetar a sintaxe do código >> > do dfm >> > >> > >> > >> > []s >> > >> > Walter Alves Chagas Junior >> > Projeto e desenvolvimento >> > Telemont Engenharia de telecomunicações >> > Belo Horizonte - MG - Brazil >> > [EMAIL PROTECTED] >> > Fone: (31) 3389-8215 Fax: (31) 3389-8200 >> > >> > >> > > -Mensagem original- >> > > De: Eduardo [mailto:[EMAIL PROTECTED] >> > > Enviada em: quarta-feira, 18 de maio de 2005 11:26 >> > > Para: delphi-br@yahoogrupos.com.br >> > > Assunto: Re: [delphi-br] Como manipular arquivos >> > DFM >> > > >> > > >> > > É possivel alterar qualquer coisa dentro do DFM, >> > mas é >> > > recomendado O MAXIMO DE CUIDADO, faca uma copia do >> > arquivo e >> > > coloque ou altere os objetos. >> > > >> > > Isto só facilita para migrar uma classe de >> > componente, exemplo: >> > > >> > > Hj vc utiliza TBitBtn e vc quer mudar para >> > TEduBtn, é só >> > > substituir os tipos dentro do DFM, e nao esqueca >> > de fazer o >> > > mesmo no PAS. >> > > Lembre-se que quando vc fizer, certifique-se que >> > as >> > > propriedades do 1º objeto existe no 2º, se não >> > isso não vai >> > > dar certo, o seu formulario não aparecera mais. E >> > tome muito >> > > cuidado com o codigo em assembler. >> > > >> > > >> > > Fora isso não é bom mexer direto no DFM não. >> > > >> > > >> > > Eduardo >> > > >> > > - Original Message - >> > > From: leandro guimaraes >> > > To: delphi-br@yahoogrupos.com.br >> > > Sent: Wednesday, May 18, 2005 9:42 AM >> > > Subject: [delphi-br] Como manipular arquivos DFM >> > > >> > > >> > > alguem sabe como manupular arquivos dfm do >> > delphi via programacao >> > > >> > > >> > __ >> > > Converse com seus amigos em tempo real com o >> > Yahoo! Messenger >> > > http://br.download.yahoo.com/messenger/ >> > > >> > > [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: >> > > >> >
Re: [delphi-br] Como acessar via Delphi uma base de dados na Internet?
Fazer uma intraweb com PHP :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Eduardo Paci Galvão To: delphi-br@yahoogrupos.com.br Sent: Monday, May 16, 2005 8:09 AM Subject: Re: [delphi-br] Como acessar via Delphi uma base de dados na Internet? Olá, Subject: Re: [delphi-br] Como acessar via Delphi uma base de dados na Internet? > Troque no seu componente > de acesso de dados tipo > TTable o path local pelo path da base no servidor com o IP do Servidor na > frente, > ex: http://200.XXX.XX.XX.../C:\\Base_de_dados.db Sim, eu sei disso.. é assim que faço, mas a performance é geralmente muito ruim. Eu queria saber se existe outra forma alternativa. Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.10 - Release Date: 13/05/2005 -- <<<<< 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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.9 - Release Date: 12/05/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.9 - Release Date: 12/05/2005 [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 <*> 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
[delphi-br] While ou SELECT ?
Pessoal... tenho a seguinte situação: Tabela EVENTOS OPERADORDATA_EVENTOCOD_EVENTO DOCUMENTO MARCELO 01/01/2005 30 01 JOAQUIM 02/01/2005 30 01 FERNANDA03/01/2005 30 01 MARCELO 02/01/2005 35 02 MARCELO 02/01/2005 30 02 JOAQUIN 03/01/2005 35 02 FERNANDA04/01/2005 35 02 MARCELO 05/01/2005 35 02 MARCELO 04/01/2005 30 03 MARCELO 05/01/2005 30 03 JOAQUIM 06/01/2005 30 03 FERNANDA07/01/2005 30 05 FERNANDA08/01/2005 30 05 Tenho que fazer uma pesquisa que me traga quem é o ultimo operador do documento. Tipo: o documento 01 seria pago a fernanda por ela ser a ultima a entrar em contato com o cliente Estou quebrando a cabeça e não cheguei a um veredito Como montar este select ? Existe um MAX() para campos DATA ? Sei que existe o ORDER BY mas neste caso não vira... ou vira ? Ou terei que fazer em um while no sistema ? * Toda sugestão será bem vinda :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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 <*> 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
=?iso-8859-1?Q?Re:_=5Bdelphi-br=5D_Tamanho_do_execut=E1vel?=
Uma boa pedida é usar Heranças... Produre no histórico da lista... este assunto já foi bem discutido, achará muita coisa lá - Original Message - From: Rodrigo Jorge To: delphi-br@yahoogrupos.com.br Sent: Monday, May 09, 2005 11:52 AM Subject: [delphi-br] Tamanho do executável Bom dia a todos do grupo, Existe alguma maneira de deixar o executável de um projeto o menor (tamanho físico) possível? Implementar soluções modulares funcionam, e como? Agradeço desde já a atenção, Rodrigo Jorge - 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.6 - Release Date: 6/5/2005 [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 <*> 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
=?iso-8859-1?Q?Re:_RES:_=5Bdelphi-br=5D_Controlar_C=F3digo_Fonte_-_PROBLE?= =?iso-8859-1?Q?MA_!!!!?=
Ôo pessoal... isso não existe... Hoje as possibilidades de criação são muito grandes e com certeza as idéias vão se parecer ou até mesmo ser tiradas do que já existe. Qualquer um pode sair de uma empresa e criar algo do que ele aprendeu... seja onde for... O que ele não pode é fazer um clone extado do sistema da empresa que trabalhava... mas "idéias", estas podemos levar pra onde quisermos... E diga-se de passagem... a mesma idéia cada vez que nós a programamos fica melhor a cada versão. Você pode proteger seus fontes a qualquer custo... mas idéias e o que foi aprendido, do funcionário não se pode tirar. Veja que paranóia um apresentador patentear uma frase como "Alô você", "Olá tudo bém ?", meu isso é o cúmulo... Pra quem deseja proteger seu sistema ou fontes... faça boas amarrações com o banco de dados... crie dlls pra dificultar, use chaves... aquelas que se coloca na porta LPT, COM ou USB... sei lá... Não existe nada 100% seguro... senão o tio Bill já tinha se tornado Rei global... Hoje o que manda é criatividade... Mas vou além... quer trabalhar tranquilo ? Seja 100% honesto com seus clientes e cobre um preço justo... e pode ter certeza de que sempre seu projetos prosperarão... sabe porque ? Porque existe uma coisa que nunca vejo em nenhuma lista... (pelo menos de maneira explicita pois parece que todos tem vergonha de dizer...) se você for honesto, Deus estará sempre abençoando seu trabalho... do contrario você pode até ganhar muito dinheiro, mas não vai durar muito tempo. (Isso vale para aqueles que acreditam que toda casa é feita por alguém, mas quem fez todas as coisas é Deus) * Fomos feitos para depender uns dos outros, desta forma uma boa amizade e tratos justos terão exito certo. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Wilson Valdevite To: delphi-br@yahoogrupos.com.br Sent: Monday, May 09, 2005 8:23 AM Subject: Re: RES: [delphi-br] Controlar Código Fonte - PROBLEMA Estou acompanhando essa discussão a dias e gostaria de lançar uma questão que já vi ocorrer: Uma empresa com venda média de R$250,000.00 / mês e resolveu fazer ela mesma a manutenção de seu banco de dados que era feito por terceiros. Como essa empresa pode proteger seus dados??? Sem confiança no profissional não dá certo nunca, e é lógico que, se o programador faz algum programa extra, ele vai aproveitar alguma parte do código de onde ele trabalha ou vai tirar algumas idéias do sistema da empresa. A não ser que o contrato de trabalho o proíba expressamente isso e o pague para não precisar ter um emprego paralelo... Wilson - Original Message - From: Rodrigo Othavio Farias To: delphi-br@yahoogrupos.com.br Sent: Friday, May 06, 2005 10:20 AM Subject: Re: RES: [delphi-br] Controlar Código Fonte - PROBLEMA Já falei, entra com pedido para impedir a venda do sistema do ex-funcionario enquanto o processo corre, é tudo questão de ter um bom advogado [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.5 - Release Date: 04/05/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.5 - Release Date: 04/05/2005 [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 <*> 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
=?iso-8859-1?Q?Re:_=5Bdelphi-br=5D_Controlar_C=F3digo_Fonte?=
Se vc for paranoico mesmo... vc até pode deixar ele trabalhar nos fontes na boa... aí vc cria o banco cria as procedures, triggers etc... etc... de forma que o sistema dependa do banco ou seja, concentre o que puder de transações lá... e coloque uma senha no banco que só vc acessa :-) Um exemplo: No fonte do delphi ele usa o IBStoreProc e acessa as procedures lá... enviando os parametros... Ele pode até saber os parametros... mas nao saberá como as procdures estão montadas e entrelaçadas. Muitos procedimentos podem depender de Triggers que por sua vez faz as atualizações que por hora seriam feitas no delphi. Fica aí essa dica... eu diria que é um modo bem profissional de se trabalhar... pois se um dia vc quiser fazer sua aplicação em VB ou C++ voce pode portar numa boa Agora veja isso como uma forma profissional de se trabalhar e não para desconfiar do seu profissional... Vc está com medo de ele roubar seus fontes ? Com tantos fontes free por aí ? Vc deveria cuidar bem dos seus clientes e sua conta no banco... que são muito mais "faceis" de "roubar". Como dito por nosso colega... seria muito bom vc confiar no seu contratado... E diga-se de passagem... aqui não é um bom lugar para desconfiar de programador :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Luiz Henrique Santos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 04, 2005 4:03 PM Subject: Re: [delphi-br] Controlar Código Fonte Penso que você deva contratar o programador e não se preocupar com isso. Não conheco nenhuma maneira de se proteger fontes. Usando CVS não dá porque o CVS copia os fonte pra maquina do usuario permitindo que o programador transporte pra qualquer lugar. Acho que a solução é confiar no programador. De que adianta ele ter os fontes se não tem os clientes nem a infra-estrutura de se vender um aplicativo. O que é muito comum é o programador se interessar por uma classe ou método com um macete interessante que tenha criado. Pra proteger isso, ao invés de liberar o fonte destas rotinas crie bibliotecas (DLL) e libere estas pra ele. É uma saída. E você acaba criando um framework seu sem querer. Aconselho usar o CVS pra controlar as versões já que dois programadores trabalharam em um mesmo projeto. - Original Message - From: Rildecy de Queiroz Borba To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 04, 2005 11:41 AM Subject: RES: [delphi-br] Controlar Código Fonte Coloca ele trabalhando em uma maquina da rede sem acesso a internet, sem entrada para diskete, sem usb, sem gravador de cd talvez ai vc consiga proteger os fontes. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adriano Gomes Enviada em: quarta-feira, 4 de maio de 2005 10:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Controlar Código Fonte Sempre desenvolvi aplicativos sozinho e agora estou com a necessidade de contratar um programador. A dúvida é a seguinte: existe algum meio de proteger o código fonte, para q o programador nao possa o copiar e levar pra casa. Como é feito esse controle nas empresas? [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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.3 - Release Date: 3/5/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.3 - Release Date: 3/5/2005 -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas]
=?iso-8859-1?Q?Re:_=5Bdelphi-br=5D_D=FAvida_sobre_utiliza=E7=E3o_do_F?= =?iso-8859-1?Q?ortes_Report?=
Olha pelo que tenho usado é uma excelente ferramenta... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Wallace Cerqueira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 03, 2005 8:47 AM Subject: [delphi-br] Dúvida sobre utilização do Fortes Report Olá pessoal, queria saber de quem já usou o usa o Fortes Report, se conseguiu se satisfazer com a ferramenta. Na empresa onde trabalho estamos querendo usá-lo em novos projetos, e talves até implantá-lo nos antigos, substituindo o Quick Report aos poucos. Ou seja, queria saber de quem já usa se vale mesmo a pena essa mudança. Desde já agradeço a atenção Wallace Cerqueira Itabuna - BA [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.0 - Release Date: 29/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.0 - Release Date: 29/04/2005 [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 <*> 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] IBQUERY
Se a sua trigger esta como if (new.Codigo is Null) then ... então vc deve fazer
uma rotina no seu insert desta forma
if (campoCodigo <> '') then
colocaValor na query
else deixa null
Ai sua trigger funciona
Pois do jeito que esta fazendo vc está adicionando um no gen_id
Ou seja... a ideia é vc fazer um if para determinar de vc insere atravez do
usuario ou do gen_id, pois o simples fato de fazer Select no gen_id com
parametro 1 ele já acrescenta 1
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: Andre Colanzi
To: delphi-br@yahoogrupos.com.br
Sent: Monday, May 02, 2005 12:18 PM
Subject: Re: [delphi-br] IBQUERY
Eu tenho essa trigger sim, mas quando ele salva faço a verificação se existe?
Outra coisa nao sei se pode me ajudar, ao incluir ele esta dando o codigo 1
por exemplo so que quando salva ele gera novamente outro codigo por exemplo
dois o que pode ser, quando dou incluir no evento OnRecord da Query tenho se
seguinte codigo:
With IBQConsulta do
begin
Close;
Sql.clear;
Sql.add('SELECT GEN_ID(COD_USUARIO,1) AS NovoCodigo FROM RDB$DATABASE');
Open;
IBQCadUsuario.FieldByName('Cod_USUARIO').AsString :=
FieldbyName('NovoCodigo').AsString;
Close;
end;
Ate
Obs.: Desculpe essas perguntas considero elas como perguntas faceis so que
nunca trabalhei com Query para manipulação de dados so trabalhava com IBTABLE,
so que me falaram que isso não é trabalhar com cliente servidor ai estou
tentado trabalhar com query juntamente com cliente servidor
Andre R. C. Santos
[EMAIL PROTECTED]
-
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!
[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]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.11.0 - Release Date: 29/04/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.11.0 - Release Date: 29/04/2005
[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
<*> 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] IBQUERY
Como funciona sua Trigger ? Não a a possibilidade de duplicar, gerando um Key Violation ? Por exemplo, como o usuário sabe se aquele número que ele está digitando não existe, vc tem que ficar verificando ? Se a sua trigger está gerando o codigo de um Generator é complicado...agora se a sua Trigger está baseada no método SELECT MAX(NUMERO) FROM TABELA aí tudo bem... dá pra se virar :-) Só isso... :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Andre Colanzi To: delphi-br@yahoogrupos.com.br Sent: Monday, May 02, 2005 8:34 AM Subject: Re: [delphi-br] IBQUERY Bom Dia Marcelo Bom eu uso uma Trigger, so que o campo é Pk, voce falou em analisar melhor como assim, pois esse campo tanto pode o usuario digita ou ficar com o codigo gerado pela trigger... Ate, e obrigado desde já Andre R. C. Santos [EMAIL PROTECTED] - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.0 - Release Date: 29/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.0 - Release Date: 29/04/2005 [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 <*> 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] IBQUERY
Se estiver usando FB ou IB... Como vc está colocando o Generator ? em Trigger ou na Query ? No seu caso vc deveria colocar em Trigger assim: ... CREATE TRIGGER SUATABLE_BI0 FOR TABELA ACTIVE BEFORE INSERT POSITION 0 AS begin if (new.SEUCODIGO is Null) then new.SEUCODIGO = gen_id(SEU_GENERATOR, 1); end ... Desta forma ele só coloca valor se não existir nada no campo. * Agora deve-se tomar cuidado porque se este campo for PK vc deve analizar melhor como proceder :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Andre Colanzi To: Lista Delphi Sent: Saturday, April 30, 2005 9:43 AM Subject: [delphi-br] IBQUERY Pessoal estou usando isso para acessar uma base de dados, tenho um generator para criar o codigo automatico, so que tambem permito que o usuario digite o codigo desejado, so que tem estou com um problema quando o usuario digita o codigo e salva, o codigo que o usuario digitou não salva e coloca o codigo do generator o que pode ser alguem tem uma ideia? Até Andre R. C. Santos [EMAIL PROTECTED] __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.4 - Release Date: 27/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.4 - Release Date: 27/04/2005 [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 <*> 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] QuantumGrid
Apesar de achar os componentes da Dev excelentes eu estou usando alternativas como a suite Jedi, pois a cada novo quantumgrid inserido na minha aplicação ela ficava enorme e mais lenta... comecei analizar a real necesidade do usuário e vi que muitas coisas estavam ali só para "emperequetar" a aplicação, desta forma comecei a adotar critérios já a muito dito pelos "sabios" da informática..."como deixar a aplicação mais simples porém muito mais funcional". Para ver o que estou falando é só vc pegar o WinXP e colocar a interface XP nele... você vai achar lindo... bonito... sei lá... mas não demora muito vc vai querer trocar o papel de parede...ajustar algumas cositas... Agora coloca o tema Padrão do windows... sem aquelas parafernalhas de menus animados... mouse com rastro... etc etc...coloca no máximo um papel que goste. Olha de cara a memoria usada de 130mb vai para uns 110mb... o processador (sem programas abertos) vai de 4% para 1% ou seja... o que demorava 1 segundo para abrir vai para uns 0.60s E por aí vai... Já usei muito os componentes da dev como QuantumGrid, DBTreview, MasterView etc... são excelentes mesmo... mas devem ser analizados com muito critério o seu uso. Muitas coisas vc pode substituir com PopMenus e DBGrid do proprio Delphi e por ai vai... Bem, não adiantaria nada eu dizer tudo isso e não responder a pergunta original não é mesmo :-) Olha... colocar filtro na query não impede nada no QuantumGrid o que você deve analizar é o que vai querer mostrar no grid... por exemplo... se vc quem fazer uma amostragem de pedido e itens voce não pode filtrar na query e sim montar o grid para que ele faça isso por se filtrar na query os dados não estarão disponíveis no grid. Esses Grids da Dev vc pode fazer um SELECT * FROM TABELA e filtrar tudo no grid... mas lembre-se que tudo virá para a máquina do usuário... o que deixara sua rede bem congestionada... Bem... a melhor maneira de descobrir o QuantumGrid é fazendo uma aplicação simples e paralela e testar cada Grid e suas necessidades que for adicionar na sua real aplicação, assim vc não se perde. Ele tem muitas opções e configurações desta forma fica meio inviável dizer por email... Até mais pessoal :-) e desculpe o elivro :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Demian Lessa To: delphi-br@yahoogrupos.com.br Sent: Friday, April 29, 2005 9:29 PM Subject: Re: [delphi-br] QuantumGrid Claudionor, É um verdadeiro balaio de gato. Fazem coisas de forma não ortodoxa e são cheios de problemas no código. O lado bom é que a aparência é fantástica e a velocidade, no caso de tudo funcionar sem problema, é relativamente boa. Então, minha maior dica pra você é: prefira as versões com os fontes e utilize o fórum de suporte oferecido por eles- são muito bons em geral. Você precisará, se não me falha a memória, ser um usuário registrado dos componentes para poder registrar-se nos fóruns. Os exemplos são também bastante razoáveis- você pode encontrar sua solução por lá. Agora, minha sugestão, de alguém com um pouco de experiência no uso desses controles, é *não delegar o controle dos dados ao grid* e isso inclui relações mestre-detalhe em geral. Mas isso é uma posição minha, por achar que registros mestre e detalhe devam ser manipulados de forma individual para reduzir ao máximo o tráfego na rede. Os grids sempre carregam mais do que o necessário, por mais sofisticado que seja o esquema de cache local. Ah! E desculpe por não oferecer uma resposta objetiva ao seu questionamento. Cordialmente, Demian Lessa Salvador - Brasil Claudionor Oliveira Júnior wrote: > >Boa tarde, > >Estou tendo problemas em usar este QuantumGrid em > Query parametrizadas. Segui exemplos dele e o help, > mas não esta funcionando o filtro no Query filho. >Alguem ja trabalhou com esse componente? > > Se puder me ajudar, > > Desde ja agradeço, > > Claudionor de Oliveira Junior. > > > > > > Yahoo! Acesso Grátis - Internet rápida e grátis. > Instale o discador agora! http://br.acesso.yahoo.com/ -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http
Re: [delphi-br] Randomizar sem repetir e a partir de um numero
hehe... não quero a funçao pra gerar cartao... minha função precisar de 6 digitos só e na net tem programinhas que geram numero de cartoes validos por isso hoje as operadoras estão além de assossiar com uma data de validade elas estão colocando senha :-) Seria a logica do algoritimo mesmo - Original Message - From: "Filipe" <[EMAIL PROTECTED]> To: Sent: Friday, April 29, 2005 4:48 PM Subject: Re: [delphi-br] Randomizar sem repetir e a partir de um numero > ptz... Se alguem tiver uma funçao para gerar cartao de credito por favor > me > passa ! hehehe... > > > - Original Message - > From: "Marcelo Silva" <[EMAIL PROTECTED]> > To: > Sent: Friday, April 29, 2005 4:36 PM > Subject: Re: [delphi-br] Randomizar sem repetir e a partir de um numero > > >> Queria saber se existe uam funçao tipo aquelas pra gerar cartao de >> credito >> ou cpf >> >> >> >> - Original Message - >> From: "Filipe" <[EMAIL PROTECTED]> >> To: >> Sent: Friday, April 29, 2005 4:36 PM >> Subject: Re: [delphi-br] Randomizar sem repetir e a partir de um numero >> >> >>> bom, uma gambiarra seria transformar pra string... >>> >>> - Original Message - >>> From: "Marcelo Silva" <[EMAIL PROTECTED]> >>> To: >>> Sent: Friday, April 29, 2005 4:31 PM >>> Subject: [delphi-br] Randomizar sem repetir e a partir de um numero >>> >>> >>> Pessoal tem um assunto paralelo na lista, mas ae vai minha duvida >>> >>> Como gerar um numero randomico que tenha 6 digitos ? >>> >>> tipo >>> >>> 342154 >>> >>> >>> Marcelo Silva >>> Cel. 11 9693-4251 >>> ICQ - 49224093 >>> MSN [EMAIL PROTECTED] >>> >>> [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 >>> >>> >>> >>> >>> >>> >>> >>> >>> >> >> >> >> -- >> <<<<< 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 > > > > > > > > > -- <<<<< 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] Randomizar sem repetir e a partir de um numero
Queria saber se existe uam funçao tipo aquelas pra gerar cartao de credito ou cpf - Original Message - From: "Filipe" <[EMAIL PROTECTED]> To: Sent: Friday, April 29, 2005 4:36 PM Subject: Re: [delphi-br] Randomizar sem repetir e a partir de um numero > bom, uma gambiarra seria transformar pra string... > > - Original Message - > From: "Marcelo Silva" <[EMAIL PROTECTED]> > To: > Sent: Friday, April 29, 2005 4:31 PM > Subject: [delphi-br] Randomizar sem repetir e a partir de um numero > > > Pessoal tem um assunto paralelo na lista, mas ae vai minha duvida > > Como gerar um numero randomico que tenha 6 digitos ? > > tipo > > 342154 > > > Marcelo Silva > Cel. 11 9693-4251 > ICQ - 49224093 > MSN [EMAIL PROTECTED] > > [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 > > > > > > > > > -- <<<<< 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
[delphi-br] Randomizar sem repetir e a partir de um numero
Pessoal tem um assunto paralelo na lista, mas ae vai minha duvida Como gerar um numero randomico que tenha 6 digitos ? tipo 342154 Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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 <*> 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] Data + dias
Que eu me lembre é Data+nDias Ex. Date+30 Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Info Desenvolvimento To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 28, 2005 4:33 PM Subject: [delphi-br] Data + dias Como eu faço para acrescentar dias em uma data Exemplo: Data de Hoje mais 7 dias (Semanal) Data de Hoje mais 15 dias (Quinzenal) Data de Hoje mais 30 dias (Mensal) depois trimestral, semestral e anual [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.2 - Release Date: 21/04/2005 -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.2 - Release Date: 21/04/2005 [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 <*> 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] Comunicacao serial
Muitos destes problems podem estar relacionados a velocidade das portas, por exemplo o componente pode estar a 19.000 e a porta a 9.600 e por ai vai... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Diogo de Oliveira Cunha To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 27, 2005 4:11 PM Subject: Re: [delphi-br] Comunicacao serial Qual o tipo de problema que voce esta tendo? Especifique melhor. On 4/27/05, Jeferson Adoryan <[EMAIL PROTECTED]> wrote: > > Dae galera... alguem na lista usa comunicacao serial?? qual o componente?? funciona no win95 win98 blz?? > Estou usando o TComPort 1.71, mas estou tendo muitos problemas no win9x com ele... Uso delphi 6.. > Obrigado... > > ___ > Jeferson Adoryan > Técnico em Desenvolvimento de Software > Fockink Indústrias Elétricas Ltda > Aplicativos - Unidade Eletrônica > Fone: (55) 3375 9784 > Celular: (55) 9137 9119 > [EMAIL PROTECTED] > [EMAIL PROTECTED] > [EMAIL PROTECTED] > Home Page: www.infoti.z6.com.br > Estação online: eletronica.fockink.ind.br/tempo > Panambi - RS > __ > Converse com seus amigos em tempo real com o Yahoo! Messenger > http://br.download.yahoo.com/messenger/ > > [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 > > > > > -- "Todos os deuses são um deus", "e todas as deusas são uma deusa, e há apenas um iniciador. E cada homem a sua verdade, e Deus com ela". -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.18 - Release Date: 19/04/2005 -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.18 - Release Date: 19/04/2005 [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 <*> 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] Inicialização Automática no Cód. Fonte
A primeira vez vc sempre terá que fazer... Agora as demais vc pode escrever na chave de registro HKEY_LOCAL_MACHINE\ SOFTWARE\ Microsoft\ Windows\ CurrentVersion\ Run Dentro da Run vc coloca achave Nome: SeuSistema e Dados: C:\SuaPasta\SeuAplicativo.exe Para "mexer" no registro procure algo sobre TRegistry Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.18 - Release Date: 19/04/2005 [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 <*> 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] Validar campos em um form (Contribuindo :-))
Colega esquece tudo o que viu e usa essa simples procedure que criei e veja se
funciona aí...
procedure ValidaCampo(dts: TIBDataSet);
var
i: Integer;
begin
for i:=0 to dts.FieldCount-1 do begin
if ((dts.Fields.Fields[i].Required)and(dts.Fields.Fields[i].IsNull)) then
begin
ShowMessage('O Campo '+dts.Fields.Fields[i].DisplayLabel+' é requerido');
dts.Fields.Fields[i].FocusControl;
Abort;
end;
end;
end;
Exemplo de uso:
// Antes de validar jogue o fóco para um componente neutro (uma toolbar ou um
GroupBox sei lá...)
ToolBar1.SetFocus; // Veja item 5
ValidaCampo(SeuDataSet);
Algumas recomendações:
1- Onde está TIBDataSet é o seu tipo de DataSet, no meu caso estou usando da
palheta Interbase então a classe é TIB...
2- A sequencia de mensagem está assossiada a posição do campos no lisfield do
dataset então este deve estar na sequencia que quer... o que é simples ... é só
arrastar o campo na posição desejada na lista.
3- Esta procedure deve ser usada antes do post do referido dataset...
4- Esta procedure pode ser colocada em uma Unit publica de funçoes desta forma
ser reutilizada quando quiser.
5- Lembre-se de que um campo só é considerado o seu valor quando este perde o
fóco (o que faz sentido)
Explicando:
O que estamos fazendo aqui é verificar se existem campos requeridos no DataSet
indicado e se esses estão vazios.
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: Rubem Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 26, 2005 11:33 AM
Subject: RES: [delphi-br] Validar campos em um form
O que acontece com essa rotina? Qual a mensagem de erro que ocorre?
[]s
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo
Silva ®
Enviada em: terça-feira, 26 de abril de 2005 09:18
Para: Grupo Delhpi-br
Assunto: [delphi-br] Validar campos em um form
Galera tenho a função abaixo para fazer a validação e destacar os campos
obrigatórios em um form.
Essa função foi passada em um número da revista Clube Delphi que eu não me
lembro, mas ela não está funcionando.
Alguém poderia me dar uma mão e ver o que está errado ?
Obrigado.
function Valida(F: TForm): boolean;
var
i : integer;
lbl : TLabel;
ds : TDataSource;
fn : string;
c : TObject;
begin
for i := 0 to F.ComponentCount - 1 do
begin
if F.Components[i] is TLabel then
lbl := F.Components[i] as TLabel;
lbl.Font.Color := clWindowText;
lbl.Font.Style := [];
if lbl.FocusControl <> nil then
begin
c := lbl.FocusControl;
{Declare TypInfo no uses}
if IsPublishedProp(c,'DataSource') then
begin
ds := TDataSource(GetObjectProp(c,'DataSource'));
if IsPublishedProp(c,'DataField') then
begin
fn := GetStrProp(c,'DataField');
if ds.DataSet.FieldByName(fn).Required then
if ds.DataSet.FieldByName(fn).IsNull then
begin
lbl.Font.Style := [fsBold];
lbl.Font.Color := clRed;
end;
end;
end;
end;
end;
end;
~\\|//~
-(o o)- o--oOOOo--(_)--oOOOo-o
||
| Eduardo de Almeida Silva |
| Kobra Sistemas |
| [EMAIL PROTECTED] - (14)3263-0326 |
||
|.oooO Oooo. |
o( )---( )---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
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/04/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/04/2005
*
Esta mensagem, incluindo os seus anexos, contém informações confidenciais
destinadas a indivíduo e propósito específicos, e é protegida por lei. Caso
você não seja o citado indivíduo, deve apagá-la imediatamente. É
terminantemente proibida a utilização, acesso, cópia ou divulgação não
autorizada das informações presentes neste email. As informações contidas
nesta mensagem e em seus anexos são de responsabilidade de seu autor, não
representando idéias, opiniões, pensamentos ou qualquer forma de posicio
Re: [delphi-br] Enabled para todos os dbedits do form
Use: SuaQuery.DisableControls; // Desabilita todos os componentes visuais ligados a query SuaQuery.EnableControls; // Abilita todos os componentes visuais ligados a query Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: "Stock" <[EMAIL PROTECTED]> To: Sent: Monday, April 25, 2005 11:38 AM Subject: Res: [delphi-br] Enabled para todos os dbedits do form for l := 0 to ComponentCount -1 do begin if Components[l] is TDBEDIT then begin TDBEDIT(Components[l]).ENABLED:=FALSE; end; end; [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 ---Mensagem original--- De: NextCorp Informatica Data: 04/25/05 11:30:34 Para: Lista Dephi Egroups Assunto: [delphi-br] Enabled para todos os dbedits do form Caros colegas Necessito deixar como enabled:= false, a todos os dbedits do form de acordo com uma condicao. Como faco para desabilitar a todos os dbedit de uma so vez ? Atenciosamente Washington A. Müller da Silva # NextCorp Informática Ltda www.nextcorp.com.br [EMAIL PROTECTED] 0 xx (51)-589-3690 -- <<<<< 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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.2 - Release Date: 21/04/2005 . [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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.18 - Release Date: 19/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.18 - Release Date: 19/04/2005 [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 <*> 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] Criar pai-filho com paradox
Seria bom vc criar duas tabelas uma para o cadastro geral no usuario e outra para os emails assim: TABELA USUARIOS USU_CODIGO NOME ENDERECO TELEFONE CELULAR DATA_CAD TABELA EMAILS USU_CODIGO EMAIL Um exemplo de uso seria: SELECT U.NOME, E.EMAIL FROM USUARIOS U INNER JOIN EMAIL E ON (E.USU_CODIGO = U.USU_CODIGO) Resultado NOME EMAIL MARCOS [EMAIL PROTECTED] MARCOS [EMAIL PROTECTED] MARCOS [EMAIL PROTECTED] MARCOS [EMAIL PROTECTED] MARCIO [EMAIL PROTECTED] MARCIO [EMAIL PROTECTED] MARCIO [EMAIL PROTECTED] MARCIO [EMAIL PROTECTED] MARCIO [EMAIL PROTECTED] Acho que dão pra entender né :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Eduardo Silva ® To: Grupo Delhpi-br Sent: Wednesday, April 20, 2005 10:31 AM Subject: [delphi-br] Criar pai-filho com paradox Galera, como eu faço para criar uma opção para cadastrar vários e-mails de um mesmo usuário em um programinha usando delphi 5 + paradox, igual ao Outlook faz quando a gente cadastra mais de um e-mail ? Eu gostaria de saber que componentes usar para colocar na tela. Obrigado. ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Kobra Sistemas | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.16 - Release Date: 18/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.16 - Release Date: 18/04/2005 [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 <*> 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 rapido
Acho que essa discução já foi bem malhada aqui na lista e não chegou a nenhum veredito... Cada um vai defender sua tese... e seu banco... O que porcuro fazer é o seguinte, garantir meu emprego... se a empresa me perguntar qual banco é o melhor eu digo, aquele que cabe no seu bolso pois existem muitas ótimas opções... e por aí entra o custo X beneficio... Oracle - Excelente + Caro SLQ Server - Bom + Carrissimo fora a dependencia da MS Postgres - Ótimo e cabe no bolso Firebird - Ótimo e cabe no bolso Outros - Arrisquem quem quiser (mas dependendo da necessidade, porque não usar ?) Ou seja, não dá pra falar quem é bom ou ruim nesta história. pois cada uma tem suas particularidades que cabe ao DBA ou aos profissionais envolvidos pensar no melhor para a empresa levando em conta Custo + Benefício + a facilitação aos desenvolvedores, que vão guentar a bucha :-) * Dê um pincel e tinta a um artista e ele desenha um quadro pra vc, dê um lápis a esse mesmo artista e verá que ele é um artista de verdade. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Rodrigo Othavio Farias To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 19, 2005 9:44 AM Subject: Re: [delphi-br] Mais rapido E viva o desempenho mediocre do sistema, e eu to falando de banco de dados de verdade, paradox, dbisam, access nao sao banco de dados, agora eu quero ver alguém ter coragem migrar de um Oracle pra um Firebird. A economia de dinheiro nao vale a dor de cabeça, já que o Firebird ainda ta engatinhando em relação a recursos se comparado a outros bancos com mais tempo de mercado, e nao estou dizendo que ele é ruim, só que ainda é novo e precisa amadurecer mais. E achar que vai mudar de banco sem reescrever uma linha de código sql é ingenuidade, por mais que se tente usar o Ansi SQL todo banco tem particularidades, é utopia achar que jogando toda a regra de negocio na aplicação vc nao ter trabalho numa migração, o que vc vai ter é um sistema pobre e lento, pq não aproveita todo o potencial do Banco de Dados e vai ter retrabalho quando for migrar já que nenhum banco é 100% compativel com o outro, nem o Sybase é 100% com o SQL Server, e olha que eles são feitos numa mesma base, estilo Interbase e Firefox. []´s Rodrigo O. Farias - Original Message - From: Francisco Thiago To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 19, 2005 12:18 AM Subject: Re: [delphi-br] Mais rapido Pois eu nos meus três anos de experiência vi e ainda estou vendo muita gente migrar de Paradox, DBISAM (acho que é assim que escreve), MySQL, Acess (q nem é banco hehehe), e até mesmo de Oracle e SQLServer para Firebird por diversos motivos que fogem a retória da sua afirmação. Enfim, e dependendo dos cliente que você pretende pegar (fuleiros, pequenos, médios, grande ou gigantes) você fatalmente vai mudar de banco de dados. Seja por escolha sua ou do seu cliente... E cá entre nós, ficar reescrevendo código em banco é um pé nas partes... Viva a generalização! Thiago - Original Message - From: "Rodrigo Othavio Farias" <[EMAIL PROTECTED]> To: Sent: Monday, April 18, 2005 9:31 AM Subject: Re: [delphi-br] Mais rapido > > > Essa historia de ficar preso a banco é bobagem, eu nos meus 10 anos de > informatica nunca vi uma migração de banco, só atualização de versão, se a > empresa já tem um banco de dados relacional rodando dificilmente vai mudar > de fornecedor, e programar de modo transparente para varios bancos é > impossivel, ja que nenhum deles segue a risca a ISO SQL-92, todos fazem > "arrumações" para se diferenciar da concorrencia. > > Então eu prefiro utilizar a fundo a ferramenta de banco de dados que eu > tenho, já que geralmente meu cliente pagou caro por ela pra ter um > desempenho alto do que ficar com receio de uma possivel migração que pode > nunca ocorrer. > > Quanto aos recursos do banco bancos de verdade (Oracle, Sql-Server) hoje em > dia tem recursos avançados como programação em varias linguagens, então eu > nao me preocupo em usar SPs, se é pra ter resposta rapida do banco eu faço o > processamento nele, prefiro comcentrar meus gastos em um servidor de BD do > que ter que ter 300 estações mais parrudas pra rodar minha regras de > negocios, eu gasto muito menos se eu concentrar minhas regras de negocio no > servidor de BD e no servidor de aplicações, são só duas maquinas para gastar > com hardware e meus clients podem ser maquinas antigas e baratas. > > > []´s > Rodrigo O. Farias > - Original Message - > From: "João Paulo L.G." > To: delphi-br@yahoogrupos.com.br > Sent: Saturday, April 16, 2005 7:30 PM > Subject: Re: [delphi-br] Mais rapido > &
Re: [delphi-br] OFF - Matriz e filial
Colega se tiver paciencia para programar os componentes IDTcpServer e IDTcpClient são excelentes. Nele voce trabalha com Mult-Threads o que libera acesso para varias filiais na mesma porta do servidor. Eu tenho um sistema simples de vendas, onde é instalado nas lojas e essas fazem suas vendas direto na base (e olha que a base por questão de força maior, é DBF com ADS) Com estes componentes vc pode transmitir blocos de streams como a estrutura de uma tabela junto com os dados... é claro que se tratando de internet tudo deve ser avaliado e com muitos testes para se chegar a um consenso, mas a principio para uma transmissão pequena é excelente. Agora se vai partir para uma coisa mais robusta na internet... muitos vão discordar mas eu sempre sugiro PHP (o qual sempre uso), ASP ou .NET pois essas sim se dão muito bem com a net. Já tentei IntraWeb do Delphi mas confeço que é muito trabalhoso e o resultado visual deixa muito a desejar, eu recomendaria para trabalhos onde se exige muita segurança. *Fica aí meu comentário... *Depois de apanhar bastante cheguei a seguinte conclusão: PHP+Dreamweaver, a melhor combinação. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Tuesday, April 19, 2005 8:51 AM Subject: RES: [delphi-br] OFF - Matriz e filial cara, eu também tenho que fazer um troço assim aqui no projeto que tou mexendo mas tô empurrando isso com a barriga por não saber como fazê-lo usando o Indy. A ideia seria uma atualização via FTP []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 > -Mensagem original- > De: Rodrigo ®¿® [mailto:[EMAIL PROTECTED] > Enviada em: terça-feira, 19 de abril de 2005 08:46 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] OFF - Matriz e filial > > > > Boa Tarde colegas > > Preciso interligar 2 empresas , uma Matriz e outra filial , a > principio tentamos colocar ADSL , usando uma VPN , mas na cidade da > filial ainda não tem a disponibilidade da ADSL. > Então o que fazer ? , pensei em gerar um arquivo xml ou txt com a > informações da filial mandar para a matriz . O que acham ? > Como vou controlar se a filial alterar um telefone de um > cliente . > preciso atualizar na matriz , assim como da matriz preciso > atualizar na > filial !! Alguem tem alguma sugestão . > Uso Delphi 6 com IBX, Firebird > > Obrigado > > Rodrigo > > > > -- > <<<<< 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 > > > > > > > > [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.11 - Release Date: 14/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.11 - Release Date: 14/04/2005 [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 <*> 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: Abrir MDIForm já criado
No onclose do form coloque
SeuForm := nil;
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: moacirponti
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 18, 2005 4:06 PM
Subject: [delphi-br] Re: Abrir MDIForm já criado
Entendi. Fiz o que disse e funcionou bem. O estranho é que após a
criação de um form MDIChild e seu fechamento (Action:= caFree) - para
que não fique aparecendo na tela, o objeto não fica mais nulo (ou
seja form é <> nil).
Uma coisa que aconteceu é que agora posso criar muitos forms iguais
que ficam todos sob o MDIForm. Como controlar para que não seja
criado mais de um form igual?
--- Em delphi-br@yahoogrupos.com.br, "Marcelo Silva" <[EMAIL PROTECTED]>
escreveu
> Quando vc cria uma aplicação MDI esta deve ser composta de um
formulario fsMDIForm (como formulario principal) e os outros que vao
abrir dentro dele devem(nao necessariamente) ser fsMDIChild.
>
> Na criação dos MDIChilds só devem ir o comando:
> Application.CreateForm(TfmForm, fmForm);
> Não sendo necessário o ".Show" pois os MDIChilds ficam sempre
visiveis...
>
> Voce não pode fazer uma aplicação com mais de um Form fsMDIForm ou
seja, um é MDIForm e os outros devem ser fsMDIChild ou fsNormal ou
fsStayOnTop
>
> Se form fsStayOnTop este nao deve ser levantado com .Show ou
ShowModal pois ele é sempre visivel
> Já os outros fsNormal ou fsStayOnTop podem ser .Show
ou .ShowModal...
>
>
> Marcelo Silva
> Cel. 11 9693-4251
> ICQ - 49224093
> MSN [EMAIL PROTECTED]
>
>
> - Original Message -
> From: moacirponti
> To: delphi-br@yahoogrupos.com.br
> Sent: Monday, April 18, 2005 2:18 PM
> Subject: [delphi-br] Re: Abrir MDIForm já criado
>
>
>
>
>Você poderia descrever exatamente o que coloca em "// Aqui vc
faz
> outras coisas"?
>Tentei o BringToFront, bem como um Visible:= True antes do Show,
> mas continua dando Abstract Error quando chamo o "Show".
>
> Moacir.
>
>
> --- Em delphi-br@yahoogrupos.com.br, "Marcelo Silva" <[EMAIL PROTECTED]>
> escreveu
> > if (fmForm = nil) then begin
> > Application.CreateForm(TfmForm, fmForm);
> > // Aqui vc faz outras coisas
> > end else fmForm.BringToFront;
> >
> >
> > Formulários MDIChild não podem ficar Visible = false.
> >
> >
> > Marcelo Silva
> > Cel. 11 9693-4251
> > ICQ - 49224093
> > MSN [EMAIL PROTECTED]
> > - Original Message -
> > From: moacirponti
> > To: delphi-br@yahoogrupos.com.br
> > Sent: Monday, April 18, 2005 1:38 PM
> > Subject: [delphi-br] Abrir MDIForm já criado
> >
> >
> >
> > Olá.
> >
> > Estou desenvolvendo uma aplicação com forms no estilo MDI.
> Todos
> > os MDI deixo em Available Forms (e não em Auto-create). Quando
> tenho
> > de abrir um form, geralmente faço assim:
> >
> > // Início do código
> > try
> > fmForm.Show;
> > except
> > fmForm:= TfmForm.Create(Application);
> > try
> >fmForm.Show;
> > except
> >ShowMessage('Formulário não foi criado');
> >Abort;
> > end;
> > end;
> > // Fim do código
> >
> >
> > Mas acho ruim porque toda vez ele gera um erro para depois
> criar o
> > form. Tem alguma forma de saber se já foi criado e apenas exibi-
> lo?
> > Já tentei usar um (if fmForm <> nil), funciona bem da
primeira
> vez
> > (ele percebe que é nil e cria o form), mas quando fecho e abro
o
> > mesmo formulário, ele dá a mensagem: "Abstract Error" ou um
> Access
> > Violation.
> >
> > Obrigado,
> >
> > Moacir.
> >
> >
> >
> >
> >
> > --
> > <<<<< 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]
> >
> >
> >
> > Yahoo! Grupos, um serviço oferecido por:
> > PUBLICIDADE
Re: [delphi-br] Re: Abrir MDIForm já criado
Quando vc cria uma aplicação MDI esta deve ser composta de um formulario
fsMDIForm (como formulario principal) e os outros que vao abrir dentro dele
devem(nao necessariamente) ser fsMDIChild.
Na criação dos MDIChilds só devem ir o comando:
Application.CreateForm(TfmForm, fmForm);
Não sendo necessário o ".Show" pois os MDIChilds ficam sempre visiveis...
Voce não pode fazer uma aplicação com mais de um Form fsMDIForm ou seja, um é
MDIForm e os outros devem ser fsMDIChild ou fsNormal ou fsStayOnTop
Se form fsStayOnTop este nao deve ser levantado com .Show ou ShowModal pois ele
é sempre visivel
Já os outros fsNormal ou fsStayOnTop podem ser .Show ou .ShowModal...
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: moacirponti
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 18, 2005 2:18 PM
Subject: [delphi-br] Re: Abrir MDIForm já criado
Você poderia descrever exatamente o que coloca em "// Aqui vc faz
outras coisas"?
Tentei o BringToFront, bem como um Visible:= True antes do Show,
mas continua dando Abstract Error quando chamo o "Show".
Moacir.
--- Em delphi-br@yahoogrupos.com.br, "Marcelo Silva" <[EMAIL PROTECTED]>
escreveu
> if (fmForm = nil) then begin
> Application.CreateForm(TfmForm, fmForm);
> // Aqui vc faz outras coisas
> end else fmForm.BringToFront;
>
>
> Formulários MDIChild não podem ficar Visible = false.
>
>
> Marcelo Silva
> Cel. 11 9693-4251
> ICQ - 49224093
> MSN [EMAIL PROTECTED]
> - Original Message -
> From: moacirponti
> To: delphi-br@yahoogrupos.com.br
> Sent: Monday, April 18, 2005 1:38 PM
> Subject: [delphi-br] Abrir MDIForm já criado
>
>
>
> Olá.
>
> Estou desenvolvendo uma aplicação com forms no estilo MDI.
Todos
> os MDI deixo em Available Forms (e não em Auto-create). Quando
tenho
> de abrir um form, geralmente faço assim:
>
> // Início do código
> try
> fmForm.Show;
> except
> fmForm:= TfmForm.Create(Application);
> try
>fmForm.Show;
> except
>ShowMessage('Formulário não foi criado');
>Abort;
> end;
> end;
> // Fim do código
>
>
> Mas acho ruim porque toda vez ele gera um erro para depois
criar o
> form. Tem alguma forma de saber se já foi criado e apenas exibi-
lo?
> Já tentei usar um (if fmForm <> nil), funciona bem da primeira
vez
> (ele percebe que é nil e cria o form), mas quando fecho e abro o
> mesmo formulário, ele dá a mensagem: "Abstract Error" ou um
Access
> Violation.
>
> Obrigado,
>
> Moacir.
>
>
>
>
>
> --
> <<<<< 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]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
> PUBLICIDADE
>
>
>
>
>
--
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!.
>
>
>
>
>
--
>
>
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.308 / Virus Database: 266.9.11 - Release Date:
14/04/2005
>
> --
>
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.308 / Virus Database: 266.9.11 - Release Date:
14/04/2005
>
>
> [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]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
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]
Re: [delphi-br] Abrir MDIForm já criado
if (fmForm = nil) then begin
Application.CreateForm(TfmForm, fmForm);
// Aqui vc faz outras coisas
end else fmForm.BringToFront;
Formulários MDIChild não podem ficar Visible = false.
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: moacirponti
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 18, 2005 1:38 PM
Subject: [delphi-br] Abrir MDIForm já criado
Olá.
Estou desenvolvendo uma aplicação com forms no estilo MDI. Todos
os MDI deixo em Available Forms (e não em Auto-create). Quando tenho
de abrir um form, geralmente faço assim:
// Início do código
try
fmForm.Show;
except
fmForm:= TfmForm.Create(Application);
try
fmForm.Show;
except
ShowMessage('Formulário não foi criado');
Abort;
end;
end;
// Fim do código
Mas acho ruim porque toda vez ele gera um erro para depois criar o
form. Tem alguma forma de saber se já foi criado e apenas exibi-lo?
Já tentei usar um (if fmForm <> nil), funciona bem da primeira vez
(ele percebe que é nil e cria o form), mas quando fecho e abro o
mesmo formulário, ele dá a mensagem: "Abstract Error" ou um Access
Violation.
Obrigado,
Moacir.
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.11 - Release Date: 14/04/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.11 - Release Date: 14/04/2005
[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
<*> 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 rapido
Com certeza... - Original Message - From: Aldinei Simoes To: delphi-br@yahoogrupos.com.br Sent: Friday, April 15, 2005 12:10 PM Subject: [delphi-br] Mais rapido O que é mais rapido, uma query com INSERT, UPDATE ou DELETE, uma SP fazendo esse processos Aldinei -- < 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.10 - Release Date: 14/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.10 - Release Date: 14/04/2005 [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 <*> 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] Intraweb
Dependendo da necessidade eu nao sugiro nenhum dos dois e sim PHP :-) * Salvo de vc precisa mesmo dessas linguagens Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Rogerio To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 12, 2005 1:04 PM Subject: [delphi-br] Intraweb Olá pessoal, Gostaria de saber se vale a pena criar uma aplicação utilizando o intraweb ou melhor seria usar java ? Grato, Rogerio. -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.5 - Release Date: 07/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.5 - Release Date: 07/04/2005 [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 <*> 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] Realmente preciso de ajuda com a logica de dependencias
A lista nao aceita anexos... por favor envie para [EMAIL PROTECTED] - Original Message - From: Gabriel Ferrarini To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 12:22 PM Subject: Re: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Bom, na função recursiva você pode ao invés de montar o TreeView, montar um Memo e passar também como parâmetro as porcentagens e os valores bases para fazer o cálculo. Não entendi mito bem o seu cálculo de comissões, mas acho que se você conseguir passar o valor base e o percentual recursivamente (como parâmetros da função), você consegue montar o Memo. Em anexo segue um exemplo bem básico para você analisar. CLique em abrir dataset e depois em montar memo. Só para constar, se você for usar o método que eu passei, seria interessante passar o nível do vendedor também, para você colocar espaços antes dos nomes. Por exemplo: Marcelo Vendedor nível 0, 0x2 espaços, João nível 1, 1x2 espaços e por aí vai. Gabriel. - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 11:05 AM Subject: Re: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Acho que nao me expressei direito... Não preciso preencher um Treeview... Coloquei um Treeview como exemplo... O que preciso é montar essa estrutura em um Memo para a visualização. E junto com isso fazer o calculo de valores tipo: MARCELO - 100,00 (que é o % sobre quem esta abaixo dele) JOAO - 50,00 (idem) EPTAFIO - 40,00 (idem) MARCIO - 30,00 (idem) JOAQUIM - 20,00 (idem) ROBERTO - 10,00 (idem) FERNANDO - 0,00 (idem) Entendeu ? A minha dificuldade é fazer o calculo de comissões, já que quanto ao treeview eu posso usar um DBTreeview da suite JEDI *Mas estou analizando sua dica, pois parece muito boa Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Gabriel Ferrarini To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 10:20 AM Subject: Re: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Olá, Marcelo. Pelo que você passou, acho que você poderia usar uma matriz de adjacências e fazer uma função recursiva para montar o Treeview. Seria algo assim: Você tem uma matriz NxN onde N é seu número de vendedores. No seu exemplo são 7. Então você poderia fazer o seguinte: - Após declarar a matriz e preencher todos os seus elementos com 0 faça o laço abaixo. for I := 1 to DataSet.RecordCount do Matriz[DataSetVEN_PAI][DataSetVEN_COD] := 1; A matriz ficaria assim: 1 2 3 4 5 6 7 1 0 1 1 0 0 0 0 2 0 0 0 0 1 0 0 3 0 0 0 1 0 1 0 4 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 6 0 0 0 0 0 0 1 7 0 0 0 0 0 0 0 Os campos onde tem um, são os campos que indicam que o índice da linha é pai do índice da coluna. Daí você pode montar uma função recursiva a partir do primeiro registro chamando-a assim: MontaTreeView(TreeView, nil, DataSetVEN_COD.AsInteger); Não sembro dos métodos do treeview mas creio que seja algo assim: procedure MontaTreeView(TreeView: TTreeView; Node: TNode; Codigo: integer); begin // Aqui você cria o primeiro node, // adiciona o primeiro código, // verifica se ele possui filhos fazendo um for na linha correspondente ao número passado como parâmetro. // Se tiver você chama a função de novo, passando o mesmo treeview, o node criado e o código do filhos como parâmetro. Isso para cada filho end; Espero ter ajudado. Flw. Gabriel - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 9:34 AM Subject: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Pessoal, voces sabem que não costumo recorrer a lista dessa maneira, mas é que a cabeça vai fundir :-) Tenho uma tabela assim: VENDEDORES VEN_COD (PK) VEN_PAI VEN_NOME Atravez dessa tabela preciso montar uma rotina que me traga a descendencia (tipo arvore) como abaixo CODIGO CODIGO-PAI NOME 001 000 MARCELO 002 001 JOAO 003 001 MARCIO 004 003 JOAQUIM 005 002 EPITAFIO 006 003 ROBERTO 007 006 FERNANDO O resultado deve sair mais ou menos assim: MARCELO JOAO EPTAFIO MARCIO JOAQUIM ROBERTO FERNANDO Preciso montar esse treeview na mão
Re: [delphi-br] Realmente preciso de ajuda com a logica de dependencias
Acho que nao me expressei direito... Não preciso preencher um Treeview... Coloquei um Treeview como exemplo... O que preciso é montar essa estrutura em um Memo para a visualização. E junto com isso fazer o calculo de valores tipo: MARCELO - 100,00 (que é o % sobre quem esta abaixo dele) JOAO - 50,00 (idem) EPTAFIO - 40,00 (idem) MARCIO - 30,00 (idem) JOAQUIM - 20,00 (idem) ROBERTO - 10,00 (idem) FERNANDO - 0,00 (idem) Entendeu ? A minha dificuldade é fazer o calculo de comissões, já que quanto ao treeview eu posso usar um DBTreeview da suite JEDI *Mas estou analizando sua dica, pois parece muito boa Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Gabriel Ferrarini To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 10:20 AM Subject: Re: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Olá, Marcelo. Pelo que você passou, acho que você poderia usar uma matriz de adjacências e fazer uma função recursiva para montar o Treeview. Seria algo assim: Você tem uma matriz NxN onde N é seu número de vendedores. No seu exemplo são 7. Então você poderia fazer o seguinte: - Após declarar a matriz e preencher todos os seus elementos com 0 faça o laço abaixo. for I := 1 to DataSet.RecordCount do Matriz[DataSetVEN_PAI][DataSetVEN_COD] := 1; A matriz ficaria assim: 1 2 3 4 5 6 7 1 0 1 1 0 0 0 0 2 0 0 0 0 1 0 0 3 0 0 0 1 0 1 0 4 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 6 0 0 0 0 0 0 1 7 0 0 0 0 0 0 0 Os campos onde tem um, são os campos que indicam que o índice da linha é pai do índice da coluna. Daí você pode montar uma função recursiva a partir do primeiro registro chamando-a assim: MontaTreeView(TreeView, nil, DataSetVEN_COD.AsInteger); Não sembro dos métodos do treeview mas creio que seja algo assim: procedure MontaTreeView(TreeView: TTreeView; Node: TNode; Codigo: integer); begin // Aqui você cria o primeiro node, // adiciona o primeiro código, // verifica se ele possui filhos fazendo um for na linha correspondente ao número passado como parâmetro. // Se tiver você chama a função de novo, passando o mesmo treeview, o node criado e o código do filhos como parâmetro. Isso para cada filho end; Espero ter ajudado. Flw. Gabriel - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 9:34 AM Subject: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Pessoal, voces sabem que não costumo recorrer a lista dessa maneira, mas é que a cabeça vai fundir :-) Tenho uma tabela assim: VENDEDORES VEN_COD (PK) VEN_PAI VEN_NOME Atravez dessa tabela preciso montar uma rotina que me traga a descendencia (tipo arvore) como abaixo CODIGO CODIGO-PAI NOME 001 000 MARCELO 002 001 JOAO 003 001 MARCIO 004 003 JOAQUIM 005 002 EPITAFIO 006 003 ROBERTO 007 006 FERNANDO O resultado deve sair mais ou menos assim: MARCELO JOAO EPTAFIO MARCIO JOAQUIM ROBERTO FERNANDO Preciso montar esse treeview na mão... pois preciso calcular o ganhos de cada vendedor para saber quanto o superior dele tem a ganhar. * Se estiver faltando alguma coisa na estrutura de tabelas estou atento as dicas do colegas -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/2005 [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/grou
[delphi-br] Realmente preciso de ajuda com a logica de dependencias
Pessoal, voces sabem que não costumo recorrer a lista dessa maneira, mas é que a cabeça vai fundir :-) Tenho uma tabela assim: VENDEDORES VEN_COD (PK) VEN_PAI VEN_NOME Atravez dessa tabela preciso montar uma rotina que me traga a descendencia (tipo arvore) como abaixo CODIGO CODIGO-PAI NOME 001 000 MARCELO 002 001 JOAO 003 001 MARCIO 004 003 JOAQUIM 005 002 EPITAFIO 006 003 ROBERTO 007 006 FERNANDO O resultado deve sair mais ou menos assim: MARCELO JOAO EPTAFIO MARCIO JOAQUIM ROBERTO FERNANDO Preciso montar esse treeview na mão... pois preciso calcular o ganhos de cada vendedor para saber quanto o superior dele tem a ganhar. * Se estiver faltando alguma coisa na estrutura de tabelas estou atento as dicas do colegas Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/2005 [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 <*> 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] Como fazer um GROUP BY nao mão ?
Não colega... o que quero é fazer em um while... pois é para ser usao em PHP Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: fernando To: delphi-br@yahoogrupos.com.br Sent: Monday, March 21, 2005 5:57 PM Subject: Res: [delphi-br] Como fazer um GROUP BY nao mão ? select coluna1,colun2,coluna3, sum(debitos) from tabela where <> group by coluna1,colun2,coluna3 ---Mensagem original--- De: delphi-br@yahoogrupos.com.br Data: 03/21/05 17:22:23 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Como fazer um GROUP BY nao mão ? Pessoal tenho a seguinte situação: Tenho um relatorio assim SELECT DAT_LAN, DAT_VEN, COD_CLI, DESCRICAO FROM DEBITOS WHERE DAT_VEN BETWEEN '01/01/2005' AND '31/01/2005' Desta forma eu trago todos os débitos entre datas O detralhe é que preciso fazer o agrupamento e somatória em cada data Por exemplo: Dia Tal = Total Lembra do velho Clipper ? Pois é ... eu não aprendi o danado :-) Alguém teria uma sugestão, NAO POSSO USAR PROGRAMAS DE RELATORIO POIS TEM QUE GERAR UM ARQUIVO TEXTO PURO. Mais ou menos assim 01/01/2005 vendas 1 vendas 2 vendas 3 TOTAL = X 02/01/2005 vendas 1 vendas 2 vendas 3 TOTAL = X E assim por diante Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/2005 [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] Yahoo! Grupos, um serviço oferecido por: 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 Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.4 - Release Date: 18/3/2005 [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/2005 [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 <*> 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
[delphi-br] Como fazer um GROUP BY nao mão ?
Pessoal tenho a seguinte situação: Tenho um relatorio assim SELECT DAT_LAN, DAT_VEN, COD_CLI, DESCRICAO FROM DEBITOS WHERE DAT_VEN BETWEEN '01/01/2005' AND '31/01/2005' Desta forma eu trago todos os débitos entre datas O detralhe é que preciso fazer o agrupamento e somatória em cada data Por exemplo: Dia Tal = Total Lembra do velho Clipper ? Pois é ... eu não aprendi o danado :-) Alguém teria uma sugestão, NAO POSSO USAR PROGRAMAS DE RELATORIO POIS TEM QUE GERAR UM ARQUIVO TEXTO PURO. Mais ou menos assim 01/01/2005 vendas 1 vendas 2 vendas 3 TOTAL = X 02/01/2005 vendas 1 vendas 2 vendas 3 TOTAL = X E assim por diante Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/2005 [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 <*> 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] Paradox no Conectiva 8 - Como configurar? (se tem como)
Como o colega sugeriu... colocar numa pasta compartilhada no Linux e vai pro abraço Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Francisco Thiago To: delphi-br@yahoogrupos.com.br Sent: Monday, March 14, 2005 12:08 PM Subject: [delphi-br] Paradox no Conectiva 8 - Como configurar? (se tem como) Caros amigos, Eu não sei NADA de Linux! e o meu patrão acabou de me perguntar como seria um programa rodando num cliente Windows e com servidor Conectiva 8... porém, os dados estão no Paradox. Como funciona a configuração disso? Tem como mapear unidade de rede? (acredito que não.. mas.. sei lá!) Alguém aqui faz? Sabe como fazer??? Obrigado Thiago -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 09/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 09/03/2005 [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 <*> 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] Duv. ref. Delphi + ADS
Eu uso ADS... Como está fazendo, utilizando o AdsConnection e um AdsSettings ? O que exatamente você pretende fazer ? A mesma aplicação conectar em servidores diferentes ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Leonardo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 08, 2005 11:12 AM Subject: [delphi-br] Duv. ref. Delphi + ADS Desenvolvi um programa para acessar bases DBF via ADS(Advantage Data Server). Sao 02 conexoes - 2 servidores com ADS Ao conectar o 01 utilizar TAds Connection com o parametro AdsServerType como stAds_Remote mas no segundo ele me traz uma mensagem de erro "Invalid open Mode" mas quando coloco como stAds_Local ele conecta. Não posso conectar como local Os dois Servidores ADS sao da mesma versao 6.2 Ja verifique o ADS.INI e esta a mesma coisa Alguem trabalha com isto e tem alguma dica ??? S.O. : Windows 2000 Server Agradeço desde ja Leoanrdo -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.6.2 - Release Date: 04/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.6.2 - Release Date: 04/03/2005 [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 <*> 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
[delphi-br] HP 2200 ( Como imprimir os dois lados ? )
Pessoal eu utilizo o QReport para fazer um relatório que é impresso nas duas faces da folha...só que fazemos isso de forma manual... Alguém teria idéia de como fazer a HP 2.200 Laser imprimir as duas faces da folha ( pag. 1 e pag 2 ... ) ? A impressora possue este recurso... Alguém já fez isso com o QuickReport ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.6.2 - Release Date: 04/03/2005 [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 <*> 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
[delphi-br] QReport gera erro ! (Como evitar ?)
Tenho Dois relatórios em QReport (que ainda nao posso passar para o Fortes) Quando tento abrir o projeto e a impressora de rede que está ligada a ele não está disponível ele gera erro e não consigo editar o tal Relatório. Alguém sabe de algum macete que eu posso trabalhar com o QReport sem impressora instalada, ou seja só em tempo de projeto, sem que ele gere esse erro ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.6.2 - Release Date: 04/03/2005 [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 <*> 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] MessageDlg com "Não" como default
Tem esse personalizado :-)
Criando seu proprio MessageDialog
procedure TForm1.Button1Click(Sender: TObject);
var
MsgMarc: TForm;
begin
// Bem agora nossa Msg é um Form, então está com todas as facilidades deste.
MsgMarc := CreateMessageDialog('Marcelo da Silva
Sauro',mtInformation,mbOKCancel);
// Faz a ancora para centralizar os botoes
TButton(MsgMarc.Components[2]).Anchors := [akLeft,akRight]-[akLeft,akRight];
TButton(MsgMarc.Components[3]).Anchors := [akLeft,akRight]-[akLeft,akRight];
// Cumprimento da mensagem
MsgMarc.Width := 300;
// Um exemplo é que podemos modificar as fontes.
MsgMarc.Font.Color := clRed;
// Tambem podemos modificar o Caption
MsgMarc.Caption := 'Minha mensagem';
// Um Msg é composto por Label e Buttons então vamos fazer uso disso
TLabel(MsgMarc.Components[1]).Font.Style := [fsBold];
TLabel(MsgMarc.Components[1]).WordWrap := False;
TButton(MsgMarc.Components[2]).Caption := 'ACEITAR';
TButton(MsgMarc.Components[3]).Caption := 'FINALIZAR';
// Deixa o segundo botão ativo
MsgMarc.ActiveControl := TButton(MsgMarc.Components[3]);
// Agora é só exibir nosso Dialog personalizado
MsgMarc.ShowModal;
// Bem fica a cada um adicionar sua personalização :-)
end;
- Original Message -
From: Osmar de Souza Júnior
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 04, 2005 8:38 AM
Subject: [delphi-br] MessageDlg com "Não" como default
Queria fazer um MessageDlg com o botão "No" vindo com o foco.
Vi no help do Delphi:
MessageDlg('mensagem olá', mtWarning, [mbYes,mbNo], 0, mbNo)
Mas dá erro dizendo que têm parâmetros demais na funçã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]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005
[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
<*> 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] [CONTRIBUIÇÃO] Automatizar processos OnClose do Form
Com o seria isso ? - Original Message - From: Campus To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 03, 2005 9:41 AM Subject: Re: [delphi-br] [CONTRIBUIÇÃO] Automatizar processos OnClose do Form tu não pensou num componente para isso, ou criar um form descendente de TForm, com um método destoy disparado no evento onclose ? - Original Message - From: "Marcelo Silva" <[EMAIL PROTECTED]> To: Sent: Thursday, March 03, 2005 8:57 AM Subject: [delphi-br] [CONTRIBUIÇÃO] Automatizar processos OnClose do Form Pessoal... meu lema é escrever pouco e deixar o computador trabalhar por mim :-) (já que ele foi feito pra isso) Então segue uma dica para aqueles que tem este mesmo conceito de deixar seu projeto mais "enxuto" Levantei a Thread :-) com relação a Automatizar a abertura e fechamento de Forms. Imagino que o Delphi até já tenha esta função embutida... pois é a rotina mais usada em qualquer aplicação... mas ainda não encontrei. Coloque esta função naquela Unit de funções plubicas que vc deve ter... (pois não seria vantajoso colocar para um unico form) Bem aí vai minha dica: procedure MostraLiberaForm(pForm: TForm; cForm: TFormClass); begin pForm := cForm.Create(nil); // Aqui vc pode usar Self, Application, ou nil try pForm.ShowModal; // Nao funciona para form Show, pois o mesmo não para aqui e será liberado finally pForm.Free; // Só libera quando o ShowModal é fechado. end; end; Para utiliza-la: MostraLiberaForm(SeuForm, TSeuForm); Esta função deve ser usada naqueles forms que não tem nenhuma rotina antes da sua abertura (por ser ShowModal)... ou a tal rotina deve estar no OnCreate do Form em questão. * Rotina sujeita a mudanças sem prévio aviso :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 02, 2005 6:24 PM Subject: Re: [delphi-br] Automatizar processos OnClose do Form Free -- serve para o Objeto que não tenha um dono... por exemplo var MinhaLista: TStringList; begin MinhaLista := TStringList.Create; MinhaLista.Blablabla... MinhaLista.Free; end; MinhaLista é dona dela mesma... assim não depende de outra instancia e pode ser liberada da memoria sem erros. Outro exemplo SeuForm := TSeuForm.Create(nil); Try SeuForm.ShowModal; finally SeuForm.Free; end; SeuForm é dono dele mesmo... o que seria diferente de: Application.CreateForm(TSeuForm, SeuForm); Desta forma Application é dona do SeuForm e teria que ser destruido assim SeuForm.Release; // Aguarda todos os processos(componentes e variaveis) pendendentes dentro dele. SeuForm := Nil; // Limpa a variável SeuForm para poder ser Recriada Se usar Free neste caso poderá causar violation por outros componentes estarem dependentes do SeuForm Observe que se voce nao utilizar Release e Nil neste caso, sera criado um outro form com o nome SeuForm_1 e assim por diante. Se for usar aplicações MDI use Free ... do contrário use Release e Nil Pelo menos é o que eu entendi no Help do Delphi como segue abaixo: E estou pronto para novas ideias :-) Description Use Free to destroy an object. Free automatically calls the destructor if the object reference is not nil. Any object instantiated at runtime that does not have an owner should be destroyed by a call to Free so that it can be properly disposed of and its memory released. Unlike Destroy, Free is successful even if the object is nil; so if the object was never initialized, Free won't result in an error. When you call Free for a component, it calls Free for all components that it owns-that is, all components in its component list. Since a form owns all the controls and other components that are created on it in design mode, those components are automatically freed when the form is freed. By default, all forms are owned by the Application object; when the application terminates, it frees the Application object, which frees all forms. For objects that are not components, or for components created with a nil owner, be sure to call Free after you are finished with them; otherwise the allocated memory will not be usable until after the application terminates. Warning: Never explicitly free a component within one of its own event handlers or the event handler of a component it owns or contains. For example, don't free a button, or the form that owns the button, in its OnClick event handler. To free a form, call its Release method, which destroys the form and releases the memory allocated for it after all its event handlers and those of the components it contains are through executing. - Origi
[delphi-br] [CONTRIBUIÇÃO] Automatizar processos OnClose do Form
Pessoal... meu lema é escrever pouco e deixar o computador trabalhar por mim :-) (já que ele foi feito pra isso) Então segue uma dica para aqueles que tem este mesmo conceito de deixar seu projeto mais "enxuto" Levantei a Thread :-) com relação a Automatizar a abertura e fechamento de Forms. Imagino que o Delphi até já tenha esta função embutida... pois é a rotina mais usada em qualquer aplicação... mas ainda não encontrei. Coloque esta função naquela Unit de funções plubicas que vc deve ter... (pois não seria vantajoso colocar para um unico form) Bem aí vai minha dica: procedure MostraLiberaForm(pForm: TForm; cForm: TFormClass); begin pForm := cForm.Create(nil); // Aqui vc pode usar Self, Application, ou nil try pForm.ShowModal; // Nao funciona para form Show, pois o mesmo não para aqui e será liberado finally pForm.Free; // Só libera quando o ShowModal é fechado. end; end; Para utiliza-la: MostraLiberaForm(SeuForm, TSeuForm); Esta função deve ser usada naqueles forms que não tem nenhuma rotina antes da sua abertura (por ser ShowModal)... ou a tal rotina deve estar no OnCreate do Form em questão. * Rotina sujeita a mudanças sem prévio aviso :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 02, 2005 6:24 PM Subject: Re: [delphi-br] Automatizar processos OnClose do Form Free -- serve para o Objeto que não tenha um dono... por exemplo var MinhaLista: TStringList; begin MinhaLista := TStringList.Create; MinhaLista.Blablabla... MinhaLista.Free; end; MinhaLista é dona dela mesma... assim não depende de outra instancia e pode ser liberada da memoria sem erros. Outro exemplo SeuForm := TSeuForm.Create(nil); Try SeuForm.ShowModal; finally SeuForm.Free; end; SeuForm é dono dele mesmo... o que seria diferente de: Application.CreateForm(TSeuForm, SeuForm); Desta forma Application é dona do SeuForm e teria que ser destruido assim SeuForm.Release; // Aguarda todos os processos(componentes e variaveis) pendendentes dentro dele. SeuForm := Nil; // Limpa a variável SeuForm para poder ser Recriada Se usar Free neste caso poderá causar violation por outros componentes estarem dependentes do SeuForm Observe que se voce nao utilizar Release e Nil neste caso, sera criado um outro form com o nome SeuForm_1 e assim por diante. Se for usar aplicações MDI use Free ... do contrário use Release e Nil Pelo menos é o que eu entendi no Help do Delphi como segue abaixo: E estou pronto para novas ideias :-) Description Use Free to destroy an object. Free automatically calls the destructor if the object reference is not nil. Any object instantiated at runtime that does not have an owner should be destroyed by a call to Free so that it can be properly disposed of and its memory released. Unlike Destroy, Free is successful even if the object is nil; so if the object was never initialized, Free won't result in an error. When you call Free for a component, it calls Free for all components that it owns-that is, all components in its component list. Since a form owns all the controls and other components that are created on it in design mode, those components are automatically freed when the form is freed. By default, all forms are owned by the Application object; when the application terminates, it frees the Application object, which frees all forms. For objects that are not components, or for components created with a nil owner, be sure to call Free after you are finished with them; otherwise the allocated memory will not be usable until after the application terminates. Warning: Never explicitly free a component within one of its own event handlers or the event handler of a component it owns or contains. For example, don't free a button, or the form that owns the button, in its OnClick event handler. To free a form, call its Release method, which destroys the form and releases the memory allocated for it after all its event handlers and those of the components it contains are through executing. - Original Message - From: Fabio Giro To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 02, 2005 9:53 AM Subject: Re: [delphi-br] Automatizar processos OnClose do Form Marcelo, muito boa a sua explicação. Poderia me informar como funciona o Free. Obrigado antecipadamente. - Original Message - From: "Marcelo Silva" <[EMAIL PROTECTED]> To: Sent: Wednesday, March 02, 2005 9:38 AM Subject: Re: [delphi-br] Automatizar processos OnClose do Form Se você não utilizar Release o formulario será imediatamente destruido... o que poderá causar um Access Violation por alguns componentes ainda estarem na memória ou aquele endereço irá d
Re: [delphi-br] Ponteiros
Procure no "Dicas e Truques Delphi" sobre ponteiro e você vai entender melhor. Só um pedacinho...: type PLinha = ^TLinha; TLinha = record coluna1 : string; coluna2 : string; end; Foi criado um tipo PLinha que será um ponteiro para TLinha, esta jogada funciona muito bem para programas que devem trabalhar com uma grande quantidade de dados em memória, já que as informações serão armazenadas fora do segmento de dados de seu programa,... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Campus To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 03, 2005 7:59 AM Subject: Re: [delphi-br] Ponteiros João, para mim um objeto é uma instância de uma classe, (acho que quanto a isso não tem divergência), e uma classe é a definição de um objeto. A classe TButton não aponta para nada, ela é a definição do objeto, com seus atributos e métodos. A declaração: var Button1: TButton; Button2: TButton; Button3: TButton; cria 3 objetos da clase TButton, mas TButton não aponta para nenhuma das 3. - Original Message - From: "Joao Morais" <[EMAIL PROTECTED]> To: Sent: Wednesday, March 02, 2005 11:49 PM Subject: Re: [delphi-br] Ponteiros > > Clayton Bonelli wrote: > > > Desculpe ser chato quanto a isso, ou mesmo muito purista do conceito. > > > > Vejamos o seguinte: por definicao um ponteiro corresponde ao endereco onde > > uma informacao se encontra na memoria, sendo assim, uma declaracao como a > > seguinte: > > > > var > > x : ^Integer; > > > > significa que a variavel "X" possui dentro de si, o endereco onde um integer > > (a informacao) esta localizado na memoria. > > > > Por outro lado, a definicao abaixo: > > > > var > >x : TButton; > > > > significa que "x" eh uma referencia, nao um ponteiro, para uma instancia da > > class TButton. Qual a diferenca entre referencia de objetos e ponteiros? > > Ponteiro aponta para onde a informacao esta na memoria. Referencia de > > objetos eh um endereco que PODE ser o local na memoria onde a informacao > > esta localizada, como PODE ser o endereco de uma estrutura de memoria que > > conteria o endereco do botao (TButton). Eh a implementacao da linguagem que > > vai determinar se uma referencia de objeto funciona exatamente igual ao > > conceito de um ponteiro, ou a referencia conteria dentro de si o endereco de > > alguma outra coisa. Esta outra coisa seria uma estrutura que conteria o > > endereco da informacao. Dizer que um objeto eh um ponteiro nao esta > > totalmente correto. Se for pensar apenas que ponteiros e referencias de > > objeto, possuem dentro de si enderecos de memoria, entao os conceitos sao > > iguais. Mas, se formos analisar a semantica da coisa toda, os conceitos sao > > diferentes. > > > > Resumindo de forma mais simples: Um ponteiro aponta diretamente para a > > informacao; Uma referencia de objetos, seria um ponteiro de ponteiros. > > > > Desculpe pel e-mail tao grande > > Clayton, > > uma classe é um ponteiro porque aponta para um objeto. Um objeto não é > ponteiro, objeto é objeto. Você está certo ao dizer que uma classe pode > apontar para algo que não é exatamente um TButton (citando seu exemplo), > mas irá apontar para uma estrutura semelhante (uma super-classe de > TButton), mas aponta, o alvo será um objeto, portanto o seu 'x' será um > ponteiro. > > Eu ainda acabei por não compreender direito o que você quer dizer com > referência de objetos. Pra mim, dizer 'uma referência a uma instância de > TButton' é o mesmo que dizer 'um ponteiro para uma instância de TButton' > (ou seja, para um objeto). Estou utilizando os conceitos do Object Pascal. > > > -- > João Morais > > > -- > <<<<< 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair
Re: [delphi-br] Automatizar processos OnClose do Form
Free -- serve para o Objeto que não tenha um dono... por exemplo
var
MinhaLista: TStringList;
begin
MinhaLista := TStringList.Create;
MinhaLista.Blablabla...
MinhaLista.Free;
end;
MinhaLista é dona dela mesma... assim não depende de outra instancia e pode ser
liberada da memoria sem erros.
Outro exemplo
SeuForm := TSeuForm.Create(nil);
Try
SeuForm.ShowModal;
finally
SeuForm.Free;
end;
SeuForm é dono dele mesmo... o que seria diferente de:
Application.CreateForm(TSeuForm, SeuForm);
Desta forma Application é dona do SeuForm e teria que ser destruido assim
SeuForm.Release; // Aguarda todos os processos(componentes e variaveis)
pendendentes dentro dele.
SeuForm := Nil; // Limpa a variável SeuForm para poder ser Recriada
Se usar Free neste caso poderá causar violation por outros componentes estarem
dependentes do SeuForm
Observe que se voce nao utilizar Release e Nil neste caso, sera criado um outro
form com o nome SeuForm_1 e assim por diante.
Se for usar aplicações MDI use Free ... do contrário use Release e Nil
Pelo menos é o que eu entendi no Help do Delphi como segue abaixo: E estou
pronto para novas ideias :-)
Description
Use Free to destroy an object. Free automatically calls the destructor if the
object reference is not nil. Any object instantiated at runtime that does not
have an owner should be destroyed by a call to Free so that it can be properly
disposed of and its memory released. Unlike Destroy, Free is successful even if
the object is nil; so if the object was never initialized, Free won't result in
an error.
When you call Free for a component, it calls Free for all components that it
owns-that is, all components in its component list. Since a form owns all the
controls and other components that are created on it in design mode, those
components are automatically freed when the form is freed. By default, all
forms are owned by the Application object; when the application terminates, it
frees the Application object, which frees all forms. For objects that are not
components, or for components created with a nil owner, be sure to call Free
after you are finished with them; otherwise the allocated memory will not be
usable until after the application terminates.
Warning: Never explicitly free a component within one of its own event handlers
or the event handler of a component it owns or contains. For example, don't
free a button, or the form that owns the button, in its OnClick event handler.
To free a form, call its Release method, which destroys the form and releases
the memory allocated for it after all its event handlers and those of the
components it contains are through executing.
- Original Message -
From: Fabio Giro
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 02, 2005 9:53 AM
Subject: Re: [delphi-br] Automatizar processos OnClose do Form
Marcelo, muito boa a sua explicação. Poderia me informar como funciona o
Free.
Obrigado antecipadamente.
- Original Message -
From: "Marcelo Silva" <[EMAIL PROTECTED]>
To:
Sent: Wednesday, March 02, 2005 9:38 AM
Subject: Re: [delphi-br] Automatizar processos OnClose do Form
Se você não utilizar Release o formulario será imediatamente destruido... o
que poderá causar um Access Violation por alguns componentes ainda estarem
na memória ou aquele endereço irá demorar para estar disponível a outro
solicitante.
É como você mandar um arquivo para a lixeira... ele pode estar na lixeira
mas o espaço por ele utilizado ainda não está livre. Mas sim, só depois de
ele ser excluído da lixeira.
Se voce usar Release ele aguarda que todos os processos relativos aquele
Form seja finalizado depois executando Nil você arranca de vez o formulario
da memória e libera o endereço da mesma.
* Lembre-se de que apesar de os componentes estarem dentro do formulário...
cada um utiliza um endereço na memória quando abertos, por isso a
necessidade da espera até que eles sejam descaregados.
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: Wildner B. Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 02, 2005 9:26 AM
Subject: RES: [delphi-br] Automatizar processos OnClose do Form
Para liberar o form da memoria a realmente a necessidade de estar
utilizando
o form.release ????
_____
De: Marcelo Silva [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 2 de março de 2005 09:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Automatizar processos OnClose do Form
Pessoal em todos os Forms temos que colocar Release e nil para liberar os
formularios da memória...
A pergunta é...
Teria como automatizar para que a aplicação liberasse o formulario da
memória de forma automática ?
Ou seja, detectar que form está sendo fechado e dar um
Form?.Release;
Re: [delphi-br] Problema de Focus
Ja experimentou colocar
Application.ProcessMessages; // Antes do winexec...
WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -a -r "NOME DO
ARQUIVO.ZIP'" '+'PASTA DESTINO),SW_HIDE);
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: Futura System Informática
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 02, 2005 12:07 PM
Subject: Re: [delphi-br] Problema de Focus
Pessoal continuo com o problema do focu no form depois que rodo o WinExec com
Winzip para compactar alguns arquivos:
WinExec(PChar('c:\Arquivos de Programas\WinZip\WinZip32 -min -a -r "NOME DO
ARQUIVO.ZIP'" '+'PASTA DESTINO),SW_HIDE);
O problema é que quando rodo esses comando o sistema sai de focu, e não
mostra mais as outras mensagem e o Gauge/ProgressBar1 que disparo para o form,
a tela simplesmente fica em branco até o final do processo, alguém já passou
por isso, agradeço qualquer ajuda.
Sérgio Toshio Kawahara
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005
[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
<*> 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] Automatizar processos OnClose do Form
A pesar do caFree se propor a fazer isso e estar no help do Delphi... não sei porque mas ele não é tão eficiente como o Release e Nil... Já em aplicações MDI - o que não é o meu caso - o caFree é perfeito... Bem imagino então que a forma como você vai limpar o Form da memória está relacionado com a forma de você cria-lo - MDI ou ShowModal Quanto ao Walter já usei esta maneira com Try... mas quando você tem que fazer manutênção você tem que ficar procurando de qual botão ou menu está sendo aberto o determinado Form aí é fuguete... colocando no OnClose eu vou direto no danado... já que deixo um espaço no StatusBar com o nome do Form aberto. Bem de qualquer forma todos os pontos de vista são válidos... e fazem a lista ficar melhor a cada dia... obrigado pelo ajuda de todos... E... a saga continua :-) "Como detectar a hora em que um Form está sendo fechado..." Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 02, 2005 9:35 AM Subject: Re: [delphi-br] Automatizar processos OnClose do Form Marcelo Silva wrote: > Pessoal em todos os Forms temos que colocar Release e nil para liberar os formularios da memória... > A pergunta é... > Teria como automatizar para que a aplicação liberasse o formulario da memória de forma automática ? > Ou seja, detectar que form está sendo fechado e dar um > > Form?.Release; > Form? := nil; > > Será que tem ? Coloque um Action:=caFree; no evento OnClose do formulário. Se você trabalha com herança de formulários, basta colocar no form que herda diretamente de TForm. -- João Morais -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005 [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 <*> 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] Automatizar processos OnClose do Form
Se você não utilizar Release o formulario será imediatamente destruido... o que poderá causar um Access Violation por alguns componentes ainda estarem na memória ou aquele endereço irá demorar para estar disponível a outro solicitante. É como você mandar um arquivo para a lixeira... ele pode estar na lixeira mas o espaço por ele utilizado ainda não está livre. Mas sim, só depois de ele ser excluído da lixeira. Se voce usar Release ele aguarda que todos os processos relativos aquele Form seja finalizado depois executando Nil você arranca de vez o formulario da memória e libera o endereço da mesma. * Lembre-se de que apesar de os componentes estarem dentro do formulário... cada um utiliza um endereço na memória quando abertos, por isso a necessidade da espera até que eles sejam descaregados. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Wildner B. Ferreira To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 02, 2005 9:26 AM Subject: RES: [delphi-br] Automatizar processos OnClose do Form Para liberar o form da memoria a realmente a necessidade de estar utilizando o form.release _ De: Marcelo Silva [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 2 de março de 2005 09:18 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Automatizar processos OnClose do Form Pessoal em todos os Forms temos que colocar Release e nil para liberar os formularios da memória... A pergunta é... Teria como automatizar para que a aplicação liberasse o formulario da memória de forma automática ? Ou seja, detectar que form está sendo fechado e dar um Form?.Release; Form? := nil; Será que tem ? Eu já consigo saber qual formulário está sendo executado, mas não consigo detectar quando foi pedido para fechar... se eu souber quando ocorre este evento... aí fica belesma... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005 [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] Yahoo! Grupos, um serviço oferecido por: <http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif> <http://br.rd.yahoo.com/SIG=12ajj3q7i/M=264105.3931087.6562589.1588051/D=brc lubs/S=2137111264:HM/EXP=1109852332/A=2361264/R=6/SIG=10v4acpp0/*http:/br.sh opping.yahoo.com/> _ 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] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos <http://br.yahoo.com/info/utos.html> do Serviço do Yahoo!. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005 [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 <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/g
[delphi-br] Automatizar processos OnClose do Form
Pessoal em todos os Forms temos que colocar Release e nil para liberar os formularios da memória... A pergunta é... Teria como automatizar para que a aplicação liberasse o formulario da memória de forma automática ? Ou seja, detectar que form está sendo fechado e dar um Form?.Release; Form? := nil; Será que tem ? Eu já consigo saber qual formulário está sendo executado, mas não consigo detectar quando foi pedido para fechar... se eu souber quando ocorre este evento... aí fica belesma... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.4 - Release Date: 01/03/2005 [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 <*> 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] Amigos Paradoxianos
Primeiro instale um novo protocolo de rede o velho IPX / NetBios Ele fará uma mudança no seu Autoexec.nt que ficara mais ou menos assim: @echo off REM AUTOEXEC.BAT nao , usado para inicializar o ambiente MS-DOS. REM AUTOEXEC.NT , usado para inicializar o ambiente MS-DOS, a nao REM ser que se especifique um arquivo de inicializa?ao diferente REM no arquivo de informa?oes de programa (PIF) do aplicativo. REM Instalar as extensoes CD ROM lh %SystemRoot%\system32\mscdexnt.exe REM Instalar o redirecionador da rede (carregar antes do dosx.exe) lh %SystemRoot%\system32\redir REM Instalar o suporte DPMI lh %SystemRoot%\system32\dosx > O Config.nt ficará com o final assim ... REM EMM ignorada. REM dos=high, umb device=%SystemRoot%\system32\himem.sys files=40 Desta forma os gerenciadores de memoria estarao prontos para executar seu aplicativos Clipper desta forma prontos para executar a base paradox no win98 []'s Marcelo Silva - Original Message - From: info.Desenvolvimento To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 01, 2005 6:01 PM Subject: Re: [delphi-br] Amigos Paradoxianos Passa o macete pra nós então como tu conseguiu fazer rodar Windows XP como CLIENTE e Windows 98 como SERVIDOR? [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.1 - Release Date: 27/2/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.1 - Release Date: 27/2/2005 [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 <*> 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
[delphi-br] Leitura de cartão (via tarja magnetica com leitor)
Pessoal alguém já fez uma rotina para fazer a leitura de cartão de crédito lendo a tarja do cartão via leitor ? Fiz uma aqui mas não estou gostando... Se alguém pudesse me fornecer ficaria grato. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.5.1 - Release Date: 27/02/2005 [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 <*> 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] ttable
Resumindo...
if (DataSource.State in [dsEdit, dsInsert]) then
ShowMessage('Esta em modo de edição ou inserção.')
else ShowMessage('Agora não está mais.');
* Adicione a Unit DB onde for usar essa funcão.
[]'s
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: Otto Júnior
To: delphi-br@yahoogrupos.com.br
Sent: Monday, February 28, 2005 3:23 PM
Subject: Re: [delphi-br] ttable
Esta no help do delphi
===
The following example uses a blob stream to write a string to the end of the
Notes field in the Tasks table.
procedure TForm1.AppendNoteClick(Sender: TObject);
var
Stream: TStream;
S: string;
begin
with Tasks do
begin
Edit;
if State = dsEdit then
begin
Stream := CreateBlobStream(FieldByName('Notes'), bmReadWrite);
try
Stream.Seek(0, 2); {Seek 0 bytes from the stream's end point}
S := ' This line will be added to the end.';
Stream.Write(PChar(S)^, Length(S));
Post;
finally
Stream.Free;
end;
end;
end;
end;
===
- Original Message -
From: "Renato" <[EMAIL PROTECTED]>
To:
Sent: Monday, February 28, 2005 3:15 PM
Subject: [delphi-br] ttable
Bom galera eu gostaria de saber como faço para saber quando uma
tabela está em modo de edição ou não pelo componente ttable(BDE) em
banco mysql.
Grato,
Renato Fonseca
--
<<<<< 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
--
Esta mensagem foi verificada pelo sistema de anti-virus e
acredita-se estar livre de perigo.
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.0 - Release Date: 25/02/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.5.0 - Release Date: 25/02/2005
[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
<*> 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] Escovar Bites
Uma das melhores coisas é usar form por herança... Tipo voce cria uma form padrao e depois usa ele como modelo no seu sistema... Eu tenho 5 forms modelos no meu sistema... o resto é tudo herança... nos quais eu adiciono alguns componentes quando necessário... Voce pode criar estes tipos de forms quando: Telas de busca que são normalmente semelhantes Exibição de Grids Relatórios que mudam somente posiçoes de campos... etc etc... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Filipe To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 24, 2005 1:36 PM Subject: [delphi-br] Escovar Bites Ops... Será que alguém poderia postar aki alguma (ou algumas) dicas para melhorar performances? ex. *Usar Fields[0] ao invés de FielbyName *Tirar units desnescessárias das uses, etc... Valeu! Filipe Geyer Programador [EMAIL PROTECTED] www.bludata.com.br [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005 [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 <*> 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] Formatação....
procedure TForm1.Button1Click(Sender: TObject); var nValor : String; begin nValor := '1.234,55'; Edit1.Text := StringReplace((StringReplace(nValor,',','',[rfReplaceAll])),'.','',[rfReplaceAll]); end; Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Adenes I. Freire Junior To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 24, 2005 8:28 AM Subject: [delphi-br] Formatação Qual função uso para formatar um valor tipo Float? Exemplo: 1.234,55 ---> 123455 Adenes I. Freire Junior [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005 [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 <*> 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] Como saber de qual form o form B foi chamado?
Na palheta Additional existe o componente ApplicationEvents com este componente vc pode saber qual formulário está ativo no seu sistema com a rotina abaixo: Rotina do evento OnIdle: procedure TfPrincipal.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); begin try // Mostra o nome do formulário ativo em uma StatusBar StatusBar1.Panels[1].Text := ' UNIT: '+Screen.ActiveForm.Name; except // Algumas janelas não são formulários normais (Messages) então não mostra. StatusBar1.Panels[1].Text := ' UNIT: NAO DETECTOU'; end; end; Desta forma você pode criar um Log da sequencia como foram chamados os formulários. * Coloque o componente no fomulário principal de sua aplicação Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Demian Lessa To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 23, 2005 6:19 PM Subject: Re: [delphi-br] Como saber de qual form o form B foi chamado? Maion, Só se você tivesse acesso a pilha de execução do seu programa juntamente com as informações de DEBUG. Senão, não há garantias! Agora... dependendo de como vc cria seus formulários, há uma luz no fim do túnel. Se vc os cria passando SELF como owner, então basta que você use Owner.Name. Se vc os cria passando NIL, não tem como. Se vc delega a criação ao objeto Application, não tem como. Mas... se você utiliza aplicativos onde suas janelas são todas modais, então vc pode tentar enumerar as janelas de seu aplicativo a partir da mais alta na ordem Z (veja o help da Win32 API) através de GetTopWindow e depois pegando a janela seguinte na ordem Z usando GetNextWindow. Comparando o handle da janela de topo com o handle do FORM_B, vc terá certeza de que a janela seguinte retornada por GetNextWindow será a janela que chamou o FORM_B. Isso, claro, se a única forma de criar janelas no seu aplicativo for essa. Senão, esqueça! Cordialmente, Demian Lessa Salvador - Brasil maion wrote: > Amigos, > > Tendo Form_A , Form_B e Form_C, quero saber ao abrir o Form_B se ele foi chamado do Form_A ou do Form_C sem usar uma variavel global ou fazer referencia cruzada de units. > Preciso de sugestoes. > > Obrigado > > > > > [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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005 [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 <*> 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] Porque Unsafe ?
Belesma... confirmou o que eu imaginava valeu heim - Original Message - From: Demian Lessa To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 23, 2005 3:21 PM Subject: Re: [delphi-br] Porque Unsafe ? PAnsiChar nada mais é que um ponteiro e, como tal, não é seguro para se usar em programas compilados para .NET. Essa restrição do framework da Microsoft não se aplica especificamente ao Delphi mas a qualquer código que tente se comportar em desacordo com as especificações de segurança do framework. Seria interessante saber se você está mesmo desenvolvendo para .NET ou se apenas não conseguiu configurar o Delphi para aplicativos Win32 nativos. Se estiver desenvolvendo para .NET, sugiro ler um pouco mais a respeito do framework. Se estiver desenvolvendo para Win32, vá nas opções do Delphi e desligue os avisos que não interessam. Cordialmente, Demian Lessa Salvador - Brasil Marcelo Silva wrote: > Porque o Delphi da um monte de Warnings sobre o Pchar ? > Ele diz: > Unsafe typecast of 'PAnsiChar'... > > Por qual eu devo substituir ? > > * Isso acontece nas Units da Jedi > > > > Marcelo Silva > Cel. 11 9693-4251 > ICQ - 49224093 > MSN [EMAIL PROTECTED] > -- > > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.300 / Virus Database: 266.3.0 - Release Date: 21/02/2005 > > > [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.3.0 - Release Date: 21/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.3.0 - Release Date: 21/02/2005 [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 <*> 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
[delphi-br] Porque Unsafe ?
Porque o Delphi da um monte de Warnings sobre o Pchar ? Ele diz: Unsafe typecast of 'PAnsiChar'... Por qual eu devo substituir ? * Isso acontece nas Units da Jedi Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.3.0 - Release Date: 21/02/2005 [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 <*> 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
[delphi-br] MemTable alguém aqui usa ?
Estou tentando fazer um aplicativo com componentes indy e KbmemTable. Ele dá um erro nesta linha: -> memClientes.LoadFromStreamViaFormat(AStream,memForma); a mensagem é: Formato não especificado... Mas estou especificando o formato em memForme, que é um formato binário. Alguém já utilizou este componente e já passou por isso ? Já segui umas dicas na internet mas o erro persiste. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.3.0 - Release Date: 21/02/2005 [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 <*> 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] Diminuir EXE
A melhor coisa é você trabalhar com herança de formulários assim sua aplicação diminue uns 60% tanto em tamanho do EXE como na produção e manutênção. Utilizar aplicativos que se propõe a este tipo de mágica, é meio que ilusório, pois ele diminue quando está "fechado" mas quando você executa o windows abre ele para utilizar as funções internas que você criou. Ou seja, este lance de "diminuir" o EXE é como se você zipasse o arquivo... mas na hora de usa-lo vc terá que deszipa-lo, e isso consome até mais memória do que se ele já estivesse aberto.. * é só uma dica :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.1.0 - Release Date: 18/02/2005 [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 <*> 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
[delphi-br] SOLUÇÃO -> Como abilitar os Hints de toda a aplicação ? (contribuição)
Coloque um componente ApplicationEvents no FormPrincipal No meu caso eu tenho uma Unit de funcoes onde deixo todas as funções genéricas, mas vc pode criar a função abaixo onde quiser: // Função para mostrar abilitar o ShowHint ou Qualquer Propriedade que queira (e tenha no componente é claro) procedure MostraHint(Form: TForm); var i: Integer; PInfo: PPropInfo; begin for i:=0 to Form.ComponentCount-1 do begin // Retorna diferente de [Nil] se existe a propriedade PInfo := GetPropInfo(Form.Components[i], 'ShowHint'); // Verifica se encontrou a propriedade if (PInfo <> nil) then // Abilita a propriedade encontrada TForm(Form.Components[i]).ShowHint := True; end; end; Depois no OnIdle do ApplicationEvents eu coloquei: MostraHint(Screen.ActiveForm); // ActiveForm = Form Ativo Espero que sirva pra alguém -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [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 <*> 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
[delphi-br] Como abilitar os Hints de toda a aplicação ?
Pessoal tentei o compando (Application.ShowHint := True) para abilitar todos os hints de todos os forms existentes na aplicação mas não da certo... alguém tem alguma dica para eu não precisar entrar em um por um para abilitar ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [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 <*> 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
[delphi-br] Comparar tabela
Gostaria de saber como descobrir quais registros existem a mais em uma tabela... Ou seja aqueles orfaos Tentei assim mas, sem sucesso: SELECT * FROM "LC\FINAN\F_CARTAO" C LEFT OUTER JOIN "LC\FINAN\F_SALLOJ" S ON (S.PEDIDO = C.PEDIDO) A tabela CARTAO possue 1 registro a mais e gostaria de saber qual é Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [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 <*> 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
[delphi-br] Performance em DBF x SQL
Como deixar esta select mais rápida ? SELECT L.COD_CLI, L.NOME, L.APELIDO, L.TAXA, L.DOCUM_OK, SUM(S.VALOR) AS SVALOR, SUM(C.VALOR) AS TVALOR, COUNT(S.COD_CLI) AS SCODCLI FROM "LC\CADASTRO\F_LOJIST" L INNER JOIN "LC\FINAN\F_SALLOJ" S ON (S.LOJISTA = L.COD_CLI) INNER JOIN "LC\FINAN\F_CARTAO" C ON (C.PEDIDO = S.PEDIDO) WHERE ((S.DAT_LAN BETWEEN '01/01/2005' AND '01/01/2005')AND (C.DAT_LAN BETWEEN '01/01/2005' AND '01/01/2005')AND (C.OBS = 'N')) GROUP BY L.COD_CLI, L.NOME, L.APELIDO, L.TAXA, L.DOCUM_OK Gostaria de deixar esta SELECT mais rápida... Estou usando DBF com TQuery porque é a base que ja existe na empresa e não posso mudar Média de registros é de 300.000 registros em cada tabela. Algum DBA pra dar uma dicas :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [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 <*> 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
[delphi-br] Que tranqueira esse SELECT x CASE ou IIF
SELECT L.COD_CLI, L.NOME, L.APELIDO, L.TAXA, L.DOCUM_OK, SUM(S.VALOR) AS SVALOR, SUM(C.VALOR) AS TVALOR, COUNT(S.COD_CLI) AS SCODCLI, CASE C.DAT_QUI WHEN IS NULL THEN 'TESTE' ELSE 'TESTE2' END FROM "LC\CADASTRO\F_LOJIST" L INNER JOIN "LC\FINAN\F_SALLOJ" S ON (S.LOJISTA = L.COD_CLI) LEFT OUTER JOIN "LC\FINAN\F_CARTAO" C ON (C.PEDIDO = S.PEDIDO) WHERE ((S.DAT_LAN BETWEEN '01/01/2005' AND '01/01/2005')AND (C.DAT_LAN BETWEEN '01/01/2005' AND '01/01/2005')AND (C.OBS = 'N')) GROUP BY L.COD_CLI, L.NOME, L.APELIDO, L.TAXA, L.DOCUM_OK, C.DAT_QUI Da erro no CASE olha o erro --- Error --- qrCartao: Error 7200: AQE Error: State = 42000; NativeError = 2115; [Extended Systems][Advantage SQL Engine]Expected lexical element not found: FROM You are missing the keyword FROM after the column definitions in your SELECT statement. - Location Of Error: 182. --- OK ------- Estranho que no Help do ADS tem o CASE e IIF... mas não vai :-( Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [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 <*> 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
[delphi-br] Agrupar em DBF x TTABLE
Pessoal tenho que usar TTable (do ADS o AdsTable) em paralelo a um sistema Clipper que tem aqui na empresa... Seguinte não sei como é feito no clipper que tem aqui, mas tenho que exibir um relatório de traz Clientes Vendas Entre uma determinada data Tenho que agrupar por cliente... Alguem tem alguma ideia de como agrupar utilizando TTables ? Tentei utilizar Query, consegui trazer os valores que quero mas não comsegui agrupar... pois existem datas variadas e o campo data tem que ir no group by. Olhe o SQL abaixo SELECT L.COD_CLI, L.NOME, L.APELIDO, L.TAXA, L.DOCUM_OK, SUM(S.VALOR) AS SVALOR, SUM(C.VALOR) AS TVALOR, C.DAT_QUI, COUNT(S.COD_CLI) AS SCODCLI FROM "LC\CADASTRO\F_LOJIST" L INNER JOIN "LC\FINAN\F_SALLOJ" S ON (S.LOJISTA = L.COD_CLI) INNER JOIN "LC\FINAN\F_CARTAO" C ON (C.PEDIDO = S.PEDIDO) WHERE ((S.DAT_LAN BETWEEN '01/01/2005' AND '15/01/2005')AND (C.OBS = 'N')) GROUP BY L.COD_CLI, L.NOME, L.APELIDO, L.TAXA, L.DOCUM_OK, C.DAT_QUI Por causa do campo DAT_QUI ele não agrupa os nomes iguais :-( Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [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 <*> 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
[delphi-br] Repor TAXA % para saber o valor real
Tenho a função SUM(VALOR-(VALOR*TAXA)/100) AS SVALOR Deste modo tenho meu valor com desconto A questão: Como retornar a taxa para saber o valor real da venda ? Tipo 100 - 5% sei que é 95 e para voltar como seria ? tenho os numero 95 que é o resultante e os 5% que é a taxa como chegaria aos 100 reais ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [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 <*> 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
[delphi-br] Paginação em DBF
Pessoal alguém sabe como fazer paginação em tabelas DBF com Query ? Preciso motrar igual na internet... 50... proximos 50 e assim por diante... Alguém pode me dar uma dica ? Estou usando o componente ADS... no help tem um exemplo [SELECT TOP 100 * FROM emp] mas quando coloco isso no SQL da query ele dá erro. Alguém sabe outra maneira ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [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 <*> 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] Exibir outro valor ao invez de True / False
Nosso colega marcinhuk deu uma dica muito boa veja: vai no editor de campos da tabela e na propriedade DisplayValues, coloca 1º o valor para Trueseguido de ";" e depois o valor para False Valeu... aos que deram sua dicas. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Emerson Moreno To: delphi-br@yahoogrupos.com.br Sent: Friday, February 11, 2005 10:01 AM Subject: Re: [delphi-br] Exibir outro valor ao invez de True / False Sim Marcelo, na query clique duas vezes nele a adicione um campo novo, escolha do tipo calculado e de um nome para seu camo. Pornto agora no evento OnCalcField coloque if seu_dado.Value = True then seuCcampoCriado.AsString := 'Sim'; Faça assim para o não também. Espero ter ajudado. On Fri, 11 Feb 2005 09:45:41 -0200, Marcelo Silva <[EMAIL PROTECTED]> wrote: > Tenho uma query que traz o valor de um campo que é True e False (Paradox) > Gostaria de exibir no Grid como SIM e NAO ... > Teria algum modo de fazer isso de maneira dinamica, colocando em algum > evento do grid ou da query ? > > > Marcelo Silva > Cel. 11 9693-4251 > ICQ - 49224093 > MSN [EMAIL PROTECTED] > > -- > > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.300 / Virus Database: 265.8.6 - Release Date: 07/02/2005 > > > [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] > > > > Yahoo! Grupos, um serviço oferecido por: > > > 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 Termos do Serviço do > Yahoo!. -- []'s Emerson Moreno Mascate Automação Desenvolvedor -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília 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 Termos do Serviço do Yahoo!. No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.6 - Release Date: 07/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.6 - Release Date: 07/02/2005 [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 <*> 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
[delphi-br] Exibir outro valor ao invez de True / False
Tenho uma query que traz o valor de um campo que é True e False (Paradox) Gostaria de exibir no Grid como SIM e NAO ... Teria algum modo de fazer isso de maneira dinamica, colocando em algum evento do grid ou da query ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.6 - Release Date: 07/02/2005 [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 <*> 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] JAVA já era?...(Não esqueça que é Off Topic)
JAVA ? JA VAI TARDE HEHEHE Mas não creio que é o fim da linguagem assim como Clipper ainda existe, o que irá acontecer é que tudo vai ficar como está... Delphi crescendo... VB estável... e Java com seu adeptos. Muitas empresas utilizam alguma coisa em Java e não vão mudar da noite pro dia... se é que vão mudar. Bem eu paro por aqui porque este off-tópic vai longe... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: News byKohl To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 09, 2005 12:12 PM Subject: Re: [delphi-br] JAVA já era?... Bem, só posso dizer que, por experiência própria (usei e estudei Java uns 6 meses), ele é uma belíssima porcaria, nunca vi nada tão lerdo na minha vida. A plataforma .Net é incomparavelmente superior ao Java, em todos os sentidos. A sintaxe do Java é um clone do C++, então, se tiver que usar uma ferramenta destas, fico logo com o original (o C++), cuja performance ninguém discute e que tem excelentes ferramentas RAD disponíveis (inclusive o C++ Builder, da Borland). Se Java fosse bom, pelo tempo que a linguagem existe, já teria dominado o mercado há muito tempo ! Luiz Kohl www.byKohl.com Messenger: [EMAIL PROTECTED] Skype: byKohl Fone: 27-8115-5692 Vitória - ES - Brasil - Original Message - From: <[EMAIL PROTECTED]> To: Sent: Wednesday, February 09, 2005 11:15 AM Subject: [delphi-br] JAVA já era?... > > Dêem uma lida: > > http://forum.abril.com.br/info/forum.php?topico=161304 > > > > -- > <<<<< 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 > > > > > > > > > -- Mensagens enviadas estão livres de vírus. Verificado por AVG Anti-Vírus. Versão: 7.0.305 / Banco de dados de Vírus: 265.8.6 - Data de Lançamento: 7/2/2005 -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.6 - Release Date: 07/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.6 - Release Date: 07/02/2005 [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 <*> 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
[delphi-br] Banco de dados
Pessoal estou precisando fazer um sisteminha simples de cadastro e este terá que ficar sendo tranferido de máquina em máquina. Qual meio vocês recomendam para usar como base de dados ? Sei que tem FB mas quero uma coisa bem simples mesmo que não precise ficar instalando. Somente pegar a pasta do sisteminha e colocar na outra máquina. Estou pensando em: XML: Preciso aprender Arquivos Texto: (meio fora de questão) DBF com acesso direto sem BDE: (me parece a forma mais viavel) Aguardo sugestões... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.6 - Release Date: 07/02/2005 [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 <*> 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] Erro ao transferir dados do access p/ paradox
Aqui voce não precisa do Last pois o Append já joga o registro para o ultimo na tabela (quem não joga é o Insert). while not ADOTabela.Eof do begin BDETabela.Last; // NÃO É NECESSÁRIO. BDETabela.Append; . ... E produre colocar os tipos de campos corretos como sugeriu nosso colega Ricardo, pois assim vc evita que o delphi perca tempo em converções desnecessárias. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Ricardo Mauro To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 08, 2005 8:59 AM Subject: Re: [delphi-br] Erro ao transferir dados do access p/ paradox Experimente substituir a propriedade ".value" pelo seu conteudo correto. Ex.: BDETabelaDESCRICAO.String := ADOTabelaEMPRESA.String; Ricardo Mauro Goiania - Original Message - From: Erika Lemes To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 08, 2005 1:00 AM Subject: Re: [delphi-br] Erro ao transferir dados do access p/ paradox Olá Hudson. Não deu certo. ele coloca todos os nomes certinho, mas quando chega nos endereços e telefones ele sempre repete o anterior naqueles campos que são em branco na tabela access (origem), como te falei no exemplo porque será?? Obrigado! Hudson <[EMAIL PROTECTED]> wrote: no paradox (DBE), vc deve indicar o final da tabela paradox para abrir um novo cadastro .Last e depois o .Append assim vc vai colocar a seleção no final de todos os registros, e depois abrir um novo cadastro procedure T_Transf.Transferir; begin ADOTabela.First; while not ADOTabela.Eof do begin BDETabela.Last; BDETabela.Append; BDETabelaDESCRICAO.Value := ADOTabelaEMPRESA.Value; BDETabelaENDER.Value := ADOTabelaENDERECO.Value; . . . BDETabela.Post; ADOTabela.Next; end; end; o meu deu certo! - Original Message - From: Erika Lemes To: Delphi-br Sent: Monday, February 07, 2005 8:37 PM Subject: [delphi-br] Erro ao transferir dados do access p/ paradox Boa noite. Estou transferindo os dados existentes numa tabela access para a tabela do paradox. Fiz um código mais ou menos assim, onde ADOTabela é do banco Access e BDETabela é do Paradox: procedure T_Transf.Transferir; begin ADOTabela.First; while not ADOTabela.Eof do begin BDETabela.Last; BDETabela.Append; BDETabelaDESCRICAO.Value := ADOTabelaEMPRESA.Value; BDETabelaENDER.Value := ADOTabelaENDERECO.Value; . . . BDETabela.Post; ADOTabela.Next; end; end; Ele até funciona, mas está com um problema: quando a tabela ADOTabela tem um dado em branco ele repete o dado anterior que postou. Exmplo de como fica: ADOTabela NomeEndereçoTelefone Erika São Carlos 123 Marcelo 456 Carla 789 Márcia São Paulo Mariana 111 BDETabela Nome EndereçoTelefone ErikaSão Carlos 123 MarceloSão Carlos 456 //end era p/ ser em branco CarlaSão Carlos 789 //end era p/ ser em branco Márcia São Paulo 789 //telefone era p/ ser em branco MarianaSão Paulo111 //end era p/ ser em branco Alguém sabe porque acontece isso?? Obrigado - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso
Re: [delphi-br] Dados em branco no paradox - URGENTE
Append insere um registro no final da tabela Insert insere um registo ante do registro que estiver selecionado Exemplo INSERT: DADOS INSERT - DADOS DADOS DADOS Exemplo APPEND: DADOS DADOS DADOS APPPEND - DADOS Belesma ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Eduardo Silva ® To: delphi-br@yahoogrupos.com.br Sent: Friday, February 04, 2005 4:38 PM Subject: RES: [delphi-br] Dados em branco no paradox - URGENTE É justamente os dados em branco que eu presico, para que a impressão das etiquetas sai depois de um certo número de etiquetas. Eu consegui usando append ao invés de insert, vc sabe a diferença entre um e outro ? -Mensagem original- De: Marcelo Silva [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 4 de fevereiro de 2005 14:28 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Dados em branco no paradox - URGENTE Ou filtra e ignora os dados em branco :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Friday, February 04, 2005 3:22 PM Subject: Re: [delphi-br] Dados em branco no paradox - URGENTE Usa uma Query ao invez de Table e aí vc pode ORDENAR por DESC (decrescente) ou ASC (crescente) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Eduardo Silva ® To: Grupo Delhpi-br Sent: Friday, February 04, 2005 4:17 PM Subject: [delphi-br] Dados em branco no paradox - URGENTE Galera, estou tentando gravar alguns registros em branco no paradox. Eu até consigo fazer o laço e grvar os registros, s[ó que eu preciso que eles fiquem nas primeiras linhas (posições) da tabela e não no final como vem acontecendo. Explico melhor: após eu gravar uam certa quantidade (esta quantidade é variável, o usuário escolhe) eu começo a gravar os dados, para depois gerar um relatório de etiquetas. O problema é que os registros em branco estão ficando sempre no final, mesmo sendo gravados primeiro, alguém pode me dar uma mão ? Ou se tiver uma outra solução eu agradeço. _ ___ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _[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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005 [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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do
Re: [delphi-br] Dados em branco no paradox - URGENTE
Ou filtra e ignora os dados em branco :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Friday, February 04, 2005 3:22 PM Subject: Re: [delphi-br] Dados em branco no paradox - URGENTE Usa uma Query ao invez de Table e aí vc pode ORDENAR por DESC (decrescente) ou ASC (crescente) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Eduardo Silva ® To: Grupo Delhpi-br Sent: Friday, February 04, 2005 4:17 PM Subject: [delphi-br] Dados em branco no paradox - URGENTE Galera, estou tentando gravar alguns registros em branco no paradox. Eu até consigo fazer o laço e grvar os registros, s[ó que eu preciso que eles fiquem nas primeiras linhas (posições) da tabela e não no final como vem acontecendo. Explico melhor: após eu gravar uam certa quantidade (esta quantidade é variável, o usuário escolhe) eu começo a gravar os dados, para depois gerar um relatório de etiquetas. O problema é que os registros em branco estão ficando sempre no final, mesmo sendo gravados primeiro, alguém pode me dar uma mão ? Ou se tiver uma outra solução eu agradeço. _ ___ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _[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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005 [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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005 [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 <*> 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] Dados em branco no paradox - URGENTE
Usa uma Query ao invez de Table e aí vc pode ORDENAR por DESC (decrescente) ou ASC (crescente) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Eduardo Silva ® To: Grupo Delhpi-br Sent: Friday, February 04, 2005 4:17 PM Subject: [delphi-br] Dados em branco no paradox - URGENTE Galera, estou tentando gravar alguns registros em branco no paradox. Eu até consigo fazer o laço e grvar os registros, s[ó que eu preciso que eles fiquem nas primeiras linhas (posições) da tabela e não no final como vem acontecendo. Explico melhor: após eu gravar uam certa quantidade (esta quantidade é variável, o usuário escolhe) eu começo a gravar os dados, para depois gerar um relatório de etiquetas. O problema é que os registros em branco estão ficando sempre no final, mesmo sendo gravados primeiro, alguém pode me dar uma mão ? Ou se tiver uma outra solução eu agradeço. _ ___ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _[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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005 [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 <*> 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
[delphi-br] Re: (Totalmente OFF) Ser Feliz ou Ter Razão? Qual a sua poreferência ???
Olha acho muito bom a intênção de palestras para ajudar não só na empresa mas até mesmo em toda a nossa vida. Mas uma coisa que me deixa encafifado é que sou muito racional. Toda ilustração nos serve para refletirmos, mas nem sempre aplicarmos. Por exemplo numa situção dessas onde se está tentando chegar numa festa, tudo bem muitas coisas podem ser relevadas para que o clima fique agradável, pois nenhum dano maior será causado. Já em uma questão mais séria a razão deve com certeza ser a primeira coisa, pois os resultados farão os ânimos acalmarem. Por isso devemos pensar bem na situação e na ação que vamos tomar. Por esta "razão" não concordo com o ditado: "Se conselho fosse bom não se dava se vendia". Digo que conselho é bom e deve ser dado a todo instante para não esquecermos o caminho que temos a diante, sempre levando em conta os sentimentos da pessoa alheia é claro. * Aprenda a escutar conselhos e aprenda muito com eles. Quanto a historia: Seria melhor se o cara tive-se cedido assim ela se sentiria muito mais útil. Eu tentarei ver essa história de outro angulo; quando alguém der uma sugestão avaliarei com bastante calma, pois a pessoa poderá estar certa. Pois é muito mais fácil apagar um fosforo do que uma fogueira. :-) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: "Reginaldo Torres" <[EMAIL PROTECTED]> To: <"Undisclosed-Recipient:;"@libraas.com.br> Sent: Thursday, February 03, 2005 6:44 PM Subject: [delphi-br] Ser Feliz ou Ter Razão? Qual a sua poreferência ??? Ser Feliz ou Ter Razão? Oito da noite numa avenida movimentada. O casal já esta atrasado para jantar na casa de alguns amigos. O endereço é novo, assim como o caminho, que ela conferiu no mapa antes de sair. Ele dirige o carro. Ela o orienta e pede para que vire na próxima rua à esquerda. Ele tem certeza de que é à direita. Discutem. Percebendo que além de atrasados, poderão ficar mal humorados, ela deixa que ele decida. Ele vira a direita e percebe que estava errado. Ainda com dificuldade, ele admite que insistiu no caminho errado, enquanto faz o retorno. Ela sorri e diz que não há problema algum em chegar alguns minutos mais tarde. Mas ele ainda quer saber: "Se você tinha tanta certeza de que eu estava tomando o caminho errado, deveria insistir um pouco mais". E ela diz: "Entre ter razão e ser feliz, prefiro ser feliz. Estávamos a beira de uma briga, se eu insistisse mais, teríamos estragado a noite". MORAL DA HISTÓRIA Essa pequena historia foi contada por uma empresária durante uma palestra sobre simplicidade no mundo do trabalho. Ela usou a cena para ilustrar quanta energia nós gastamos apenas para demonstrar que temos razão, independente de tê-la ou não. Desde que ouvi esta história, tenho me perguntado com mais freqüência: "Quero ser feliz ou ter razão?" Pense nisso e seja feliz. Ass. AUTOR DESCONHECIDO. Reginaldo Torres - Analista de Sistemas Sênior Libra Advanced Solutions - Fábrica de Software e Desenvolvimentos ' (17) 3521-3080 ramal 215 / Ê Fax +55 (17) 3522-1717 + [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> þ www.libraas.com.br <http://www.libraas.com.br/> "O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Empresa(Libra) são proibidas e passíveis de sanção disciplinar, cível e criminal." "The original of this message is responsible for its content and address. It fits to the addressee to take care with relationship to the appropriate treatment. Without the due authorization, the popularization, the reproduction, the distribution or any other one action in disconformity with the internal norms of Empresa(Libra) they are forbidden and they can suffer sanction to discipline, civil and criminal." -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 01/02/2005 [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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 01/02/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8
Re: [delphi-br] Pintar GRID
Se der dois cliques no grid verá que cada coluna tem suas propriedades. Para se referir a elas vc pode usar DBGrid1.Columns[0].Color := clBlue; // Aqui coloca sua cor onde [0] se refere a coluna que quer manipular :-) espero ter ajudado Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Carlinhos Pucc To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 02, 2005 10:15 AM Subject: [delphi-br] Pintar GRID Bom Dia Pessoal, Preciso de uma ajuda. Gostaria de no momento que abro os dados em um DBGrid possa aparecer de outras cores determinadas linhas. Por exemplo, abro um cadastro e todos que são de "São Paulo" saiam com fontes de outra cor ou fundo de outra cor, só que não posso perder o posicionamento, ou seja, se o campo está centralizado precisa continuar. Existe alguma função pra isso ? Onde coloco ? em qual evento eu coloco a função ? Obrigado à todos, Carlinhos -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.2 - Release Date: 28/01/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.2 - Release Date: 28/01/2005 [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 <*> 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
[delphi-br] OFF usuarios UOL
Usuários UOL com filtro ativado não receberam meus emails, não vou ficar perdendo meu tempo entrando no site uol para digitar aquelas tranqueiras de letras. Vai pro lixo direto... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/2005 [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 <*> 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
