O que ocorre é que dentro deste arquivo existem campos em branco.
Ex.: 100,,098
Eis umas das dificuldades.
Abraço.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dirlei Dionísio
Enviada em: terça-feira, 13 de julho de 2010 22:28
O problema é que os campos tem tamanhos variados, não teria como eu dar um copy.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Wagne®_Fix
Enviada em: terça-feira, 13 de julho de 2010 16:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br]
Pois é, este formato esta me deixando louco aqui.
Existem os valores do tipo float que também possuem as vírgulas e não são
delimitados por aspas duplas. “100”,10.200,25,”098”
Existem campos em branco “100”,””,10.200,25,”098”
Esta sendo um grande dilema.
Abraço.
De:
Que Delphi ?Isso ocorre com Rave? ou Só no QReport?
--- Em ter, 13/7/10, ricardo_n2 rica...@n2solutions.com.br escreveu:
De: ricardo_n2 rica...@n2solutions.com.br
Assunto: [delphi-br] QuickReport
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 13 de Julho de 2010, 13:56
Salve,
pessoal estou desenvolvendo um aplicativo para envio de email em massa,
porem estou meio estacionado na criação da mensagem ou seja consegui criar o
editor com o richedit, porem na hora de converter utilizando o
jvrichedittohtml ele nao leva as imagens, como consigo resolver isto?
Alguem
A rotina q te mandei faz justamente isso, ignora as virgulas
pega a Aspas + a virgula , para identificar o final do campo valido
quero dizer... foi esta a intenção
mais a noite vou estar com o delphi e posso fazer a rotina funcionar
caso ela nao tenha funcionado
se ate la nao tiver resolvido eu
Vc tem que definir o Parent do TStringGrid criado.
Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com escreveu:
Olá, bom dia a todos
Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um
form, eu consigo criar um Array de StringGrids e setando o tamanho
Ralp,
Eu coloquei um Edit, um memo e um botão no form, no evento onclick do botão
eu coloquei o código abaixo, este código gera uma linha para cada informação
do registro, ai é só fazer o looping no memo.
var
Str: TStringList;
begin
Str:=TStringList.Create;
Str.Delimiter:=',';
Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou
coloca-la novamente em outras palavras para ver se aparece uma solucao.
Pelo jeito o OldValue e NewValue funcionam quando quando passamos pelo POST e
ApplyUpdates, mas eu gostaria de verificar por exemplo:
em um campo
Ok Walter, vou testar aqui e posto o resultado.
Abraço.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Daniel Azevedo
Enviada em: terça-feira, 13 de julho de 2010 17:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de
Quando o usuario nao pode usar o desconto, compara o oldValue com newValue se
for diferente volta para o OldValue não precisa guardar em variavel
nenhuma.está
meio confuso.
De: Jean Alysson jeanp...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas:
Desculpe Daniel, troquei o seu nome pelo do Walter.
Não sei o que houve aqui em meu micro. Meu outlook parou de funcionar e não
consigo recuperar minhas mensagens.
Poderia me enviar novamente a rotina?
Abraço.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
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
Ruben, torno a questionar.
E se tiver dois valores float na sequencia? Lembre-se que os valores float não
vem entre aspas.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN:
Joao,
Vc pode multiplicar por 100 o salario para eliminar os centavos,
acrescentar 8% e dividir por 100 usando MOD e nao a / (barra de
divisao), assim vc tem somente a parte inteira.
Obrigado.
MuriloCunha
On 13/07/2010 09:40, joao_jma wrote:
Preciso atualizar o salário na base de dados
2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br:
Ruben, torno a questionar.
E se tiver dois valores float na sequencia? Lembre-se que os valores float
não vem entre aspas.
Li todos os emails desta thread e gostaria de fazer um comentário.
Se não há um padrão[1] no arquivo então,
Declare Math no Uses
Var NovoSalario,AntigoSalario,Aumento:Double;
Begin
AntigoSalario:= 1333;
Aumento:= 8;
NovoSalario:= Roundto(AntigoSalario + (AntigoSalario * (Aumento / 100)), 0);
William C. Brazilino
[As partes desta mensagem que não continham texto foram removidas]
Marcos Douglas wrote:
2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br:
Ruben, torno a questionar.
E se tiver dois valores float na sequencia? Lembre-se que os valores float
não vem entre aspas.
Li todos os emails desta thread e gostaria de fazer um comentário.
Se não há um
Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo
para importação. E para minha surpresa, os valores não mais tinham as casas
decimais com vírgula e sim ponto.
Acredito que possa ter ocorrido um erro na geração do arquivo anterior.
Esta é uma das linhas de
Esse txt daí foi osso viu...
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Marcelo
To:
2010/7/14 Ralp Alves Bezerra ral...@gmail.com:
Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo
para importação. E para minha surpresa, os valores não mais tinham as casas
decimais com vírgula e sim ponto.
Acredito que possa ter ocorrido um erro na geração do
Acabei de falar com um amigo que trabalha numa empresa de rastreamento de
veículos onde as informações chegam a cada milésimos de segundo e ele me disse
exatamente assim:
Tirei o firebird de todos os sistemas esta semana
ficou 10
80 % mais rápido
foi a maior c...@#$ colocar aquele firebird
a
Agora ficou barbada vei.
Use esta função minha que vai funcionar, se o separador de dados for a virgula
Voce poe a String num loop e declara-a na função como Frase e a virgula vai ser
a parte.
em cada passada no loop, ela vai tirando uma parte da string delimitada pela
virgula e te retorna o
Com certeza, agora acho que vai dar certo.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Walter Chagas (Bol)
Enviada em: quarta-feira, 14 de julho de 2010 09:40
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo
Amigo, tenho usado Firebird em todos meus sistemas, e digo que ele sim é
muito bom... agora.. usar ele para sistemas de missão crítica!? Aí eu já
acho que não compensa... podem dizer o que for, o Firebird é bom? Sim! Mas
depende do caso...
[]s
Em 14 de julho de 2010 10:26, Eny Urias
O problema é que os valores de OldValue e NewValue so aparecem quando
executamos um POST, mas desejo fazer essa verificacao sem executar POST, quando
o usuario sai do campo (OnExit) de desconto.
Será que o valor antigo fica em memoria ?
--- Em delphi-br@yahoogrupos.com.br, Marcelo
Galera,
No próximo sábado (17/07) estarei no FDD falando um pouco sobre o
desenvolvimento comercial com Delphi 2010, DataSnap e FireBird.
(http://tinyurl.com/2dbyb7r)
Este ano estamos comemorando 10 anos do FireBird e existem muitas apresentações
legais sobre uso do banco de dados,
Olá Amigos(as),
Esse site é muito maneiro, tem várias promoções (mais em conta até que as
que aconteciam do Visa) aqui em Brasília. E se vc viaja pelo país, tb pode
encontrar em outras cidades.
Vale a pena conferir.
O link é:
Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão
cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto
nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é
dilema ou paradoxo tão complexo pra ser resolvido. Se
Não, não fica!
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Jean Alysson
Enviada em: quarta-feira, 14 de julho de 2010 09:42
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: [delphi-br] OldValue e NewValue - de novo !
O problema é que os
Ora, o StringReplace vai retirar as aspas onde apenas haverão aspas, e o
separador será ponto-e-vírgula. Não vejo problema nenhum nisso.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Walter Chagas (Bol)
Enviada em: quarta-feira, 14 de julho de 2010
Pessoal,
Alguem sabe como adicionar opcoes (TdxBarButton) ao menu da DevExpress?
Quero construir algo semelhante ao descrito abaixo:
|
|- Analises(já existente em DesignTime)
|- Solo (adicionado em RunTime)
|- Foliar (adicionado em RunTime)
O que ocorre é o seguinte:
Neste arquivo texto contém um campo histórico da seguinte forma. exemplo:
“Pagamento efetuado em 25/14, visto que houve atraso.”
Note que existe uma vírgula dentro do histórico.
Retirar as aspas duplas é beleza, porém, se for substituir as vírgulas por
ponto
Mas se for prestar bem atenção ao formato do texto, basta remover as seguintes
sequencias de caracteres por ponto-e-vírgula:
1) ',';
2) ',';
3) ','
Isso não impacta, por exemplo, no conteúdo de um campo literal(string) como o
que vc ilustrou. Pensei q isto estivesse claro!
Sds.
O arquivo original
http://www.grupog2gestao.com.br/NE201005.txt
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Rubem Rocha
Enviada em: quarta-feira, 14 de julho de 2010 11:00
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] Importação
Desculpe pessoal é porque eu realmente nunca importei um arquivo de texto
com esta estrutura.
Seguindo a dica do Rubem, consegui esta procedure para tratar o arquivo
antes da importação:
procedure FileReplaceString( const FileName, searchstring, replacestring:
string );
var
fs: TFileStream;
S:
Olá amigos
Estou com um sério problema na minha aplicação delphi 7 + mysql + ADO.
Estava funcionando tudo perfeitinho numa rotina de registro de entrada a
anos, após uma alteração solicitada pelo meu usuário, eu coloquei apenas uma
mensagem de confirmação e
após a confirmação o mesmo mudou o
kakakakakakaka tcs tcs tcs
Em 14 de julho de 2010 11:00, Jorge Ericsson jericsson...@gmail.comescreveu:
Olá Amigos(as),
Esse site é muito maneiro, tem várias promoções (mais em conta até que as
que aconteciam do Visa) aqui em Brasília. E se vc viaja pelo país, tb pode
encontrar em outras
você nao viu a solução que eu mandei ontem?
=
segue a forma de você resolver:
(
Eu coloquei um ClientDatSet no form e criei 15 Fields chamdos:
campo1...2..3..4..15 como string
e campo16 como Float, os tamanhos são de acordo a cada campo do txt
)
procedure
Ok. Identifiquei que são 38 campos em cada linha de dados. Só preciso saber o
significado e tipo de dados de cada um deles.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Ralp Alves Bezerra
Enviada em: quarta-feira, 14 de julho de 2010 11:07
Para:
É verdade, havia me esquecido de Parent da classe TComponent, né?
Funcionou tudo bem, agora aproveitar a deixa, vocês sabem uma maneira
eficiente de zebrar os Grids criados em tempo de execução?
Em 13 de julho de 2010 22:21, Fabricio Colombo
fabricio.colombo@gmail.com escreveu:
Vc tem
Usa o evento OnSetText do field para fazer a validação, ai vc só escrever o
valor no campo se for um valor válido.
Em 14 de julho de 2010 10:42, Jean Alysson jeanp...@gmail.com escreveu:
O problema é que os valores de OldValue e NewValue so aparecem quando
executamos um POST, mas desejo
var
vList: TStringList;
begin
vList := TStringList.Create;
try
vList.Delimiter := ',';
vList.DelimitedText := SuaLinha;
Memo1.Lines.Assign(vList);
finally
vList.Free;
end;
Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas
duplas, e agora que
Salve,
pessoal estou desenvolvendo um aplicativo para envio de email em massa,
porem estou meio estacionado na criação da mensagem ou seja consegui criar o
editor com o richedit, porem na hora de converter utilizando o
jvrichedittohtml ele nao leva as imagens, como consigo resolver isto?
Alguem
Usa o evento OnSetText do field para fazer a validação.
Em 14 de julho de 2010 08:20, Jean Alysson jeanp...@gmail.com escreveu:
Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou
coloca-la novamente em outras palavras para ver se aparece uma solucao.
Pelo jeito o
verificada pelo ESET Smart Security.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Informa��o do ESET Smart Security, vers�o da vacina 5277 (20100714)
__
A mensagem foi verificada pelo ESET Smart Security.
http://www.eset.com
Voce usa TFields, pois aqui teste na saida do campo e tenho tanto o new quanto
old value.
De: Jean Alysson jeanp...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 14 de Julho de 2010 10:42:17
Assunto: Re: Res: [delphi-br] OldValue e
*Boa tarde!*
O Firebird é muito bom, mas como qualquer sistema gerenciador de banco de
dados, precisa ser bem configurado e o banco precisa ser bem projetado,
afinal ele não faz milagres. Lógico que Oracle será sempre Oracle, como DB2
será sempre DB2, mas o Firebird dá conta do recado sim!
O
Mandei um exemplo pro Ralp que mostra o uso de TStringList para importação
de arquivos, abordando o uso das propriedades QuoteChar, DelimitedText e
Delimiter.
Sds.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fabricio Colombo
Boa tarde pessoal,
alguem sabe como obter o ponteiro de métodos existentes ? no exemplo, se eu
criar o método teste para o form2, funciona, retornando o ponteiro.
No lugar de form2, usarei componentes edit, combobox, etc e metodos existentes.
procedure TForm2.teste ;
begin
Simplesmente foram descontinuados.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Daniel Augusto
Simplesmente foram descontinuados.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Daniel Augusto
Sim o Firebird é bom, mas,, esse mas é que mata... fiz um teste num mesmo
servidor, mesmo aplicativo (delphi) , mesmo metodologia de acesso e gravação
de dados (winserver NTFS) , mesma ferramenta de acesso. (dbexpress e depois
com Zeos). E o postgresql ganhou com louvor no acesso, na velocidade
Gostaria de agradecer a todos na lista que se despuseram a sanar minha
dúvida.
O exemplo que o Rubem Rocha enviou serviu como uma luva.
Gostaria de agradecer também ao nobres colegas Daniel Azevedo, Fabricio
Colombo, Jean Barreiros, Walter Chagas, Marcos Douglas e a todos que de
alguma
Olha o help! MethodAddress só funciona para métods published!
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de eric_developer
Enviada em: quarta-feira, 14 de julho de 2010 13:04
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] MethodAddress
*Boa tarde!*
Leonardo, o problema da maioria dos desenvolvedores que usam o Firebird na
minha opinião e de vários especialistas experts no Firebird (que é o caso
dos russos que fazem parte da IBSourgeon, Cantú, entre outros, que sempre
estão no FDD) dizem, que os usuários tem o costume de
eu tinha olhado, mas postei aqui para saber se há alguma forma de fazer.
Alguém conhece ?
--- Em delphi-br@yahoogrupos.com.br, Rubem Rocha rubem.ro...@... escreveu
Olha o help! MethodAddress só funciona para métods published!
Sds.
De: delphi-br@yahoogrupos.com.br
Eu fiz assim:
http://eugostododelphi.blogspot.com/2010/04/como-executar-um-metodo-pelo-nome.html
*José Mário Silva Guedes*
e-mail: jmariogue...@gmail.com
[As partes desta mensagem que não continham texto foram removidas]
Olá José,
o seu exemplo e do about.com, em resumo é o mesmo que postei, funcionando
somente para os próprios métodos (published), e eu quero testar
(ponteiro)/chamar métodos do edit, combobox, form, etc, ou seja, irei informar
o objeto do componente e a string com o nome do método.
Sabe
Olá galera,
Tenho um SQLQuery criado dinamicamente com uma instrução SQL e nela alguns
parametros (*:*CAMPO), o que acontece é que não estão vindo os tipos desses
parâmentros automáticamente como deveria vir... alguém sabe o que fazer para
corrigir isso? Algum comando especial?
Att,
Jhosef
Pessoal,
Como eu faço para adicionar colunas em meu TcxGrid EM RUNTIME (grid da
DevExpress)??
Obrigado
MuriloCunha
Pessoal,
Como eu faço para adicionar colunas em meu TcxGrid (grid da DevExpress)??
Obrigado
MuriloCunha
É possível que o OpenDialog, ao ser aberto pelo usuário, exiba os arquivos
(cf o Filter programado) em ordem decrescente de Data ?
(isto é, exiba os arquivos mais recentes)
Desde já agradeço a atenção dispensada.
Att.
Albuquerque
[As partes desta mensagem que não continham
Com certeza, cada caso é um caso, além de outras questões que tem versões de
banco de dados (ae, não só o firebird, mas outros titulos tbm), que
funcionam melhor com o server linux, ou server windows, etc,etc.
Ae onde entra o ajuste fino que você citou.
2010/7/14 Fabiano Moura mctbra...@gmail.com
crie um método conforme abaixo, e associe ao stringgrid dinamicamente
procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow:
Integer;Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender) do
begin
if (ACol FixedCols-1) and (ARow FixedRows-1) then
begin
Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas
duplas, e agora que os decimas estão com ponto, pode usar o TStringList que
vai funcionar.
Faça o teste abaixo com uma linha do arquivo.
var
vList: TStringList;
begin
vList := TStringList.Create;
try
O que vc está pretendendo fazer Eric?
Em 14 de julho de 2010 16:02, Mário Guedes jmariogue...@gmail.comescreveu:
Eu fiz assim:
http://eugostododelphi.blogspot.com/2010/04/como-executar-um-metodo-pelo-nome.html
*José Mário Silva Guedes*
e-mail: jmariogue...@gmail.com
A RTTI permite acesso somente aos elementos (propriedades e métodos) declarados
na seção published de um objeto. Escopos de visibilidade abaixo disso (public,
protected ou private) não tem como!
Sds.
To: delphi-br@yahoogrupos.com.br
From: developer.syst...@yahoo.com
Date: Wed, 14 Jul
MethodAddress só funciona para métodos da seção published, normalmente
eventos. Ou vc pode utilizar métodos soltos, e obter o ponteiro utilizando o
@. Não conheço outra forma além dessas duas.
procedure Teste;
begin
ShowMessage('teste');
end;
procedure TForm2.Button1Click(Sender: TObject);
var
Olá Rubem,
Como eu deixo os métodos do edit, combobox, etc como published ?
--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
djpardalro...@... escreveu
A RTTI permite acesso somente aos elementos (propriedades e métodos)
declarados na seção published de um objeto. Escopos de
executar métodos, irei passar para minha função, o objeto e a string com o nome
do método, exemplo:
myCallMethod( edit1, 'SETFOCUS' ) ;
--- Em delphi-br@yahoogrupos.com.br, Fabricio Colombo
fabricio.colombo@... escreveu
O que vc está pretendendo fazer Eric?
Em 14 de julho de 2010
Desconfio desse tipo de chute.
Já vi gente dizendo Firebird em sistemas de missão critica (acho que um deles é
o Bruno Lichot). Não posso dizer muito pois não tenho nenhum sistema de missão
critica, mas posso dizer que no quesito VOLUME DE DADOS o FB aguenta o tranco.
Um camarada aqui tem um
Pessoal desconsidere esse e-mail, foi enviado de forma automática para todos
da minha lista sem minha autorização.
Desculpem..
2010/7/14 Marcos Bernardo xmarcos@gmail.com
kakakakakakaka tcs tcs tcs
Em 14 de julho de 2010 11:00, Jorge Ericsson jericsson...@gmail.com
escreveu:
Olá
Em 14-07-2010 17:04, Murilo Cunha escreveu:
Pessoal,
Como eu faço para adicionar colunas em meu TcxGrid (grid da DevExpress)??
Obrigado
MuriloCunha
Faz 1 mês que não vejo a cara do DevExpress(infelizmente) por isso não
consigo te passar de cabeça, minha memória sempre me deixa na mão...
Em 14-07-2010 20:44, eric_developer escreveu:
Olá Rubem,
Como eu deixo os métodos do edit, combobox, etc como published ?
Não sei se daria certo. Apenas um parpite.
Faça herança dos componentes da VCL e através de um método published
utilize ponteiros para acessar as funções diretamente.
75 matches
Mail list logo
