[delphi-br] dados de uma coluna dbgrid em uma statusbar
Ola Pessoal Saudações Como faço para colocar informações de uma determinada coluna de uma dbgrid como hint em uma statusbar? Obrigado Clovito Clovis Machado Ferreira Que o grande arquiteto do Universo nos Ilumine Dourado(SP) - [EMAIL PROTECTED](MSN) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] caminhar automaticamente dentro de um filelist
Ola Pessoal Boa tarde e Saudações Como faço para cominhar automaticamente dentro de um FileListBox? Obrigado Clovito Clovis Machado Ferreira Que o grande arquiteto do Universo nos Ilumine Dourado(SP) - [EMAIL PROTECTED](MSN) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] BOTÕES COM CANTOS REDONDOS E QUE MUDEM DE COR
Ola Pessoal Boa tarde Aguem teria esse tipo de componente e que possa mudar de cor conforme passa-se o mouse por cima? Obrigado Clovito Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Gerenciamento de Documentos em Delphi
Ola Henrique. Meu filho esta fazendo um sistema desse tipo. Se quizer entre em contato em pvt Clovito Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 29, 2008 9:43 AM Subject: [delphi-br] Sistema de Gerenciamento de Documentos em Delphi Olá amigos, alguém conhece algum grupo onde possa discutir sobre o tema: Sistema de Gerenciamento de Documentos. Os aspectos técnicos, usabilidade e principalmente jurídico do uso. Desde já agradeço. []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Contrato
Podemos conversar sobre o pequeno aplicativo Clovito Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: ADEMIR FERRAZ To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 1:28 PM Subject: Re: RES: [delphi-br] Contrato Necessito de um pequeno aplicativo em Delphi. Isso é urgente pois se refere a concurso. Os interessados entrar em contato pelo [EMAIL PROTECTED] ademir - Original Message - From: Celio Bernardo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 11:18 AM Subject: Re: RES: [delphi-br] Ajuda com TRecord - POREM É que vou copiar de um arquivo .txt conteudo do tamanho exato do tamanho da variável, independente se o conteudo tenha caracter ou espacos em branco. Assim tava pensando em otimizar o procedimento que busca conteudo no arquivo e copia para o bd. Obrigado Celio. Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu: Te pergunto, pra que vc quer saber o tamanho da variável declarada? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Celio Bernardo Enviada em: quarta-feira, 13 de fevereiro de 2008 10:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ajuda com TRecord - POREM Obrigado pela ajudas, porem o que preciso é que me retorne o tamanho da variavel declarada e NAO do tamanho do seu conteudo. No caso de Pessoa.Nome o resultado deve ser 60. Mias ainda, tem como fazer um loop para percorrer todos os campos da variaver Pessoa, para fins de zerar seu conteudo. tipo for i := 0 to pessoa.recordcount do pessoa.field[i].value := '' obrigado Celio. Ricardo César Cardoso [EMAIL PROTECTED] mailto:ricardo_engsoft%40yahoo.com.br escreveu: Vamos ver se a minha memória anda boa: Declare uma variável do tipo Integer e atribua o seguinte: Tamanho_Campo := Length(Pessoa.Nome); Se bem que eu acho que vai retornar o tamanho do conteúdo de uma instância de Pessoa... Atte, Ricardo. Celio Bernardo [EMAIL PROTECTED] mailto:celioblima%40yahoo.com.br escreveu: Amigos tenho uma estrutura como Type TPessoas = record Nome : String[60]; cpf : String[11]; end. ... var Pessoa : TPessoas; Como é a sintaxe pra pegar o tamanho do campo: Exemplo: Pessoa.Nome o tamamho é 60. Obrigado Celio. - Célio Bernardo de Lima Diretor de Projetos e Novas Tecnologias siatech.com.br - - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] - Célio Bernardo de Lima Diretor de Projetos e Novas Tecnologias siatech.com.br - - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Célio Bernardo de Lima Diretor de Projetos e Novas Tecnologias siatech.com.br - - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF programa para lanchonete
Eu tenho um para delivery que pode ser adaptado para o que vc quer, so que não trabalha com a parte fiscal Clovito Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: josynho To: delphi-br@yahoogrupos.com.br Sent: Friday, January 11, 2008 6:51 PM Subject: [delphi-br] OFF programa para lanchonete ola pessoal gostaria de saber se alguem aqui da lista teria um sistema para lanchonete ja pronto que faça vendas comm cumpom fiscal e venda nao fiscal pode ser um progrma bem simples mesmo tipo com cadastro de clientes, produtos, vendas, relatorios, ... enfim o mais simples possivel? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] arquivos do access no CD
Bom dia pessoal. Saudações e um feliz ano de 2008 para todos vcs. Estou com um problema. Tenho um sistema que fiz em D7 e access. Funciona beleza, so que qdo copio os dados para o CD e tento acessa-los, diz que não posso, pois os arquivos ja foram aberto de maneira exclusiva e não houve abertura antes. O que pode estar acontecendo. Obrigado Clovito Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] 2008
FELIZ 2008 PARA TODOS DA LISTA. PAZ, SAUDE E ALEGRIAS. Clovito Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Analise de Sistemas Específicos
Analista/programador oferece seus serviços para desenvolvimento de sistemas específicos. Grande experiência em Delphi 7 e IB/FB. Posso viajar pelo Brasil todo sem problemas. Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Histórico internet explorer
Procurando fazer o exemplo sitado nessa resposta, fiz o que recomendou e não
funcionou. Estou trabalhando com D7 e a propriedade ViewStyle não consta.
Outros erros tb estão acontecendo. Desculpe-me se foi minha barberagem.
Clovito
Clovis Machado Ferreira
Que o Grande Arquiteto do Universo nos Ampare
Msn-[EMAIL PROTECTED]
- Original Message -
From: Adriano Santos (Yahoo)
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 21, 2007 2:48 PM
Subject: Re: [delphi-br] Histórico internet explorer
Põe um TCheckListBox no form, coloca ele como ViewStyle = vsReport e
insere duas colunas.
No OnCreate do form coloca algo como abaixo:
Isso vai listar as urls visitadas e jogar no CheckListView. (Internet
Explorer);
Como pode ver vem do regedit, então basta criar um botão para apagar ou
inserir uma url.
procedure TForm1.FormCreate(Sender: TObject);
var
I, Tam: Integer;
C, V: string;
N: TStringList;
Lin: TListItem;
Col: TListColumn;
begin
Form1.Left := 50;
Form1.Top := 50;
Col := Lv.Columns.Add;
Col.Caption := 'Páginas visitadas';
Col.Width := 300;
Registro := TRegIniFile.Create('HKEY_CURRENT_USER');
Registro.OpenKey('\Software\Microsoft\Internet Explorer', False);
Page := Registro.ReadString('Main', 'Start Page', Page);
N := TStringList.Create;
Registro.ReadSection('TypedURLs', N);
Edit1.Text := Page;
for I := 0 to N.Count - 1 do
begin
C := N[I];
V := Registro.ReadString('TypedURLs', C, V);
Lin := LV.Items.Add;
Lin.Caption := V;
end;
if LV.Items.Count = 0 then
begin
Lin := LV.Items.Add;
Lin.Caption := V;
Lin.ImageIndex := 1;
end;
N.Free;
Registro.Free;
end;
Evaldo respondeu:
Bom dia,
Gostaria de saber se é possivel capturar o histórico da web do
internet explorer e do firefox atraves do delphi, pesquisei na
internet e não vi nenhuma referência sobre este assunto.
Grato pela atenção.
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.16.2/1143 - Release Date: 21/11/2007
10:01
--
Adriano Santos
--
Editor Técnico Revista ClubeDelphi
www.delphitodelphi.blogspot.com
www.devmedia.com.br
www.devmedia.com.br/clubedelphi/pagina.asp
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro midas.dll mas ela nao faltando
Ola Ricardo Muito bom dia Agradeceria se vc pudesse dar a relação dos arquivos do Fire e do IB para serem carregados e onde vc os coloca. Pode ser em pvt se vc preferir Obrigado Clovito Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Ricardo Bianchin To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 13, 2007 9:03 AM Subject: [delphi-br] Erro midas.dll mas ela nao faltando Senhores, eu mesmo fiz a o meu aplicativo de instalacao trabalho com D7 e firebird 1.54 depois de instalar o firebird, meu sistema copia os dll e bpl do delphi necessarios pro sistema funcionar, e nunca tive problemas mas em uma maquina com WXP ta dando erro MIDAS.DLL sempre q vejo um erro assim é pq ta faltando esta dll só q ela com certeza esta no windows\system32 tentei até coloca-la na mesma pasta do .exe mas o erro persiste alguem ja viu algo assim? Ricardo Bianchin ps.: fugindo do assunto, aproveito pra agradecer apoio de todos naquela pergunta se tem como fazer join em tabelas de BDs distintos resolvi usando os trigers! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] compactação e descompactação
Me passe seu email que mando um bem simples Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Anderson F. de Rossi To: delphi-br@yahoogrupos.com.br Sent: Sunday, November 11, 2007 10:34 PM Subject: [delphi-br] compactação e descompactação Pessoal , boa noite. Alguem conhece alguma unit (free) p/ fazer a compactação e descompactação de arquivos ??? Nada muito complexo , algo bem simples ... Obrigado a todos. Anderson F. de Rossi []s [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Botão Redondo
Pessoal Saudações Algem tem um componente que gere um botão redondo. Tinha um e perdi-o. Se alguem tiver e quizer m,e enviar, por favor, para [EMAIL PROTECTED] Obrigado pela atenção Clovito Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] trabalhar com tela touchscreen
Ola Pessoal Saudações Como faço para trabalhar com D7 e tela touchscreen, tela de toque. Tambem precisava de botões redondos. Tenho aqui uns mas não consigo instalar no D7. Obrigado Clovito Clóvis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] trabalhar com tela touchscreen
Ola Adriano Muito obrigado pela sua atenção, mas vou distribuir 30 botões, redondos em 5 linhas de 6 botões cada. Então terei botao1 até botao30. Se tocar no botao15, imediatamente será disparado o evento onclick do botao15, é isso. Achei o botão oval, so que é para D5. Se vc quizer posso passar em pvt. Vc ou mais alguem. Clovito - Original Message - From: Adriano Santos To: delphi-br@yahoogrupos.com.br Sent: Monday, October 15, 2007 4:07 PM Subject: Re: [delphi-br] trabalhar com tela touchscreen Não tem segredo Clovito. A própria tela é sensível ao toque. Não precisa fazer nada de especial no aplicativo. Agora em relação a botões redondos não sei. O que precisa é de uma suíte de componetes. Abs -- Adriano Santos -- Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp iTelefonica respondeu: Ola Pessoal Saudações Como faço para trabalhar com D7 e tela touchscreen, tela de toque. Tambem precisava de botões redondos. Tenho aqui uns mas não consigo instalar no D7. Obrigado Clovito Clóvis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] mailto:clovito.ferreira%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.14.11/1071 - Release Date: 15/10/2007 06:48 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar uma sequencia alfabética
Ola Andre Luiz Saudações Descobri onde estava o erro e acertei na mosca. Para que criemos essa sequencia, devemos usar a seguinte sintaxe: edit1.text := chr(ord(edit1.text[1])+1). Funcionou beleza Clovito Clóvis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: iTELEFONICA To: delphi-br@yahoogrupos.com.br Sent: Saturday, October 06, 2007 5:06 PM Subject: Re: [delphi-br] Criar uma sequencia alfabética Oi Andre Ainda não funcionou, pois continua dando incompatibilidade de tipo Clóvis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Andre - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Saturday, October 06, 2007 1:25 PM Subject: Re: [delphi-br] Criar uma sequencia alfabética O Problema é que a propriedade Text retorna uma string e vc precisa passar um caracter, tente pegar somente o caracter que quer gerar o próximo com o copy. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar uma sequencia alfabética
Amigo Andre Luiz
Saudações
Obrigado pela sua atenção e ja havia usado essa informação que vc passou, mas
da um erro de INCOMPATIBLE TYPES. Será que é problema meu ou do D7,. Fiz da
seguinte maneira
aeArtigo.Text := char(ord(aeArtigo.Text)+1);
ou aeArtigo.Text := chr(ord(aeArtigo.Text)+1);
Resultando o mesmo erro
Clóvis Machado Ferreira
Que o Grande Arquiteto do Universo nos Ampare
Msn-[EMAIL PROTECTED]
- Original Message -
From: Andre Luis Silveria
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 05, 2007 4:07 PM
Subject: Res: [delphi-br] Criar uma sequencia alfabética
simpels: char(ord(edit.text)+1);
- Mensagem original
De: iTELEFONICA [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 5 de Outubro de 2007 15:07:32
Assunto: [delphi-br] Criar uma sequencia alfabética
Ola Pessoal
Boa tarde
Saudações
Tenho um conteudo de um Edit, tipo 'a' e preciso criar o próximo, isto é,
b. Sei que é pela função chr e ord, mas não estou conseguindo. Resulta um
erro de compilação de tipos incompativeis. Como fazer?
Obrigado
Clovito
Clóvis Machado Ferreira
Que o Grande Arquiteto do Universo nos Ampare
Msn-clovito.ferreira@ hotmail.com
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px
0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar uma sequencia alfabética
Ola André LUiz
Qdo faço aeArtigo.Text := chr(ord('a')+1); funciona beleza
Clóvis Machado Ferreira
Que o Grande Arquiteto do Universo nos Ampare
Msn-[EMAIL PROTECTED]
- Original Message -
From: iTELEFONICA
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, October 06, 2007 12:02 PM
Subject: Re: [delphi-br] Criar uma sequencia alfabética
Amigo Andre Luiz
Saudações
Obrigado pela sua atenção e ja havia usado essa informação que vc passou, mas
da um erro de INCOMPATIBLE TYPES. Será que é problema meu ou do D7,. Fiz da
seguinte maneira
aeArtigo.Text := char(ord(aeArtigo.Text)+1);
ou aeArtigo.Text := chr(ord(aeArtigo.Text)+1);
Resultando o mesmo erro
Clóvis Machado Ferreira
Que o Grande Arquiteto do Universo nos Ampare
Msn-[EMAIL PROTECTED]
- Original Message -
From: Andre Luis Silveria
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 05, 2007 4:07 PM
Subject: Res: [delphi-br] Criar uma sequencia alfabética
simpels: char(ord(edit.text)+1);
- Mensagem original
De: iTELEFONICA [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 5 de Outubro de 2007 15:07:32
Assunto: [delphi-br] Criar uma sequencia alfabética
Ola Pessoal
Boa tarde
Saudações
Tenho um conteudo de um Edit, tipo 'a' e preciso criar o próximo, isto é,
b. Sei que é pela função chr e ord, mas não estou conseguindo. Resulta um
erro de compilação de tipos incompativeis. Como fazer?
Obrigado
Clovito
Clóvis Machado Ferreira
Que o Grande Arquiteto do Universo nos Ampare
Msn-clovito.ferreira@ hotmail.com
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px
0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não
Re: [delphi-br] Criar uma sequencia alfabética
Oi Andre Ainda não funcionou, pois continua dando incompatibilidade de tipo Clóvis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] - Original Message - From: Andre - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Saturday, October 06, 2007 1:25 PM Subject: Re: [delphi-br] Criar uma sequencia alfabética O Problema é que a propriedade Text retorna uma string e vc precisa passar um caracter, tente pegar somente o caracter que quer gerar o próximo com o copy. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] off topic - comercialização de software
Ola pessoal Saudações Desenvolvi um sistema com D7 e IB para camaras municipais para controle das leis do município. Pode ser usado tb para leis estaduais e federais ou todas elas juntas. Gostaria de comercializar esse produto. Alguem se interessa em fazer essa comercialização. Podemos entrar em contato em pvt para [EMAIL PROTECTED] Obrigado Clovito Clóvis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar uma sequencia alfabética
Ola Pessoal Boa tarde Saudações Tenho um conteudo de um Edit, tipo 'a' e preciso criar o próximo, isto é, b. Sei que é pela função chr e ord, mas não estou conseguindo. Resulta um erro de compilação de tipos incompativeis. Como fazer? Obrigado Clovito Clóvis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Usar o IB somente para demo - IB embarcado
Pessoal Saudações Como faço para criar u CD de demo para um sistema com D7, IB6.0, DBExpress, sem ter que instalar o IB6.0 Ouvi dizer que existe uma maneira, do IB embarcado. É verdade? Obrigado Clovito Clóvis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] off topic - HD
OLa pessoal Saudações. Desculpem-me o off topic, mas estou precisando arrumar uma placa de um HD, pois a minha queimou. O HD é um Baracuda - 120 GB - Modelo 7200.7 - da Seagate. Os dados estão salvos, mas não consigo le-los, pois a placa esta queimada. Se por acaso alguem tiver uma, que o HD esteja defeituoso, e quizer vender, podemos conversar via email [EMAIL PROTECTED] Obrigado Clovito Clóvis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Diversas ou uma tabela?
Bom dia Tamara Os dados não se repetirão, pois são dados de pessoas, individualidades, por exemplo. É simplesmente que se for feito tudo numa tabela tenho que separar esses dados por grupos, pois pertencem à mesma família. É um sistema de arvore genealógica. Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP - Original Message - From: Moked - Tamara (Brazil) [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, June 05, 2006 9:03 AM Subject: RES: [delphi-br] Diversas ou uma tabela? Eu sou da opnião d eum colega ai q disse q td depende da estrutura lógica do seu sistema. Avalie se não terá muitos dados repetidos q poderiam ter apenas sua referencia numerica e ñ escrita na tabela principal. Sem contar q vc ter uma tabela com ... sei la... 50 campos não é nada pratico, acredito eu Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luiz Escobar Enviada em: domingo, 4 de junho de 2006 15:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Diversas ou uma tabela? EM MySQL, juntei 3 tabelas, que tinha de 500.000 a 680.000 cada deu um total de +/- 1.600.000 e a resposta era em 5 segundos, ele agrupava/contava tudos os registros, não lembro de quanto foi o retorno... creio que uns 500.000 deveria fazer em uns 2 segundos... 50.000, acho que não ia dar tempo de dar o ENTER... hehehehhehe Luiz Escobar - Segue mensagem original! - De: Eduardo Silva dos Santos Data: Sun, 4 Jun 2006 13:08:13 -0300 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Diversas ou uma tabela? Isso depende do DB, em mySQL eu tenho tabelas com até 680.000 registros e roda rapidão. Em 04/06/06, Washington Tavares escreveu: Acho que voce deveria fracionar e criar uma View ou Procedure para poder ter acesso as informações. No caso de usar uma única tabela eu diria para não usar bd e sim um arquivo XML. Wota From: iTelefonica Reply-To: delphi-br@yahoogrupos.com.br To: Subject: [delphi-br] Diversas ou uma tabela? Date: Sun, 4 Jun 2006 09:41:22 -0300 Ola pessoal. Saudações e bom dia Qual seria a melhor opção para rapidez de acesso? Ter uma tabela somente dentro de um bd ou fraciona-las. Todas juntas é possivel ter até uns 50.000 registros e nas fracionadas, teria ums 300 a 500 Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br] recordcount - 1
Luciana Boa tarde Se vc apos abrir a Query, vc fecha-la e reabri-la novamente seu problema com o reccordcount será resolvido. Não me pergunte o porque. kkk Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP - Original Message - From: Luciana [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, June 05, 2006 10:46 AM Subject: [delphi-br] recordcount - 1 Pessoal, Estou com o seguinte problema: tenho uma query que está trazendo o resultado corretamente mas quando peço o recordcount ou isempty nao funciona...o recordcount sempre dá -1 e o isempty sempre false. Alguem ja passou por isso? Como resolveram? Estou num looping e preciso saber quando a resultado da query esta no final. obrigada. luciana -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Diversas ou uma tabela?
Ola pessoal. Saudações e bom dia Qual seria a melhor opção para rapidez de acesso? Ter uma tabela somente dentro de um bd ou fraciona-las. Todas juntas é possivel ter até uns 50.000 registros e nas fracionadas, teria ums 300 a 500 Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br] Diversas ou uma tabela?
amigo Washington Bom dia, obrigado pela resposta. Não entendi o sistema XML Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP - Original Message - From: Washington Tavares [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, June 04, 2006 10:01 AM Subject: RE: [delphi-br] Diversas ou uma tabela? Acho que voce deveria fracionar e criar uma View ou Procedure para poder ter acesso as informações. No caso de usar uma única tabela eu diria para não usar bd e sim um arquivo XML. Wota From: iTelefonica [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Diversas ou uma tabela? Date: Sun, 4 Jun 2006 09:41:22 -0300 Ola pessoal. Saudações e bom dia Qual seria a melhor opção para rapidez de acesso? Ter uma tabela somente dentro de um bd ou fraciona-las. Todas juntas é possivel ter até uns 50.000 registros e nas fracionadas, teria ums 300 a 500 Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br] Diversas ou uma tabela?
Ola Pessoal Deixa eu ser mais explicito. Vou ter uma tabela ou tabelas dinâmicas, crescendo sempre, so que espero não chegar alem dos 100.000 registros. É uma tabela de um sistema de arvore genealogica, que estou desenvolvendo para armazenar os dados individuas de cada participante de cada familia. Como posso ter varias familias, irei crescendo essas informações. Será que fui claro? Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP - Original Message - From: Eduardo Silva dos Santos [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, June 04, 2006 2:07 PM Subject: Re: [delphi-br] Diversas ou uma tabela? E ai Luiz, blz, olha só, vc usa qual tipo de Tabela? myISAM ou InnoDB? Em 04/06/06, Luiz Escobar [EMAIL PROTECTED] escreveu: EM MySQL, juntei 3 tabelas, que tinha de 500.000 a 680.000 cada deu um total de +/- 1.600.000 e a resposta era em 5 segundos, ele agrupava/contava tudos os registros, não lembro de quanto foi o retorno... creio que uns 500.000 deveria fazer em uns 2 segundos... 50.000, acho que não ia dar tempo de dar o ENTER... hehehehhehe Luiz Escobar - Segue mensagem original! - De: Eduardo Silva dos Santos Data: Sun, 4 Jun 2006 13:08:13 -0300 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Diversas ou uma tabela? Isso depende do DB, em mySQL eu tenho tabelas com até 680.000 registros e roda rapidão. Em 04/06/06, Washington Tavares escreveu: Acho que voce deveria fracionar e criar uma View ou Procedure para poder ter acesso as informações. No caso de usar uma única tabela eu diria para não usar bd e sim um arquivo XML. Wota From: iTelefonica Reply-To: delphi-br@yahoogrupos.com.br To: Subject: [delphi-br] Diversas ou uma tabela? Date: Sun, 4 Jun 2006 09:41:22 -0300 Ola pessoal. Saudações e bom dia Qual seria a melhor opção para rapidez de acesso? Ter uma tabela somente dentro de um bd ou fraciona-las. Todas juntas é possivel ter até uns 50.000 registros e nas fracionadas, teria ums 300 a 500 Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Instalação do IB6.0
Pessoal, Bom dia Tenho o installshield 4 e o express. Preciso instalar em clientes, via CD, o sistema e o IB6.0. Esses dois instalshield fazem o serviço completo de instalação do IB? Se fazem, não estou conseguindo. Se alguem tiver alguma apostila sobre utilização de um ou dos dois instaladores, agradeceria. Obrigado Clovitp Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] off topic
AddCheckBox('Test OF check Box #1', 'This is a test of TExCheckBox. TExCheckBox supporting Flat style, Checked and Enabled property', 1);
alguem sabe me dizer se essa função é do windows XP?
Que a Paz do Grande Arquiteto do Universo nos Ampare
[EMAIL PROTECTED]
Msn- [EMAIL PROTECTED]
Dourado SP
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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!.
Re: [delphi-br] Botões redondos... codigofontebotã o de bitmap´s...
Desculpe-me pela falta de atençaõ
Que a Paz do Grande Arquiteto do Universo nos Ampare
[EMAIL PROTECTED]
Msn- [EMAIL PROTECTED]
Dourado SP
- Original Message -
From: Luiz Escobar [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 01, 2006 4:46 AM
Subject: Re: [delphi-br] Botões redondos... codigofontebotão de bitmap´s...
cara essa foi duro heheheh
roda o scroll ai do mouse que vc vai ver o código, não mandei anexo,
mandei no corpo do email...
Luiz Escobar
- Segue mensagem original! -
De: Francisco Thiago
Data: Thu, 01 Jun 2006 00:52:18 -0300
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Botões redondos... codigo fontebotão de
bitmap´s...
Como assim? Tá no final do e-mail!
Thiago
iTelefonica wrote:
Obrigado Luiz
Mas o codigo não veio pois é proibido via Lista. Mas valeu assim mesmo.
Obrigado
Clovito
Que a Paz do Grande Arquiteto do Universo nos Ampare
[EMAIL PROTECTED]
Msn- [EMAIL PROTECTED]
Dourado
SP
- Original Message -
From: Luiz Escobar
To:
Sent: Wednesday, May 31, 2006 9:01 PM
Subject: RES: [delphi-br] Botões redondos... codigo fontebotão de
bitmap´s...
bom sei que vc quer um botão redondo, e isso parece dificil.. bom aqui
tem
um exemplo de um botão
feito atravez de um bitmap, qualquer bitmap vira um botão...
ele cria o efeito de Lighter, quando passa o mouse encima, Darker,
quando
clica, acertei esta parte, comia um pedaçinho da imagem quando era
justa,
Disabled, (essa eu implementei, ehehhehe), quando vc disabilita o
botão...
talvez ajude...
como não sabia o endereço postei o código
se alguem gostar e implementar algo novo, posta ai
Luiz Escobar
//==
//jvBitmapButton.pas
// versão 2.1c modify by Luiz Escobar
//---
unit jvBitmapButton;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs;
type
TjvBitmapButton = class(TGraphicControl)
private
FBitmap: TBitmap;
FLighter: TBitmap;
FDarker: Tbitmap;
FDisabled: Tbitmap; // by Luiz Escobar
FPushDown:boolean;
FMouseOver:boolean;
FLatching: boolean;
FDown: boolean;
FHotTrack: boolean;
Fenable: boolean; // by Luiz Escobar
procedure SetBitmap(const Value: TBitmap);
procedure MakeDarker;
procedure MakeLighter;
procedure MakeDisabled; // by Luiz Escobar
procedure SetLatching(const Value: boolean);
procedure SetDown(const Value: boolean);
procedure SetHotTrack(const Value: boolean);
function GetEnabled : Boolean; // by Luiz Escobar
procedure SetEnabled( const Value: boolean); // by Luiz Escobar
{ Private declarations }
protected
{ Protected declarations }
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer);override;
procedure Click;override;
procedure CMMouseLeave(var Message:TMessage); message CM_MouseLeave;
procedure Loaded;override;
procedure Resize;override;
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
procedure Paint; override;
published
{ Published declarations }
property Bitmap:TBitmap read FBitmap write SetBitmap;
property Down:boolean read FDown write SetDown;
property Latching:boolean read FLatching write SetLatching;
property HotTrack:boolean read FHotTrack write SetHotTrack;
property Enable:boolean read GetEnabled write SetEnabled; // by Luiz
Escobar
property onclick;
property onmousedown;
property onmouseup;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('ESC_UTIL', [TjvBitmapButton]);
end;
{ TjvBitmapButton }
function TjvBitmapButton.GetEnabled: boolean; // by Luiz Escobar
begin
result := enabled;
end;
procedure TjvBitmapButton.SetEnabled( const Value : boolean ); // by
Luiz
Escobar
begin
enabled := value;
fenable := enabled;
Paint;
end ;
procedure TjvBitmapButton.Click;
begin
inherited;
if FPushDown then
if assigned(onclick) then
onclick(self);
end;
constructor TjvBitmapButton.Create(AOwner: TComponent);
begin
inherited;
width:=24;
height:=24;
FPushDown:=false;
FMouseOver:=false;
FLatching:=false;
FHotTrack:=true;
FDown:=false;
FBitmap:=TBitmap.create;
Fbitmap.width:=24;
Fbitmap.Height:=24;
Fbitmap.canvas.brush.color:=clgray;
FBitmap.canvas.FillRect (rect(1,1,23,23));
FLighter:=Tbitmap.create;
FDarker:=Tbitmap.create;
FDisabled:=Tbitmap.create; // by Luiz Escobar
Fenable := enabled; // by Luiz Escobar
end;
destructor TjvBitmapButton.Destroy;
begin
FBitmap.free;
FLighter.free;
FDarker.free;
FDisabled.free; // by Luiz Escobar
inherited;
end;
procedure TjvBitmapButton.MouseDown(Button
[delphi-br] instalação do IB6.0
Ola Pessoal. Muitro bom dia Trabalho com o D7 e IB 6.0 e gostaria de saber como faço para instalar no cliente o mínimo número de arquivos para poder trabalhar. Não necessito do console. E onde devo colocar estes arquivos. Ou se ja existe nas questões anteriores respostas para isso. Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Botões redondos
Boa tarde Pessoal Saudações Alguem tem componentes que desenhem botões redondos para me arrumar Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br] Botões redondos
Obrigado Walter. Agradeço a presteza. Preciso para D7 e não sei como adaptalo. Mas assim mesmo obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 31, 2006 6:10 PM Subject: RES: [delphi-br] Botões redondos eu tenho isso lá em casa, mas é pra Delphi 1 e mesmo assim botão oval. Se servir eu mando pra ele []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de marcelo frasson Enviada em: quarta-feira, 31 de maio de 2006 18:05 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Botões redondos pq vc nao trabalha com imagens direto ou se for o caso, o shape (additional) ??? é uma saida, eu tbem ja vi como fazer form redondo na web, procura por form redondo, talvez ajude, deve ser meio igual http://www.google.com/search?client=operarls=pt-BRq=Dica+Delphi+Form+Redon dosourceid=operaie=utf-8oe=utf-8 Marcelo Frasson - Original Message - From: iTelefonica [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 31, 2006 4:43 PM Subject: [delphi-br] Botões redondos Boa tarde Pessoal Saudações Alguem tem componentes que desenhem botões redondos para me arrumar Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br] Botões redondos... codigo fontebot ão de bitmap´s...
Obrigado Luiz
Mas o codigo não veio pois é proibido via Lista. Mas valeu assim mesmo.
Obrigado
Clovito
Que a Paz do Grande Arquiteto do Universo nos Ampare
[EMAIL PROTECTED]
Msn- [EMAIL PROTECTED]
Dourado SP
- Original Message -
From: Luiz Escobar [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, May 31, 2006 9:01 PM
Subject: RES: [delphi-br] Botões redondos... codigo fontebotão de
bitmap´s...
bom sei que vc quer um botão redondo, e isso parece dificil.. bom aqui tem
um exemplo de um botão
feito atravez de um bitmap, qualquer bitmap vira um botão...
ele cria o efeito de Lighter, quando passa o mouse encima, Darker, quando
clica, acertei esta parte, comia um pedaçinho da imagem quando era justa,
Disabled, (essa eu implementei, ehehhehe), quando vc disabilita o botão...
talvez ajude...
como não sabia o endereço postei o código
se alguem gostar e implementar algo novo, posta ai
Luiz Escobar
//==
//jvBitmapButton.pas
// versão 2.1c modify by Luiz Escobar
//---
unit jvBitmapButton;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TjvBitmapButton = class(TGraphicControl)
private
FBitmap: TBitmap;
FLighter: TBitmap;
FDarker: Tbitmap;
FDisabled: Tbitmap; // by Luiz Escobar
FPushDown:boolean;
FMouseOver:boolean;
FLatching: boolean;
FDown: boolean;
FHotTrack: boolean;
Fenable: boolean; // by Luiz Escobar
procedure SetBitmap(const Value: TBitmap);
procedure MakeDarker;
procedure MakeLighter;
procedure MakeDisabled; // by Luiz Escobar
procedure SetLatching(const Value: boolean);
procedure SetDown(const Value: boolean);
procedure SetHotTrack(const Value: boolean);
function GetEnabled : Boolean; // by Luiz Escobar
procedure SetEnabled( const Value: boolean); // by Luiz Escobar
{ Private declarations }
protected
{ Protected declarations }
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer);override;
procedure Click;override;
procedure CMMouseLeave(var Message:TMessage); message CM_MouseLeave;
procedure Loaded;override;
procedure Resize;override;
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
procedure Paint; override;
published
{ Published declarations }
property Bitmap:TBitmap read FBitmap write SetBitmap;
property Down:boolean read FDown write SetDown;
property Latching:boolean read FLatching write SetLatching;
property HotTrack:boolean read FHotTrack write SetHotTrack;
property Enable:boolean read GetEnabled write SetEnabled; // by Luiz
Escobar
property onclick;
property onmousedown;
property onmouseup;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('ESC_UTIL', [TjvBitmapButton]);
end;
{ TjvBitmapButton }
function TjvBitmapButton.GetEnabled: boolean; // by Luiz Escobar
begin
result := enabled;
end;
procedure TjvBitmapButton.SetEnabled( const Value : boolean ); // by Luiz
Escobar
begin
enabled := value;
fenable := enabled;
Paint;
end ;
procedure TjvBitmapButton.Click;
begin
inherited;
if FPushDown then
if assigned(onclick) then
onclick(self);
end;
constructor TjvBitmapButton.Create(AOwner: TComponent);
begin
inherited;
width:=24;
height:=24;
FPushDown:=false;
FMouseOver:=false;
FLatching:=false;
FHotTrack:=true;
FDown:=false;
FBitmap:=TBitmap.create;
Fbitmap.width:=24;
Fbitmap.Height:=24;
Fbitmap.canvas.brush.color:=clgray;
FBitmap.canvas.FillRect (rect(1,1,23,23));
FLighter:=Tbitmap.create;
FDarker:=Tbitmap.create;
FDisabled:=Tbitmap.create; // by Luiz Escobar
Fenable := enabled; // by Luiz Escobar
end;
destructor TjvBitmapButton.Destroy;
begin
FBitmap.free;
FLighter.free;
FDarker.free;
FDisabled.free; // by Luiz Escobar
inherited;
end;
procedure TjvBitmapButton.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
if FBitmap.canvas.pixels[x,y]Fbitmap.canvas.pixels[0,FBitmap.height-1]
then
FPushDown:=true
else
FPushDown:=false;
Paint;
if assigned(onmousedown) then
onmousedown(self,button,shift,x,y);
end;
procedure TjvBitmapButton.MouseUp(Button: TMouseButton; Shift:
TShiftState;
X, Y: Integer);
begin
inherited;
FPushDown:=false;
if Latching then
FDown:= not FDown
else
FDown:=false;
Paint;
if assigned(onmouseup) then
onmouseup(self,button,shift,x,y);
end;
procedure TjvBitmapButton.Paint;
var Acolor:TColor;
begin
inherited;
if assigned(FBitmap) then
begin
AColor:=FBitmap.canvas.pixels[0,FBitmap.height-1];
Fbitmap.transparent:=true;
Fbitmap.transparentcolor:=Acolor;
[delphi-br] Criação de BD dinamicamente com D7 e IB6.5 com 1 IBDat aBase e 1 IBQuery
Ola pessoal Estou tentando fazer uso de um script para criar um BD e suas tabels e respectivos indices. Consegui quase tudo. Só não consegui criar o BD. Se cria-lo por fora, consigo fazer o resto. Como tb posso fazer para verificar se o BD ja existe e se tb as tabelas. Se eles ja existirem devo pular essa criação. Tipo FileExist? Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Criaçaõ de Tabelas
Pessoal, muito bom dia Tenho como tem um BD inicialmente com uma só tabela, onde teria todos os dados das outras tabelas, tipo, nome da tabela, nome do campo, tipo, tamanho, local de criação, sendo que as outras tabelas farão parte desse BD. Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br] Criaçaõ de Tabelas
Obrigado Danilo. Não conhecia essa tecnica. Fui procurar saber e vi que podemos usar o bloco de notas para tal. Até ai tudo bem. Só questão de digitsção. Depois como faço para chamar esse script em tempo de execução? Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP - Original Message - From: Danilo Valente [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 25, 2006 10:11 AM Subject: Re: [delphi-br] Criaçaõ de Tabelas Seria muito melhor criar um Script SQL com os comandos para a criação do banco de dados e de todas as tabelas dele. Danilo Valente - Original Message - From: iTelefonica [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 25, 2006 9:26 AM Subject: [delphi-br] Criaçaõ de Tabelas Pessoal, muito bom dia Tenho como tem um BD inicialmente com uma só tabela, onde teria todos os dados das outras tabelas, tipo, nome da tabela, nome do campo, tipo, tamanho, local de criação, sendo que as outras tabelas farão parte desse BD. Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br]Moacir ----Onde está o erro?
Experimente assim que deve funcionar
var
vSQL, vData1, vData2, vProd: String;
vReg, vLinha: integer;
begin
vReg := 0;
vData1 := aeData1.Text;
vData2 := aeData2.Text;
dm1.qMovimento.Close;
dm1.qMovimento.SQL.Clear;
vSQL := 'SELECT * FROM MOVIMENTO WHERE (PONTO = '+
quotedstr(copy(cbCliente.Text, pos('$', cbCliente.Text) + 1,
4))+
')and(PRODUTO='+quotedstr(vProd)+
')and(DATA BETWEEN :DATA1 AND :DATA2) ORDER BY PRODUTO';
dm1.qMovimento.SQL.Add(vSQL);
dm1.qMovimento.ParamByName('DATA1').AsString := (vDATA1);
dm1.qMovimento.ParamByName('DATA2').AsString := (vDATA2);
dm1.qMovimento.Open;
end;
Que a Paz do Grande Arquiteto do Universo nos Ampare
[EMAIL PROTECTED]
Msn- [EMAIL PROTECTED]
Dourado SP
- Original Message -
From: Almir Paulo Effgen [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 23, 2006 1:56 PM
Subject: Re: [delphi-br]Moacir Onde está o erro?
Moacir, eu tentei de tudo e não deu certo, então converti minha tabela os
campos Data_Inicial e Data_final para DATE, deu um trabalhão, mas continua
dando erro, não estou entendendo.
Olha só:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: TDate;
begin
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD(' SELECT * ');
QUERY1.SQL.ADD(' FROM Contratos_dados ');
QUERY1.SQL.ADD(' WHERE data_final between :INICIO and FINAL');
QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
QUERY1.OPEN;
end;
Onde está o erro?
Att,
Almir
Moacir (gmail) [EMAIL PROTECTED] escreveu:
Almir,
Use parametros para isto..
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: TDate;
begin
Table1.Open; //--
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD(' SELECT * ');
QUERY1.SQL.ADD(' FROM Contratos_dados ');
QUERY1.SQL.ADD(' WHERE data_final between :DTINI and DTFIM');
QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
QUERY1.ParamByname('DTINI').AsDateTime := INICIO;
QUERY1.ParamByname('DTFIM').AsDateTime := FINAL;
QUERY1.OPEN;
end;
[ ]´s
Moacir
Almir Paulo Effgen escreveu:
Meu camarada, eu fiz o que você falou, mas apresentou o seguinte erro:
Incompatible Types: 'String' and 'TDate'
Att,
Almir
Welson Avelar [EMAIL PROTECTED] escreveu:
[-x-]
effgen9 escreveu:
Olá, pessoal.
Tenho uma tabela em paradox e uso D7.
Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
10.
Estou começando a trabalhar com SQL. Passo dois parâmetros
Data_Inicial e data_final e gostaria de saber os contratos que estão
entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
retornou um resultado maluco.
Como converto a data que está na tabela como string para data?
[-x-]
[Welson] Tente assim:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: TDate;
begin
Table1.Open;
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD(' SELECT * ');
QUERY1.SQL.ADD(' FROM Contratos_dados ');
QUERY1.SQL.ADD(' WHERE data_final between ' + QuotedStr(INICIO) + '
AND ' + QuotedStr(FINAL));
QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
QUERY1.OPEN;
{}
end;
[]s.
=
O que me preocupa não é o grito dos maus. É o silêncio dos bons.
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=
-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt
[As partes desta mensagem que não continham texto foram removidas]
-
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas
-
Yahoo! Messenger com voz - Instale agora e faça ligações de graça.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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!.
Re: [delphi-br]Moacir ----Onde está o erro?
Tente assim
var
vSQL, vData1, vData2, vProd: String;
vReg, vLinha: integer;
begin
vReg := 0;
vData1 := aeData1.Text;
vData2 := aeData2.Text;
dm1.qMovimento.Close;
dm1.qMovimento.SQL.Clear;
vSQL := 'SELECT * FROM MOVIMENTO WHERE (PONTO = '+
quotedstr(copy(cbCliente.Text, pos('$', cbCliente.Text) + 1,
4))+
')and(PRODUTO='+quotedstr(vProd)+
')and(DATA BETWEEN :DATA1 AND :DATA2) ORDER BY PRODUTO';
dm1.qMovimento.SQL.Add(vSQL);
dm1.qMovimento.ParamByName('DATA1').AsString := (vDATA1);
dm1.qMovimento.ParamByName('DATA2').AsString := (vDATA2);
dm1.qMovimento.Open;
end;
Que a Paz do Grande Arquiteto do Universo nos Ampare
[EMAIL PROTECTED]
Msn- [EMAIL PROTECTED]
Dourado SP
- Original Message -
From: Almir Paulo Effgen [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 23, 2006 1:56 PM
Subject: Re: [delphi-br]Moacir Onde está o erro?
Moacir, eu tentei de tudo e não deu certo, então converti minha tabela os
campos Data_Inicial e Data_final para DATE, deu um trabalhão, mas continua
dando erro, não estou entendendo.
Olha só:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: TDate;
begin
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD(' SELECT * ');
QUERY1.SQL.ADD(' FROM Contratos_dados ');
QUERY1.SQL.ADD(' WHERE data_final between :INICIO and FINAL');
QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
QUERY1.OPEN;
end;
Onde está o erro?
Att,
Almir
Moacir (gmail) [EMAIL PROTECTED] escreveu:
Almir,
Use parametros para isto..
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: TDate;
begin
Table1.Open; //--
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD(' SELECT * ');
QUERY1.SQL.ADD(' FROM Contratos_dados ');
QUERY1.SQL.ADD(' WHERE data_final between :DTINI and DTFIM');
QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
QUERY1.ParamByname('DTINI').AsDateTime := INICIO;
QUERY1.ParamByname('DTFIM').AsDateTime := FINAL;
QUERY1.OPEN;
end;
[ ]´s
Moacir
Almir Paulo Effgen escreveu:
Meu camarada, eu fiz o que você falou, mas apresentou o seguinte erro:
Incompatible Types: 'String' and 'TDate'
Att,
Almir
Welson Avelar [EMAIL PROTECTED] escreveu:
[-x-]
effgen9 escreveu:
Olá, pessoal.
Tenho uma tabela em paradox e uso D7.
Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
10.
Estou começando a trabalhar com SQL. Passo dois parâmetros
Data_Inicial e data_final e gostaria de saber os contratos que estão
entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
retornou um resultado maluco.
Como converto a data que está na tabela como string para data?
[-x-]
[Welson] Tente assim:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: TDate;
begin
Table1.Open;
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD(' SELECT * ');
QUERY1.SQL.ADD(' FROM Contratos_dados ');
QUERY1.SQL.ADD(' WHERE data_final between ' + QuotedStr(INICIO) + '
AND ' + QuotedStr(FINAL));
QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
QUERY1.OPEN;
{}
end;
[]s.
=
O que me preocupa não é o grito dos maus. É o silêncio dos bons.
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=
-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt
[As partes desta mensagem que não continham texto foram removidas]
-
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas
-
Yahoo! Messenger com voz - Instale agora e faça ligações de graça.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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!.
[delphi-br] Componente
Ola Pessoal Procuro um componente stringgrid que me permita alinhar os resultados conforme necessidade. para D7 Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] RXLib
Ola Pessoal Onde posso conseguir informações sobre cada componente da RXLib? Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br] [OFF] Programa para Assinantes
Eu estaria disposto a fazer essa conversão. Gostaria de mais detalhes Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP - Original Message - From: Jean Pierre [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, May 15, 2006 8:31 AM Subject: Re: [delphi-br] [OFF] Programa para Assinantes Ola... Eu programo em Dataflex... se puder ajudar... estou a sua disposição. De que região do Pais vc é. - Original Message - From: Fab Diniz To: delphi-br@yahoogrupos.com.br Sent: Friday, May 12, 2006 3:43 PM Subject: [delphi-br] [OFF] Programa para Assinantes Olá Senhores Este grupo dá suporte para indicar programas já elaborados e gratuitos na internet? Trabalho em um jornal e preciso de um programa para cadastro de clientes, movimentação das contas por edições, cadastro de assinantes e impressão de etiquetas de assinantes, trabalhamos com um programa elaborado em Data Flex, meu chefe quem programou e parou de fazer qualquer alteração nele. Gostaria de saber se alguém tem um programa semelhante para download gratuito Ou se é possível alguém da lista transformar este programa Data Flex para Delphi, e se os cadastros podem ser importados para o novo programa. Na verdade, quero sair desse sistema DOS, por favor!! --- Fab.Diniz e.mail: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] msn: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Componente StringAlignGrid
Pessoal Muito bom dia Tenho um componente diferenciado, um stringgrid. Não é normal do Delphi. Eu o uso no D5. Precisaria usa-lo no D7, como não sei adapta-lo para o D7 alguem se proporia a faze-lo para mim? É um componente Free, alemão. Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] BD interbase 6.5
Ola Pessoal Muito bom dia Tenho uma tabela que possui somente os codigos do clientes e um campo lookup com o nome do Cliente. So que preciso coloca-los em ordem alfabética, que nem sempre coincide com a ordem dos código. Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] D7 e IB
Ola Pessoal Muito bom dia Tenho uma tabela que possui somente os codigos dos clientes e um campo lookup com o nome do Cliente. So que preciso coloca-los em ordem alfabética, que nem sempre coincide com a ordem dos código. Obrigado Clovito Que a Paz do Grande Arquiteto do Universo nos Ampare [EMAIL PROTECTED] Msn- [EMAIL PROTECTED] Dourado SP [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] componente treeview
Ola Pessoal Bom dia Uma das variáveis que trabalha-se qdo usa-se esse componente é um TTreenode e que deve possuir diversos. Preciso cria-los dinamicamente e com um numero variável. Como faço esse procedimento. Obrigado Clovito [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] treeview
Pessoal Saudações Como determinar a lógica de seqüencia para criar dinamicamente as identificações dos nós, subnos, subsubnos, etc. Obrigado Clovito -- Que o Grande Arquiteto do Universo nos Ampare Clovis Machado Ferreira - Dourado(SP) 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDAD 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!.
