[delphi-br] Abrir Excel
Pessoal, é possível abrir uma planilha do Excel dentro do meu aplicativo e depois salvar essa planilha? Eu gostaria de abrir essa planilha como se eu estivesse editando no Excel. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010
Isso está parecendo erro de configuraçãode configurações regionais o caracter para valor decimal. No painel de controle-configurações regionais e estiver configurado com ., mude para ,. Você pode fazer essa mudança no seu aplicatico colocando na seção Initialization :DecimalSeparator := ','; - Original Message - From: Lucas Eduardo Barao Neves To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 26, 2010 8:33 AM Subject: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010 Bom dia pessoal. Estou com um problema com campos do tipo float e DBEdit no Delphi 2010 com MySQL5.1. O problema é o seguinte: crio meu campo no MySQL como float de 16,2. Na aplicação coloco um dbedit e quando tento preenchê-lo colocando vírgula como separador decimal ele dá o seguinte erro: --- Project raised exception class EDatabaseError with message ''1,25' is not a valid floating point value for field 'Valor Gasolina''. --- Se eu apagar o valor e digitar ponto como separador, por ex. 1.25, ele não aceita, aliás, o dbedit nem deixa eu digitar o '.', aceitando somente a vírgula. Alguém saberia por que isso acontece e como posso resolver? Para referência, estou usando os componentes MyDAC. Grato a todos, Lucas Neves [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aplicativo aberto pelo Delphi
Fiquei até com vergonha da sugestão que eu tinha dado. Com o DebugHook é bem melhor mesmo. Também vou usar essa opção. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/
Res: [delphi-br] [off-topic] - Emprego Jundiaí
Você poderia enviar maiores detalhes sobre a vaga? Salário, benefícios, trabalho por CLT ou pessoa jurídica, etc... Tenho o perfil exigido. Saí há pouco de uma empresa onde trabalha com Delphi e Firebird. Meu último trabalho foi o desenvolvimento de sistema emissor de cupom fiscal. Só não moro perto de Jundiaí, mas dependendo das condições... Alisson Costa Resende [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Envio EMail pelo Delphi
Se você expuser qual o problema, talvez alguém da lista possa lhe ajudar... - Original Message - From: Eduardo Suruagy To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 27, 2010 2:28 PM Subject: Re: [delphi-br] Re: Envio EMail pelo Delphi Alguem aqui da lista pode me ajudar com relação ao envio de e-mail. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Lazarus + zeoslib + Oracle9i.
Muito obrigado amigo! Funcionou perfeitamente. E me desculpem por postar sobre o Lazarus aqui. Mas como são muito parecidos achei que fosse permitido. Programei em Delphi por uns 8 anos e agora estou numa empresa pública que usa somente software livre, por isso fui obrigado a migrar pro Lazarus. Já entrei pra lista dele. Mas agradeco e peço desculpas novamente. --- Em delphi-br@yahoogrupos.com.br, Fabricio Colombo fabricio.colombo@... escreveu Depois de executar o método ExecSql, execute a function RowsAffected, que retorna a quantidade de registros afetados. Normalmente o próprio ExecSql já retorna um inteiro com os registros afetados, quando não retorna, é comum ter uma function ou property para obter essa informação. []s Em 22 de julho de 2010 21:45, Alisson abru...@... escreveu: Pessoal, estou fazendo updates com o ZQuery.ExecSql do Zeos Lib no Lazarus. Gostaria de saber se tem como obter o número de registros efetados pelo update através da Zquery. Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir aquivo txt no notepad
Como eu não tinha pensado nisso antes! Fiz a rotina abaixo e funcionou beleza.
Obrigado Rubem!
procedure TfrmPrincipal.FormCreate(Sender: TObject);
var Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Notepad\', False);
if (Reg.ReadString('lfFaceName') 'Courier') then
Reg.WriteString('lfFaceName', 'Courier');
Reg.CloseKey;
Reg.Free;
end;
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br
Sent: Friday, July 16, 2010 8:53 PM
Subject: RE: [delphi-br] Abrir aquivo txt no notepad
O NOTEPAD não tem opção que permita, a partir da sua chamada via linha de
comando, selecionar a fonte a ser usada para edição. Sugiro que busque qual a
chave no registro do Windows que armazena a fonte usada pelo Notepad e altere-a
antes de chamar o Notepad para a fonte desejada.
Boa sorte.
Sds.
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir aquivo txt no notepad
Pessoal, o que eu quero é que o meu software abra um arquivo txt. Estou
fazendo da seguinte maneira:
WinExec(pchar('notepad.exe ' + ExtractFileDir(Application.ExeName) +
'\NomedoArquivo.txt'), SW_SHOW);
Eu gostaria que o NotePad já abrisse com a fonte Courier.
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Abrir aquivo txt no notepad
É possível abrir um arquivo txt no notepad com uma fonte pré-definida? Eu gostaria de usar a fonte Courier, pois se cada letra ocupar um tamanho diferente o texto fica todo desconfigurado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DataRequest não dispara
Veja se esse exemplo pode te ajudar.
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataset1.DataRequest('QualquerCoisa');
end;
function TForm1.DataSetProvider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
begin
if (Input = 'QualquerCoisa') then
ShowMessage ('Você chamou o DataRequest!');
end;
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Clientdataset grava registro antigo em XML
Estou gerando um arquivo de configuração, e como é apenas um registro estou usando um clientdataset e salvando em um xml. Estou usando Clientdataset.LoadFromFile e ClientDataset.SaveToFile. Funciona normalmente, mas o problema é que quando altero algum campo, o registro anterior é guardado no xml, apesar do clientdataset sempre mostrar apenas um registro. Dessa forma o tamanho do arquivo vai aumentando cada vez mais. Tem como atualizar o registro sem guardar os dados antigos no XML? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dbedit com EditM ask não limpa
procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key in [VK_BACK, VK_DELETE]) then (Sender as TDBEdit).Field.Clear end; [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Clientdataset grava registro antigo em XML
Gustavo, funcionou. Só tenho que ter o cuidado de colocar o código logo após a abertura do Clientdataset. Se colocar após editar o client não funciona. Valeu, muito obrigado! Alisson - Original Message - From: Gustavo Teruel To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 13, 2010 12:39 PM Subject: RES: [delphi-br] Clientdataset grava registro antigo em XML Coloque assim: ClientDataSet.LogChanges:=False; Acredito que irá funcionar. Teruel [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com StringGrid
Eu não entendi o que você quis dizer com setando o tamanho executar o Create
da classe TStringGrid. Mas, de qualquer maneira talvez o exemplo abaixo possa
ajudar.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Grids : Array of TStringGrid;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(Grids, Length(Grids) + 1);
Grids[Length(Grids)-1] := TStringGrid.Create(Self);
Grids[Length(Grids)-1].Parent := Self;
Grids[Length(Grids)-1].Top := Length(Grids) * 50;
Grids[Length(Grids)-1].Left := Length(Grids) * 50;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Editar clientdataset após applyupdates
Tem algum jeito de editar um registro no clientdataset depois de dar o applyupdates? Sempre que tento fazer isso sempre dá a mensagem Record not found or changed by another user. Então eu tenho que fechar o clientdataset e fazer a consulta novamente. [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Editar clientdataset após applyupd ates
Quais configurações devo fazer? Não deu certo as configurações citadas nesse link: http://br.dir.groups.yahoo.com/group/delphi-br/message/194836 - Original Message - From: Walter Chagas (Bol) wchag...@bol.com.br To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 24, 2010 11:43 AM Subject: Re: [delphi-br] Editar clientdataset após applyupdates Na verdade seu CDS deve estar com algum problema de configuração e não está gravando o registro corretamente. []s __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] OFF-TOPIC - Lista sobre PAF-ECF
Alguém conhece uma boa lista de discussão sobre PAF-ECF/ACBr? Vou aproveitar o ensejo e vou relatar um problema sobre o assunto: Estou tentando usar o exemplo de ECF que vem junto com a instalação dos componentes ACBr, mas sempre dá erro de timeout mesmo que eu configure o timeout com o valor máximo(100). Alguém aqui na lista sabe por que? [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ler arquivo XML
Olá Josimar! Você tem algum exemplo de como ler o xml usando o componente TXMLDocument? Eu até consegui resolver o problema. Bastava criar os campos no clientdataset e usar o campo do tipo dataset que era criado para fazer o relacionamento em um clientdataset detalhe. Mas não gostei muito do TXMLTransformProvider porque é necessário criar um arquivo .xtr pra conseguir usá-lo. - Original Message - From: Josimar Zimermann To: delphi-br@yahoogrupos.com.br Sent: Monday, June 14, 2010 8:22 AM Subject: Re: [delphi-br] Ler arquivo XML Olá Alisson! Será que não seria melhor usar um TXMLDocument ?? Falou! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sugestão
Eu uso o IBDac e funciona bem. Meus componentes são criados em tempo de execução no servidor e a criação ficou bem mais rápida que os componentes DbExpress. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ler arquivo XML
Estou tentando ler um arquivo XML usando o componente XMLTransformProvider. O XML é o arquivo da nota fiscal eletrônica. Eu ligo um clientdataset a um XMLTransformProvider. Dessa maneira eu consigo abrir o cabecalho da nota fiscal, mas não consigo abrir os itens da nota. Alguém sabe como fazer isso? [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Programador Senior Delphi - PAF-ECF
- Original Message - From: marcosflexerp59 marcosflexer...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Friday, June 04, 2010 8:04 PM Subject: [delphi-br] Programador Senior Delphi - PAF-ECF Empresa localizada em São Paulo contrata PROGRAMADOR Senior com o seguinte perfil: REQUISITOS: -Amplo domínio de Delphi 7 ou maior. -Experiência com impressoras fiscais e PAF-ECF. A empresa oferece a possibilidade de trabalhar em regime Home-Office e salário a combinar. Interessados devem enviar currículo, com pretensão salarial para marcosflexer...@yahoo.com.br. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Segurança DataS nap
Mas como define permissões para IPs específicos se a máquina que vai acessar remotamente não tiver IP Fixo? De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Alexandre Lemos Rodrigues Enviada em: sábado, 15 de maio de 2010 18:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Segurança DataSnap Pra quem ela fica ou não aberta cabe ao seu firewall definir. Voce pode abrir apenas pra sua rede interna ou para IPs específicos. Outra medida de segurança é mudar a porta padrão, já que 211 todo mundo sabe que é usada pelo Socket Server. Use uma porta de valor alto de preferência, pra lá dos 10.000. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] OFF TOPIC-Multiprocessamento com Firebird
Instalei novamente usando a versão Classic , fiz um backup e restore. Funcionou. Rodei um relatório bem pesado e a performance foi bem melhor. Verifiquei no gerenciador de tarefas que os 4 processadores estavam sendo usados no processo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [MAF] Banco de dados free
Esses documentos podem ser gravados em um campo do tipo blob. Eu faço no Firebird usando os componentes da Devart. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Sistema para Builds de projetos
No Delphi 7 eu uso o Project Manager. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro na Conversão de BD usando Clien tDataSet
Veja o que diz o help do Delphi : Set MaxErrors to -1 to indicate that there is no limit to the number of errors. Ou seja, se você colocar -1 no parâmetro o ClientDataset vai aceitar infinitos erros. Coloque DMCONVERTE.CDSForn2.ApplyUpdates(0); e não esqueça de colocar uma exceção no evento OnReconcileError. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Filter not found to convert type 1 to type 2
Quando mudei de banco também tive esse tipo de problema. Tente fazer um backup e restaurar. Se não der certo gere o script e crie o banco novamente e depois crie scripts com os dados e jogue os dados para o banco novo. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] BDE funciona de 2 modos diferentes
Alguém sabe me dizer porque em algumas máquinas o path do BDE funciona configurado como servidor:c:\pasta\bd.gdb e em algumas tenho que configurar como \\servidor\c:\pasta\bd.gdb? Inclusive em algumas máquinas param de funcionar e eu tenho que mudar essa configuração, ou seja, ora funciona de um jeito, ora funciona de outro. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] NFe c/ ACBR
Chave := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; Protocolo := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; Recibo := ACBrNFe1.WebServices.Retorno.NFeRetorno.nRec; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Erro em Post Usando 2 Tabelas
Você configurou os ProvidersFlags dos campos que não serão salvos para False? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Componentes ACBr
Alguém aqui usa os componentes ACBr para emissão de nota fiscal eletrônica? Vocês recomendariam o uso do componente? Gostaria de inscrever em um grupo de discussão sobre o assunto. Instalei os componentes, mas quando tentei rodar um demo deu a seguinte mensagem : Unit ACBrNFeDANFERave wad compiled with a different version of RpRave.TRvProject.Open. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Paradox para SqlServer2000
Bem, faz um bom tempo que não trabalho com SQL Server nem Paradox. Mas, o tipo Date no Paradox deve ser uma data simples, sem hora. No SQLServer deve ter um tipo igual a esse. Deve ser SmallDate ou coisa parecida. - Original Message - From: Nivaldo Stainle stainle2...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Friday, January 08, 2010 9:00 AM Subject: Re: [delphi-br] Paradox para SqlServer2000 e quando um campo for DATE no paradox, que tipo você coloca no SQLSERVER ?? Stainle __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
Mas e se os campos já existirem? Eu vou ter que trocar um a um via código? - Original Message - From: humberto sales de oliveira humberto_...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 16, 2009 11:51 PM Subject: Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird declare dessa forma ALTER TABLE ESTOQUE ADD DESCRICAO Varchar(60) COLLATE WIN_PTBR; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Problema com ClientDataset
Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente também : ClientDataset.CommandText := 'select * from CONTAS Where COD_CONTA = ' + DBGrid1.Fields[0].AsString. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] OFF TOPIC-Consultar registro com acentos em Firebird
Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird sem fazer a distinção entre palavras acentuadas e não acentuadas, entre maiúsculas e minúsculas. Ex. Se eu pesquisar por JOAO, a consulta trará registros que contém joão, joao, JOÃO e JOAO. Achei artigos que dizem dizendo que devo usar o Charset WIN1252 e Collate PXW_INTL850. Usando o IbExpert vi que consigo definir o Charset WIN1252 ao criar o banco, mas e oCollate PXW_INTL850? Como faço para definir? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Função para descobrir numero de se rie do HD
Procure pelo assunto no Google e você vai achar aos montes, inclusive em mensagens aqui da lista. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Gravar Enter em campo do tipo String
Vinicius, já resolvi com a dica do Marcelo Luiz. De qualquer maneira, valeu pela disposição em ajudar. Obrigado! __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Gravar Enter em campo do tipo String
Sílvio, acho que você não entendeu. Eu estou tentando fazer isso diretamente no BD através de um Trigger, portanto não vou usar nenhum componente. Se fosse fazer no aplicativo não teria problema nenhum. - Original Message - From: Silvio Clecio silviop...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 02, 2009 5:27 AM Subject: Re: [delphi-br] Gravar Enter em campo do tipo String Alisson Yahoo escreveu: Já tentei #13 e chr(13), mas não existe isso no Firebird Alisson, eu testei aqui e funciona legal, fiz o teste com Zeos e dbExpress e uma tabela só com um campo varchar. Veja qual componente tu usa para visualizar os dados, se o #13 for para quebra de linha em um texto, use DBMemo (ou Memo, caso não use data-aware). -- Silvio Clecio __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Gravar Enter em campo do tipo String
Já tentei #13 e chr(13), mas não existe isso no Firebird - Original Message - From: Vinicius Santos vinicius.santos.li...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Saturday, November 28, 2009 11:48 AM Subject: Re: [delphi-br] Gravar Enter em campo do tipo String Em PostgreSQL vc pode usar a função chr(13), para quebra de linha, verifique se o Firebird tem algo similar. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Gravar Enter em campo do tipo String
Pessoal, como faço pra gravar o caracter #13(Enter) em um campo de um banco Firebird usando uma trigger? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Travar Atualização do Form
Não dá pra fazer as atualizações antes de mostrar o form? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] erro ao restaurar backUp do interbase
Deu algum quando começou o backup e o arquivo ficou travado. Se reiniciar o computador deve resolver. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Tempo de inatividade do software
Coloque um TTimer e um TApplicationsEvents no FormPrincipal. Crie uma variável do tipo Integer. No evento OnMessage do TApplicationsEvents zere esse variável. Se o sistema ficar inativo não vai passar no evento OnMessage. No evento OnTimer do TTimer incremente essa variável. Quando essa variável atingir o valor desejado feche o sistema. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] ClientDataSet.DataRequest uso?
Você quer fazer consultas no banco de dados? Se for esse o seu objetivo você deve usar o DatasetProvider com a propriedade Options-AllowCommandText = True, e definir a sentença SQL na propriedade CommandText do ClientDataset. Você pode também definir a consulta no Dataset na aplicação servidora, e abrir o Clientdataset na aplicação cliente. Na segunda opção você não vai alterar a propriedade Options-AllowCommandText do DatasetProvider. Espero ter ajudado em alguma coisa. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Excluir vários itens através do DB Grid
Eu faço da seguinte forma: - Jogo os dados em um ClientDataset - Crio um campo do tipo InternalCal no ClientDataset - Coloco esse campo criado na primeira coluna do DBGrid - Defino a Fonte dessa coluna como Marlett (nessa fonte o caracter 'a' é igual ao checado do TCheckBox), tamanho 10, cor azul - No evento OnDblClick do DbGrid gravo o valor 'a' ou '' no campo do ClientDataset. Também pode ser colocado no evento OnKeyDown ou OnKeyPress do DbGrid. - Para definir quais registros devem ser trabalhados pela sua rotina, basta verificar se o campo está com o valor 'a' ou '' OBS.: No Delphi 7 tem um bug que sempre altera o estilo da fonte.Então coloque no evento OnShow do Form: DbGrid.Columns.Items[0].Title.Caption := ''; DbGrid.Columns[0].Font.Style := []; Em todos os DbGrids que tenho necessidade de CheckBox uso dessa forma. Criei uma função que muda o valor do campo dando o aspecto de checado e não checado, e uso no evento OnKeyDown e OnDblClick de todos os DbGrids. Acho bem mais simples que implementar um DbGrid com CheckBox. Funciona muito bem e fica com um visual legal. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] uma ideia de como fazer
Use a mesma sugestão que dei para o tema EXCLUIR VÁRIOS ITENS ATRAVÉS DO DBGRID __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Dúvida TEF
Como funciona esse desconto embutido? O item é vendido por um preço menor? Se for assim, é ilegal, pois o valor do produto deve ser o mesmo independente da forma da pagamento. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] cupom fiscal duvidas ?
Precisa ser homogado sim. E sem querer te desanimar, dá um trabalho do cão! Na empresa onde trabalho estamos desenvolvendo e tivemos que contratar um consultor fiscal pra ajudar a gente. Nem estou confiante que vamos conseguir homologar da primeira vez. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Erro em bloco try...finally
Pessoal, tenho um código em bloco try...finally que não mostra mensagem quando há uma exceção. Esse tipo de estrutura esconde as exceções? Eu tenho que colocar um bloco try...except dentro do try...finally? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Erro ao carregar dll
Uso algumas dlls em meu projeto. Quando tento abrir o exe em algumas máquinas pede uma dll que não está incluída no projeto(Libeay32.dll). Inclusive em algumas máquinas o exe nem abre se não existir essa dll, dando a seguinte mensagem: Aplicativo não inicializado corretamente (9xc015002). Clique em OK para finalizar.. Alguém sabe do que se trata essa dll, e por que meu programa está pedindo ela? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Erro em Generator do Firebird
Faço uma consulta que busca e incrementa o generator no BD: Select Gen_Id(Gen_PedVenda, 1) as Ultimo From Rdb$Database; Esse código está dentro uma transação juntamente com uma rotina de inserção em BD. Se der erro na inserção a mesma é cancelada, mas o incremento do generator não. Isso é normal? O que pode estar acontecendo? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Erro em Generator do Firebird
Pessoal, obrigado pelas sugestões. Ao invés de usar generator, estou pensando em fazer o seguinte: Vou criar um campo em uma tabela de configurações para guardar o número do último registro e fazer a sequência abaixo. O que acham? try Iniciar transação; Selecionar o valor do campo; Inserir Dados(Tabela mestre e detalhe); Atualizar valor do campo para Valor+1; Confirmar transação; except Cancelar transação; end; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Aplicativo não inicializado corretamente
Pessoal, tenho um aplicativo que funciona normalmente, mas em uma determinada máquina não funciona de jeito nenhum. Ao tentar abrir o exe dá a seguinte mensagem: Aplicativo nao inicializado corretamente (0xc0150002). Clique em OK para finalizar a execução. Estou usando Delphi 7 com Firebird. Se eu colocar essa máquina como servidor as demais máquinas acessam normalmente, mas a própria não. Alguém tem alguma idéia? Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Re: [delphi-br] Delphi 2010 Update 1
Aliás, 2010 ainda está longe! Esse jogada é pra parecer que o produto é muito avançado, uma coisa do futuro. Acho isso uma grande besteira. - Original Message - From: Anakin jcp...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 24, 2009 5:43 PM Subject: [delphi-br] Delphi 2010 Update 1 Pessoal, Mal foi lançado o Delphi 2010 e já tem o update 1. []'s João Carlos [As partes desta mensagem que não continham texto foram removidas] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Interceptar um evento
Mas, qual o problema? Você acha que o StringGrid não tem esse evento? Se o problema for esse é só usar o evento OnSelectCell. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] ir DBEdit para a primeira linha do Dgrid
Coloque no OnExit do DbEdit: Dataset.First; DbGrid.SetFocus; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Disco Virtual
Mas, por que o BD deve ficar em disco virtual? Acho que não dá pra fazer isso não. Não seria o caso de usar DataSnap? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Erro sinistro
Pessoal, tenho uma rotina onde atribuo valores a variáveis do tipo Real:
Linha 1: rValItem := QualquerCoisa;
Linha 2: rPercICMS := OutraCoisaQualquer;
Linha 3: rVlrICMS := rValItem * rPercICMS;
Linha 4: //ShowMessage(FormatFloat('#0.00', rVlrICMS);
Se eu colocar um breakpoint na linha 3 eu verifico que variável rVlrICMS
está com o valor = 0, mas as variáveis rValItem e rPercICMS estão com valor
diferente de 0. Se eu habilitar a linha 4, a variável rVlrICMS recebe o
valor corretamente. Alguém pode me ajudar a exorcizar esse espírito? Estou
usando Delphi 7.
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Re: [delphi-br] PROVIDER FALGS
Basta atribuir os providers que forem necessários. Ex.: Campo1.ProviderFlags := [pfInUpdate, pfInWhere, pfInKey]; Campo2.ProviderFlags := [pfInUpdate, pfInWhere]; Campo3.ProviderFlags := []; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] aspas no firebird
Além de usar o QuotedStr, você pode usar 2 aspas simples onde usou aspas duplas. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] ver ip pelo delphi - help
Use um componente TIdHTTP pra implementar a função abaixo:
procedure VerificarIPExterno;
var sAux, sIP : String;
i : Integer;
begin
try
sAux := TIdHTTP1.Get('Endereço do site'); //Coloque aqui o endereço de
algum site que forneça o número de IP
i := Pos('201.', sAux);
if (i = 0) then
i := Pos('200.', sAux);
if (i = 0) then
i := Pos('189.', sAux);
sAux := Copy(sAux, i, 15);
sIP := '';
for i := 1 to Length(sAux) do
if (sAux[i] in ['0'..'9']) or (sAux[i] = '.') then
sIP := sIP + sAux[i];
ShowMessage('Meu IP é : ' + sIP);
except
on E : Exception do
ShowMessage('Não foi possível obter o número de IP!' + #13 +
E.Message);
end;
end;
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Re: [delphi-br] DisplayFormat
Tente fazer um loop depois que já tiver criado tudo. Seria mais ou menos assim: for i := 0 to ClientDataset.FieldCount-1 do if ClientDataset.Fields[i].DataType = ftFloat then (ClientDataset.Fields[i] as TFloatField).DisplayFormat := '#0.00' else if ClientDataset.Fields[i].DataType = ftCurrency then (ClientDataset.Fields[i] as ftCurrencyField).DisplayFormat := '#0.00' else if ClientDataset.Fields[i].DataType = ftBCD then (ClientDataset.Fields[i] as ftBCDField).DisplayFormat := '#0.00' else if ClientDataset.Fields[i].DataType = ftFMTBcd then (ClientDataset.Fields[i] as TftFMTBcdField).DisplayFormat := '#0.00'; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] MDI para SDI
Eu não entendi qual a relação entre o uso do Linux e o modo de abertura das telas do seu programa. Mas, veja se esse modo de abrir as telas pode te ajudar. Eu crio o form principal do programa igual a tela principal do Delphi, colocando a propriedade Align do form = alTop. Os demais forms são abertas na área restante da tela com a propriedade Align do form = alClient. As telas são exibidas com Show ao invés de ShowModal. Assim é possível abrir vários forms ao mesmo tempo e os forms não ficam espalhados pela tela. Se quiser mostrar um form que já foi aberto basta utilizar o ítem de menu ou um botão, ou ainda usar uma combinação de teclas para jogar os forms pra cima, um a um. Espero ter ajudado em alguma coisa. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Memo ou RichEdit - Problema
Além de definir a fonte como Courier, que é uma fonte que ocupa o mesmo espaço para todos os caracteres, você deve definir também o tamanho pra cada campo que vai mostrar no memo. Quando o valor do campo for maior que o tamanho máximo deverá cortar o excendente, quando for menor terá que completar com espaços em branco. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Fields Editor
Acho que não dá pra fazer isso não. Mas você pode incluir os componentes normalmente e usar o plugin GExperts pra substituir por outros componentes. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Participem da minha vaquinha! - Vakinha.com.br
Meu salário está muito baixo. Vou fazer uma vaquinha pra complementar meu salário. Sinceramente, é muita folga! Esse assunto é digno de moderação! - Original Message - From: Marcelo - CH Sistemas marc...@chsistemas.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 12, 2009 2:12 PM Subject: RES: [delphi-br] Participem da minha vaquinha! - Vakinha.com.br Era só o que faltava mesmo isso é muita babaquise __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Re: OFF TOPIC - Erro de select em campo datetime
Marcos, o registro tem valor na hora. Se eu fizer SELECT CAMPO FROM TABELA WHERE CAMPO '13/08/2009 13:56:37', a consulta retorna os registros que tem o campo com valor igual a '13/08/2009 13:56:37'. - Original Message - From: marcosksb marcos...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 12, 2009 8:29 AM Subject: [delphi-br] Re: OFF TOPIC - Erro de select em campo datetime Este campo nao seria data com hora.. ai vai trazer mesmo tudo que for maior que a data + hora zero se vc nao informar... 26/07/2009 00:00:00 ve se nao e isto __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Abrir varias telas junto ???
Pra fazer eu abro as telas com Show ao invés de ShowModal. Tenha cuidado de abrir com ShowModal as telas que tenham relação com a tela aberta anteriormente e tenha que ser fechada antes de abrir outra tela. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] OFF TOPIC - Erro de select em campo datetime
Estou fazendo o seguinte select no Firebird 2.0 : Select * From Tabela Where Campo :Data Se na tabela tiver algum registro com o campo exatamente igual ao parâmetro, esse registro é retornado pela consulta, quando deveria retornar apenas os registros com data maior que a do parâmetro. Alguém sabe por que isso acontece? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] dimensão de um formulario - help
Screen.Height e Screen.Width __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] pesquisar parte de um campo usando locate
Nesse caso seria melhor usar a função Pos.
procedure Tdm.cdsTabelaFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := Pos('SILVA', cdsTabelaNOME.AsString) 0;
end;
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Re: [Bulk] [delphi-br] Re: agregar ayuda a mi aplicacion
Pessoal, vejam esse tópico das regras da lista. III. REGULAMENTO a) GERAL: 1. O idioma oficial da lista é o português. Mensagens em outros idiomas não serão permitidas. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] É possível alterar a classe de um objeto já criado ?
Eu já fiz isso abrindo o form como texto e mudando o tipo do campo. Quando você compila, o Delphi diz que a declaração e pede confirmação para alterar. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] fixar form
Além de usar a função pra colocar o form na posição desejada, mude a propriedade Align para alCustom. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Como mudar uma propriedade automaticamente?
Você pode usar uma função como essa. O que você quer fazer exatamente? procedure TForm1.MudaCor(Lbl: TLabel; Tag : Integer); const Cores : array[0..4] of TColor = (clBlue, clRed, clYellow, clBlack, clGray); begin Lbl.Tag := Tag; lbl.Font.Color := Cores[Tag]; end; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Re: Arquivo XML
Tente o seguinte: Abra o arquivo xml normalmente.Crie um novo clientdataset com os campos necessários. Pegue os dados do clientdataset e grave no novo clientdaset. Procure na internet sobre como criar os campos em run-time. Veja esses exemplos http://forum.clubedelphi.net/viewtopic.php?t=51382highlight=fields+add http://forum.devmedia.com.br/viewtopic.php?t=60845view=previoussid=d7872ecf12e7027ea173e7e26fb2ded8 __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Nome e data do executável
Use a função FileDateToDateTime e Application.ExeName __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Erro firebird 2.1
Já passei por um problema parecido migrando de Firebird 2.0 para Firebird 2.5. Usando o IBExpert, gerei um script de inserção com os dados da tabela que estava dando problema. Apaguei a tabela e criei novamente, depois rodei os scripts para inserir os dados novamente. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] JOIN no TADOQuery
Eu utilizo clientdataset e resolvo esse problema configurando as propriedades ProviderFlags dos campos. Não conheço os componentes ZeosLib, mas imagino que dá pra fazer do mesmo modo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Validacao de PIS
Pra que componente? É uma rotina muito simples. Pesquisei na internet e
achei uma função pra validar PIS:
function TForm1.ConferePis(sPis: String): Boolean;
var i, iSoma, iAux, iDigito: Integer;
begin
iSoma := 0;
iAux := 2;
for i := 1 to 10 do
begin
iSoma := iSoma + (iAux * StrToInt(Copy(sPis, 11-i, 1)));
if iAux 9 then
iAux := iAux+1
else
iAux := 2;
end;
iDigito := 11 - (iSoma mod 11);
if iDigito 9 then
iDigito := 0;
Result := StrToInt(Copy(sPis, 11, 1)) = iDigito;
if not Result then
MessageDlg('Pis inválido!', mtWarning, [mbOK], 0);
end;
Eu tenho essa outra pra conferir CPF. Eu chamo no evento OnExit do
componente:
function ConfereCPF(Edit : TCustomEdit) : Boolean;
var n1,n2,n3,n4,n5,n6,n7,n8,n9,d1,d2: Integer;
Digitado, Calculado, Num : String;
begin
ConfereCpf := True;
Num := Edit.Text;
Num := StringReplace(Num, '.', '', [rfReplaceAll]);
Num := StringReplace(Num, '-', '', [rfReplaceAll]);
Num := StringReplace(Num, '_', '', [rfReplaceAll]);
if (Trim(Num) '') then
begin
n1 := StrToInt (Num[1]);
n2 := StrToInt (Num[2]);
n3 := StrToInt (Num[3]);
n4 := StrToInt (Num[4]);
n5 := StrToInt (Num[5]);
n6 := StrToInt (Num[6]);
n7 := StrToInt (Num[7]);
n8 := StrToInt (Num[8]);
n9 := StrToInt (Num[9]);
d1 := n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10;
d1 := 11 - (d1 mod 11);
if (d1 = 10) then
d1 := 0;
d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11;
d2:=11-(d2 mod 11);
if (d2 = 10) then
d2:=0;
Calculado := IntToStr(d1) + IntToStr (d2);
Digitado := Num[10] + Num[11];
ConfereCpf := Calculado = Digitado;
if (Calculado Digitado) then
begin
Edit.SetFocus;
raise exception.Create('CPF não confere!');
end;
end;
end;
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Problema de Lentidão (SQL)
Quando tiver componentes (DbGrids, Edits, etc) ligados ao datasource, desabilite-os antes do loop e habilite novamente no final: Dataset.First; Dataset.DisableControls; while not Dataset.Eof do begin Dataset.Next; end; Dataset.EnableControls; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Substituir string
Puxa, que mico! Eu tenho o GExpert instalado e não sabia que ele fazia isso. Obrigado Vinicius, e desculpe pessoal! - Original Message - From: Vinicius A. Santos vinic...@msisolucoes.com.br To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 25, 2009 4:46 PM Subject: Re: [delphi-br] Substituir string E o GExperts ? ele tem um recurso Grep Search __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Substituir string
Existe alguma maneira de pesquisar e substituir uma determinada string em todos os arquivos .dfm de um projeto? Uso Delphi 7. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Substituir string
Eu já tinha usado o GReplace, mas em muitos arquivos ele dá erro e deixa o arquivo todo bichado. Testei o HandyFile, e, apesar da versão Free ser limitada deu pra usar. Ele só permite verificar 33 arquivos por vez. Fui colocando os arquivos por etapa em uma pasta e fazendo os acertos. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] erro clientdataset
Mas, qual a mensagem de erro que dá? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Listar datasets presentes em um form
Já descobri como se faz. É muito fácil, eu estava tentando reinventar a roda. Eu achava que tinha que fazer alguma rotina pra verificar os componentes que existiam no form e listá-los na propriedade. Basta declarar a propriedade: property DataSet : TDataSet; Depois é digitar CTRL + ALT + C e está pronto. Quando o componente for colocado no form já aparece a propriedade Dataset no Object Inspector com todos os datasets que foram colocados no form. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Listar datasets presentes em um form
Gostaria de criar uma propriedade em um componente. Essa propriedade seria do tipo Dataset. Eu pegaria todos os componentes do tipo dataset que estão em um form e os colocaria nessa propriedade. Alguém sabe como fazer isso? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] OFF TOPIC-Emulador ECF Bematech
Estou tentando usar o Emulador de ECF da Bematech, mas ao ligar o ECF sempre aparece a mensagem de erro : Houve um erro na porta serial Alguém da lista usa esse emulador? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dbexpress - Vocês recomendam? - Un idac
Mas, lembre-se que o preço é U$ 249,95(dólares) e não R$249,95(Reais) - Original Message - From: Eduardo Silva dos Santos eduardo@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 02, 2009 12:15 AM Subject: Re: [delphi-br] Dbexpress - Vocês recomendam? - Unidac http://www.devart.com/unidac/ordering.html $249,95 com todos os Provider's ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Dbexpress - Vocês recomendam? - Un idac
Eduardo e demais usuários do Unidac, quero convencer o meu patrão que não entende nada de programação a comprar o pacote. Que argumentos vocês poderiam me sugerir para convencê-lo? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Timestamp
Chave com tipo Timestamp? Que horror! Eu só uso chaves do tipo Integer. Mas vamos lá: Como você está mandando esses dados para o sistema mixurica? São vários registros em lotes e você gera a chave no momento de enviar? Se for assim é bem possível gerar erros. Não sei como é no Paradox, mas pelo menos no Firebird, o tipo Timestamp tem o seguinte formato: dd/mm/ hh:mm. Portanto só dá pra incluir um registro a cada minuto. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] OOP - Quais as vantagens?
Walter, por que você diz que uma procedure só pode ser reaproveitada em alguns projetos? Você pode colocar a procedure em uma unit, e usar essa unit em quantos projetos quiser. Ou então CTRL+C e CTRL+V, e pronto! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF] Pedido de Retratação
Gritar com um surdo-mudo ao telefone? Acho meio difícil! Você se comunica com surdo-mudo pelo telefone? Continuo dizendo que essa regra que criaram é uma grande bobagem. Existem pessoas que escrevem (em papel) só com letras maiúsculas. Se eu ler o que essa pessoa escreveu, vou considerar que essa pessoa está gritando? Por que vou interpretar de maneira diferente o texto que a pessoa escreveu em um papel e o mesmo texto que ela escreveu em um e-mail? Não há como expressar emoções ou modo de falar apenas pelo formato da letra, mas sim com as palavras com que se escreve. Por isso, devemos usar as palavras adequadas para nos exprimirmos. - Original Message - From: EmbarcaDelphi embarcadel...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 19, 2009 12:32 PM Subject: Re: [delphi-br] [OFF] Pedido de Retratação Não diga Alisson Engraçado que em braile (para os surdos e mudos), na própria linguagem em revistinhas, etc... tem sua própria maneira de interpretações. Uma pessoa surda-muda não jamais vai achar que você está gritando com ela se você gritar ao telefone, já percebeu isso? Então, a internet também criou sua maneira de falar. ENTENDEU? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Firebird no Vista
No Windows Vista você sempre deve colocar o nome do servidor ao acessar o BD, mesmo que seja em máquina local. Ex.: servidor:c:\meusistema\meubanco.fdb. Talvez possar ser isso. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Não quero escrever os campos
Se você der um duplo clique na propriedade CommandText do SQLDataset não abre o editor? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Bug no Delphi com ComboBox
Fiz o teste no Delphi 7 e deu o problema. Engraçado que o erro não ocorre se o foco estiver em um componente que não seja um combobox com essa propriedade. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] [OFF] Pedido de Retratação
Acho um grande bobagem dizer que a pessoa está gritando quando escreve com letras maiúsculas. Isso só existe porque assim o foi definido pelos usuários de internet. Se você escrever com letras maiúsculas para uma pessoa que não tem contato com internet ela jamais vai achar que você está gritando. Considero sim, que o texto fica feio, mal redigido. Mas, como existem inúmeras mensagens mal redigidas nesta lista, já me acostumei com isso. __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Sistema Campeonato de Futebol
Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é esse programa? Qual a finalidade dele? O que ele vai controlar? Quem vai usar? Você deve definir o que realmente quer fazer. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] OFF TOPIC-Erro ao restaurar backup Firebird 2.1
Ao tentar restaurar o backup pelo IbExpert dá a seguinte mensagem: expected backup description record. Alguem sabe o que é isso? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] OFF TOPIC-Erro ao restaurar backup Firebird 2.1
Eu já tinha visto essa página na internet, mas não dá pra entender nada. Na página nem fala do que se trata esse erro. - Original Message - From: Ricardo César Cardoso ricardo_engs...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 14, 2009 1:25 PM Subject: Re: [delphi-br] OFF TOPIC-Erro ao restaurar backup Firebird 2.1 Dá uma olhada aqui nesse link: http://www.firebirdsql.org/manual/pt_br/fbutils-gsplit-joining-pt_br.html Pode ser que ajude no seu problema. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
