Rubem,
Convivo com os mesmos problemas aqui em Porto Alegre.
Mas é bom saber que existem exceções.
Sucesso !
Moacir
Em 17/06/2010 11:01, Rubem Rocha escreveu:
Discordo de você quando diz que fui infeliz em meu comentário. A experiência
mostra que muitos contadores não possuem o devido
Evaldo,
Use esta que adaptei do PHP:
function Explode(delimiter:string; source:string) : TStringList;
var
c : word;
begin
Result:=TStringList.Create;
c:=0;
while source'' do
begin
if Pos(delimiter,source)0 then
begin
Opa !!
Quer dizer que pra me conectar com qualquer banco de dados utilizando
ZEOS não preciso de DLL´s ??
Acredito que vc esteja errado.
Eric, as DLL´s necessárias para a conexão com os seus respectivos bancos
de dados vc encontra no subdiretorio LIB da instalação do ZEOS.
Sucesso !!
Alessandra,
Tente assim:
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F','M')
Sucesso,
Moacir
Em 22/04/2010 22:23, alessandra porto escreveu:
Peguei um banco velho de cadastros de clientes
que possui uma serie de erros e preciso
pesquisar todos os clientes que estão cadastrados
Um pequeno comentário:
Todos aqui ajudam de maneira gratuita e dentro do tempo que dispõe para
isto.
O trabalho de moderação, acredito, seja feita nos mesmos moldes..
Portanto, sejamos pacientes.
Sucesso a todos !
Moacir
Em 19/04/2010 09:06, Walter Chagas (Bol) escreveu:
Só lembrando que
Eduardo,
Coloque um painel ali e dentro do painel o teu bitmap.
Moacir
Em 04/04/2010 22:49, Eduardo Silva dos Santos escreveu:
Olá pessoal, alguém tem alguma dica de como exibir um bitmap naquela área do
PageControl? área após o última aba.
segue imagem para ilustrar:
Dimas,
Veja se esta função escrita em Delphi te ajuda ai.
function MostraIdade(dData : tDateTime = 0 ; dDataAtual : tDateTime = 0
) : string ;
var
iAnoIdade,
iMesIdade,
iDiaIdade,
iAnoAtual,
iMesAtual,
iDiaAtual : Integer;
iAno,
iMes,
iDia : Integer;
begin
Dimas,
Mas se tens a rotina em Delphi porque não a adaptas para uso com Firebird ??
A sintaxe no firebird e praticamente a mesma..
Veja como fica o exemplo que te mandei:
SET TERM ^ ;
CREATE OR ALTER PROCEDURE CALCULAIDADE (
ddata date = current_date,
ddataatual date = current_date)
Eduardo,
Tente usar a função QuotedStr:
QryInsert.SQL.Text := ' insert into tabela (CAMPO1, CAMPO2) values (0,
'+QuotedStr(HTML)+') ';
Sucesso !!
Moacir
Em 25/03/2010 10:13, Alemão escreveu:
Olá Eduardo.
Também não funciona desta maneira... Acho que é pq o HTML ja tem as aspas
em seu
Marcos,
Tente usar esta função para fazer o split dos dados:
function Explode(delimiter:string; source:string) : TStringList;
(*
// Name : Explode
// Purpose : each of which is a substring of string formed by splitting
it on
// boundaries formed by the string delim. It does not support PHP's
//
Ralp,
Aparentemente as aspas duplas indicam que aqueles dados são textos e os
campos sem aspas duplas são numéricos:
Veja se esta função aqui te ajuda com este teu problema:
function Explode(delimiter:string; source:string) : TStringList;
(*
// Name : Explode
// Purpose : each of which is a
Fellipe,
Humm..
Meu D7 ainda não foi notificado disto ou esqueceu de ler o blog do
Andreano, pois funciona PERFEITAMENTE no W7 32 e 64 bits.
Sucesso !
Moacir
Em 23/02/2010 20:25, Fellipe Henrique escreveu:
Bom amigos é o seguinte, como o próprio Andreano já disse, o único delphi
Alessandra,
O problema parece estar no teste:
if (DATA + NDIAS) = now then, pois se a soma não resultar exatamente
na data e hora atual não funciona !
troque por
procedure TDm.Cds_FinanceiroCalcFields(DataSet: TDataSet);
begin
if (Cds_FinanceiroDTA_PEDIDO.AsDateTime +
Outra opção seria o WAMP (embora seja especifico para a plataforma Windows)
www.wampserver.com/en/download.php
Sucesso !
Moacir
Em 04/02/2010 14:46, Marcos Bernardo escreveu:
Eu ja tive muitos problemas com isso... versão.. instalação entre apache e
php e mysql...
uma sugestão...
acabei
PessoALL,
Estou precisando imprimir etiquetas numa impressora ZEBRA TLP 2844 pela
porta USB.
A impressão ja ocorre 100% pela porta LPT1 e COM1, mas agora o cliente
esta trocando o desktop por NB sem porta paralela e sem porta serial,
somente USB.
Já tentei usar algumas dicas antigas aqui da
Voodoorv,
Voce precisa informar o IP EXTERNO da máquina servidora.
Caso no local aonde esta o servidor não tenha IP FIXO, use um cliente
dinâmico de IP, por exemplo o NO-IP (www.no-ip.com).
Veja como configurar o NO-IP aqui
(http://videolog.uol.com.br/video.php?id=396589)
Depois basta
Francisco,
Ajuste os nomes dos campos e o nome da tabela e acredito que deva ser o
que queres.
Select CLIENTE, sum(VALOR) as VALORTOTAL from MINHATABELA WHERE
CLIENTE=:CLIENTE AND DATA BETWEEN :DATAINICIAL AND :DATAFINAL GROUP BY
CLIENTE ORDER BY CLIENTE
Sucesso !!
Moacir
Em 25/12/2009
Tire o suspend. Ele não tem função alguma ali.
Sucesso !
Moacir
mario.pagnozzi1979 escreveu:
Amigos,
Encontro-me com o seguinte problema, preciso atualizar a base de dados
de um cliente, pra isto estou criando um aplicativo para que atualize essa
base. Até nas alterações de tabelas
If pos(stParametro262 ,'00,01,02,03,04,05,06,07,08')=0 then
Berdam escreveu:
Existe a possibilidade de realizar este teste em delphi sendo a variavel
stparametro262 uma string ??
Com char é possível, mas com string é ??
if stParametro262 ['00', '01', '02', '03', '04', '05', '06',
Juliomar,
A opções do Menu popup mudam de acordo com o BorderStyle do formulário.
Veja se isto te ajuda ai.
Sucesso !!
Moacir
Juliomar Marchetti escreveu:
Boa tarde
Leandro
Valeu pela ajuda, mas ele só desabilita no form, eu gostaria de desabilitar
ele no barra de tarefas.
Quando o
Ricardo,
Acredito que o colega tem todo o direito de reclamar, comentar, etc.
Esta é uma lista voltada para o Delphi, e o assunto levantado por ele é
pertinente.
As colocações dele encontram eco na grande maioria de nós, proprietários
de uma licença de uso do Delphi, independente de versão,
. Aí complica, né?
Sem mais,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em ter, 1/12/09, Moacir - GMail
Asafe Locker:
Asafe Locker escreveu:
Claro que temos o direito de reclamar so acho que temos que reclamar no lugar
certo e com as pessoas certas. Não adianta vir um cidadão aqui e ficar
malhando o Delphi como se ele ou a Embarcadero tivessem mais defeitos do que
qualidade.
Não foi
Acho que o Delphi ainda não !
Da uma olhada no Lazarus (www.*lazarus*.freepascal.org), este com
certeza ja faz isto, compila para Windows (32 / 64), Linux e Mac.
Sucesso !!
Moacir
Ricardo César Cardoso escreveu:
Basta que o compilador seja escrito, ou melhor, dê suporte para essa
Ou então,
nomearquivo := 'NomeArquivo_'+formatDateTime('mmdd',Now)+'.txt'
ou
nomearquivo := 'NomeArquivo_'+formatDateTime('mmdd_hhnn',Now)+'.txt'
Andre Yahoo escreveu:
nomearquivo := 'NomeArquivo'+DatetoStr(Now)+'.txt'
Leonardo,
Definitivamente a função DaysBetween não toma conhecimento dos feriados !!
O cálculo é matemático !
Ex.:
Data Inicial: 1/11/2009
Data Final: 30/11/2009
Dias entre datas = 29 (30 - 1)
Data Inicial: 1/12/2009
Data Final: 31/12/2009
Dias entre datas = 30 (31 - 1)
Data Inicial:
Pessoal,
Alguem ja implementou alguma coisa para NFE usando a ACBR ??
Em especial para uso aqui no RS ??
Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
esta usando
Sucesso !!
Moacir
D7 + Zeos + Firebird 2.0/MySQL
ajama_1 escreveu:
Muito Obrigado Marcelo, deu
Marcos,
Grato pela pronta resposta.
Na verdade o que busco é a opinião de quem ja esta usando, assim como
vc, NFER com o ACBR.
Com o uso surgem novos dados e é isto que estou buscando.
Quaisquer comentários a respeito do uso da ACBR/NFE são bem vindos, pela
lista ou em pvt.
Sucesso a todos
Grande informação Evandro, vou me cadastrar.
Grato,
Moacir
Evandro Siqueira escreveu:
Estou usando desde 01/09 e o que posso dizer é: Show de Bola!!! Tem
atualizações praticamente diárias e atende muito bem às nossas
necessidades. Existe uma lista de discussão muito prestativa e a
Substitua somente a pasta dos dados do teu cliente que esta dentro do
pasta data , algo como:
Ex.: ..mysql\mysql5.x.xx\data\meuprojeto
meuprojeto = nome da pasta de dados do teu cliente.
Sucesso !!
Moacir
Nazareno Neto escreveu:
Estou com o seguinte problema, estamos com um cliente que
Alisson,
De uma googlada e vc obterá algumas respostas.
Pelo que vi aqui, pode se tratar de virus !!
http://www.google.com.br/search?sourceid=chromeie=UTF-8q=Libeay32.dll
http://www.google.com.br/search?sourceid=chromeie=UTF-8q=Libeay32.dll
Sucesso !!
Moacir
Alisson Yahoo escreveu:
Uso
Ricardo,
Use a função UPPER do firebird para isto:
sql :='select * from TB_PRODUTO where UPPER(NOME_PROD)
like'++'%'+Ansiuppercase(edtBusca.Text)+'%'+;
Sucesso !!
Moacir
ricardo_rmsr escreveu:
Bom dia ... Estou fazendo uma aplicação Delphi para meu TCC, esta aplicação
Adjalma,
me ocorreu que vc pode fazer o mesmo usando records..
Na seção 'type' declare:
tDadosCliente = record
Id : Integer;
Nome: string;
end;
Depois é só alterar a rotina do botão:
procedure TForm1.Button4Click ( Sender: TObject );
var i: InteGer;
vetor_string_ dinamico:
Adjalma,
Vc esta usando o setlength da forma incorreta. Veja como seria, no teu caso:
procedure TForm1.Button4Click ( Sender: TObject );
var i: InteGer;
vetor_string_ dinamico: array of array of string;
TamTabela: InteGer;
begin
ClientDataSet_ Clientes. Close;
ClientDataSet_ Clientes. Open;
Inno setup com certeza !!
http://www.innosetup.com
Sucesso !
Moacir
Silvio Clecio escreveu:
Hugo Vieira escreveu:
Gostaria de saber de vocês uma ferramenta rápida e fácil para a geração
de instaladores(SETUP). ...
Brother, veja isso:
Cesar,
Tente enviar os anexos separados por #13, por ex.:
MeusAnexos := 'arquivo1.txt'+#13+'arquivo2.txt' ;
Sucesso !!
Moacir
Fellipe Henrique escreveu:
Olá Ricardo,
Foi a primeira coisa que tentei mudar, porém continua a dar erro nº 2... não
adianta mudar o nFileCount, só se eu estiver
Verifique a propriedade readonly..
Jackson Gomes - ToolsComps escreveu:
So que, as linhas são adicionadas, mas podem ser alteradas.
existe algum comando que a eu adicionar as linhas no memo,
o usuario na possa alterar-las ? para nao prejudicar na impressao do cupom?
Enabled = False
Andrei,
Este artigo deve resolver teu problema.
http://delphi.about.com/od/windowsshellapi/l/aa100703a.htm
Sucesso !!
Moacir
Andrei Luís escreveu:
Olá Jackson,
Achei muitas dicas de sendmessage que maximizam a tela e/ou fazem o restore,
mas nenhuma funcionou por aqui.
Abaixo meu
Ops !!
Eu havia entendido que ele 1º adicionaria os dados e depois queria
evitar a sua edição, algo como:
memo.readonly:=false;
//-- Incluir dados;
//-- Incluir dados;
//-- Incluir dados;
//-- Incluir dados;
memo.readonly:=true;
Moacir
Jackson Gomes - ToolsComps escreveu:
Verifique a
auriston.delphi,
dm.qyrecbto.FieldByName('UPGTO').Clear ;
Sucesso !!
Moacir
auriston.delphi escreveu:
Salve Delphianos.
No comando dm.qyrecbto.FieldByName('UPGTO').AsDateTime := Date, preciso
trocar a funcao Date por uma data em branco, é possivel efetuar este processo
?
Uso
Ricardo,
Estou usando o Zeos no Dephi 7 e no Lazarus.
E estou 100% satisfeito..
Até agora tenho conseguido converter satisfatoriamente todas as minhas
aplicações desenvolvidas em D7 para o Lazarus, e recomendo o uso do mesmo.
Sucesso !!
Moacir
Ricardo César Cardoso escreveu:
Quanto as
aqui na empresa.
Moacir - GMail escreveu:
Jose,
Da uma olhada com carinho no lazarus..
Dependendo das tuas necessidades ele ate pode te suprir, e é 0800 ;)
www.*lazarus*.freepascal.org
Sucesso !!
Moacir
Jose Newton Araujo escreveu:
Caro Ricardo
Eu nunca tive versão
Jose,
Da uma olhada com carinho no lazarus..
Dependendo das tuas necessidades ele ate pode te suprir, e é 0800 ;)
www.*lazarus*.freepascal.org
Sucesso !!
Moacir
Jose Newton Araujo escreveu:
Caro Ricardo
Eu nunca tive versão nenhuma versão do Delphi, porque sempre usei a da
empresa onde
Cleiton,
No evento OnKeyDown acrescente esta linha:
if (key =VK_F10) then
begin
//-- AQUI
key :=0 ;
btConsultaClick(Self);
end;
Sucesso !
Moacir
Cleiton Maciel Reis da Silva escreveu:
Galera delphiana, eu sei que na programação tudo tem um
lógica. Mas
sinceramente não estou
Walter,
Vejo que não estou só !!
Neste instante estou debruçado no Lazarus...
Não, ele não é páreo nem pro D7 (eita Delphizinho que deu baum sô !!),
mas funciona que é uma belezinha...
To até pegando gosto pelo bichinho.
Nem bem dei uma googlada e la estava: zeos, rxlib, e mais uma meia duzia
Rafael,
Qual é exatamente o problema que ocorre ??
Moacir
Rafael Marques escreveu:
Alguem na lista que trabalha com este componente está conseguindo utiliza-lo
no Delphi2009???
eu uso ele desde a versao 7 (tenho alguns sistemas utilizando-o em varias
telas) e no delphi 2009 ele n
Alex,
Use o evento OnCellClick para isto:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Edit1.Text := Column.Field.AsString;
end;
ou o evento OnDblClick:
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
Edit1.Text := DBGrid1.Columns[1].Field.AsString; //-- Indique
Fabiano,
Após uma breve consulta:
VS 2008 PRO - R$ 2.485,00
Sucesso !!
Moacir
Fabiano Moura escreveu:
Boa tarde!
Um dos motivos na minha opinião do Delphi perder o mercado é o alto valor
das licenças. Fiz um orçamento com umas das empresas conveniadas da
Embarcadero e que vende o
Simoesluciano,
Não me parece que este teste tenha sido o suficiente para determinar se
o EXE gerado faz algum tipo de comunicação !
Ele pode estar fazendo este contato a cada X execuções, a cada X dias,
ou de uma forma aleatória.
O comportamento seria algo como o de um virus, acredito eu.
Guilherme,
Pelo que pude entender do teu email vc precisaria de uma coluna com o
numeração sequencial dos registros, algo como:
1 Campo1 Campo2 Campo3
2 Campo1 Campo2 Campo3
3 Campo1 Campo2 Campo3
4 Campo1 Campo2 Campo3
Faça uma
Luiz,
Recebi minha confirmação sem problemas.
Sucesso !!
Moacir
Luiz Carlos escreveu:
Pessoal, alguma posição sobre esse evento?
Efetuei a inscrição, porem não recebi nenhuma confirmação por e-mail!
Abraços...
a inscrição consta como já efetuada.
Vlw!!!
De: Moacir - GMail prism...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 28 de Agosto de 2009 11:31:21
Assunto: Re: [delphi-br] Meio Off - Apresentação Delphi 2010
Luiz,
Recebi minha
Rodrigo,
Que tipo de servidores vc quer monitorar ??
Abraços,
Moacir
ps.: Espero que voce não se importe de ser ajudado por um semi-analfabeto...
Gmail - Sharplinux escreveu:
Pessoal, boa noite
Estou tentando desenvolver uma aplicação onde ele irá ficar monitorando
os servidores a idéia
Marcelo,
O avg(0) AS DIAS pode, e deve, ser substituido por:
Cast(0 as integer) ou Cast(0 as numeric(12,2)) ou de acordo com o campo
correspondente ao union
Sucesso !!
Moacir
Marcelo Luiz Onhate escreveu:
Para fazer um GROUP BY... nos campos que vai fazer beleza, mas nos
outros vc vai
Hugo,
Uma solução simples e rapida e trocar a fonte do teu memo por courier.
Sucesso !!
Moacir
Hugo Vieira escreveu:
Meus amigos delphianos,
Estou em fase final de desenvolvimento de um PDV.
Tudo funciona perfeitamente, porem ainda possuo algumas broncas p resolver.
Uso
E eu ainda perco meu tempo lendo isto..
Rubem Rocha escreveu:
http://www.ramonduraes.net/post/Voce-ainda-lembra-do-Clipper-Vamos-migrar-pa
ra-NET!.aspx
[As partes desta mensagem que não continham texto foram removidas]
E se vc usar um no-ip da vida ??
Ai a liberação se daria para a tua url.
[ ]´s
Moacir
Marcos Abreu Ferreira escreveu:
Mas o acesso externo é sempre liberado a um determinado IP, e como estou
usando conexao por modem 3G, o IP muda a cada conexao.
Att,
Marcos A. Ferreira
São Paulo
Filippe,
Tente algo assim:
Function Checa_IP(IP : String = '') : Boolean;
var
iPos : Integer;
aTexto : tStringList ;
begin
aTexto := tStringList.Create;
aTexto.LoadFromFile('MeuArquivodelog.txt');
iPos := aTexto.Indexof(IP);
FreeAndNil(aTexto);
Result iPos -1;
end;
valdirdill,
Acrescente uma coluna com o tipo:
SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL,
Cast('EM ABERTO' as Varchar(10)) as TIPO FROM CONTASRECEBER WHERE VENCIMENTO
BETWEEN :VInicio AND :VFim
UNION ALL
SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS
EmbarcaDelphi,
Uma ótima opção é o curso da bbs, totalmente 0800
http://www.bbc.co.uk/portuguese/learningenglish/
Sucesso !!
Moacir
EmbarcaDelphi escreveu:
Aproveitando o tópico (coloquei um OFF).
Alguém sabe informar se aquele curso on-line de inglês é bom, realmente
dá para aprender
Fernando,
o SDK deste finger print tem o que vc precisa.
Olhe neste diretório:
C:\Arquivos de programas\NITGEN eNBSP\SDK\Samples\DLL\Delphi\UITestDP
Caso vc tenha instalado em outro diretório que não o padrão, olhe no
subdiretorio SDK\Samples\DLL\Delphi\UITestDP
Sucesso !!
Moacir
willian,
da uma olhada em http://www.torry.net/quicksearchd.php?String=tiffTitle=Yes
Sucesso !!
Moacir
Willian Leal escreveu:
Eu estava querendo evitar usar o Shell execute, mais se não achar nenhuma
solução o jeito vai ser usar ele mesmo.
2009/7/30 Camoloze Terra camol...@terra.com.br
Walter,
- Para verificar se determinado campo existe na tabela basta conectar na
mesma e usar as propriedades find e fieldlist para isto.
function Find (const Name: string): TField; reintroduce;
Returns a field component given the field name.
Description
Call Find to determine if a
Wilson,
Dei uma googlada e achei este codigo, veja se satisfaz tuas necessidades:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ListBox1.Canvas.FillRect(Rect);
if ListBox1.Items.Strings[index] = Edit1.Text then
Boa !!! Parabens..
Paulo Coutinho escreveu:
Olá a todos,
Terminei a versão RC1 da minha aplicação na AppEngine com GWT, jQuery e Flash.
Quem tiver webcam e puder testar por favor.
http://brfotolog.appspot.com/
Walter,
Bons tempos !! Saudades do Bruno, por onde andará ??
Uma pequena correção, somos dois daquela época, na verdade acredito que
sejamos em maior número, quem se 'acusa' ai ??
Sucesso !!
Moacir
ps.: Na verdade entrei para a lista em meados de 97, usava Delphi 2 com
(não me gozem !)
Leonardo,
Procure no Help do Delphi por FieldType e DataType
MinhaQuery.Fields[0].datatype...
Veja se isto te ajuda ai.
Sucesso !
Moacir
Leonardo Baldino escreveu:
alguem sabe como eu faço para sabe o um campo de uma query que eu tenho é um
campo date ou naum em tempo de execução atraves
Ola José:
Veja se isto resolve seu problema:
Janela Ativa: = screen.ActiveForm.Name
Controle Ativo: = screen.ActiveControl.Name
Sucesso !!
Moacir
José Mário Silva Guedes escreveu:
Olá amigos, alguém sabe se existe alguma forma de saber o nome da Unit em
que estou no momento, algo
Nivaldo,
Use assim:
If (DataCol=4) then
Begin
(Sender as TDBGrid).Canvas.FillRect(Rect);
If Trim(Column.Field.Value)='S' then
DM.imagens.Draw((Sender as
TDBGrid).Canvas,Rect.Left+1,Rect.Top+1,25); //Neste caso é uma imagem
que esta num Timages
end;
Sucesso !!
Moacir
Leonardo,
Use os componentes da palheta ADO para isto.
Vc consegue usar a planilha como se ela fosse uma tabela de dados.
Sucesso !!
Moacir
Leonardo Baldino escreveu:
alguem sabe como eu faço para jogar os valores de uma planilha do excel para
um grid no delphi
Leonardo,
Qual o erro reportado quando vc roda este select no ZEOS ??
Moacir
Leonardo Quinino escreveu:
Pessoal, estou testando o Zeos LIb 6.5.5 , com Delphi 7 + Firebird 2.1
Tive duas dúvidas.
1) em alguns campos do tipo NUMERIC (9,2) , no banco de dados 5.55 mostra
no componente,
Cicero,
Fica quase impossível descobrir o problema com este tipo de informação:
O delphi dá erro de comando desconhecido na sql ... linha tal
Escreve TODA a mensagem de erro, bem como a instrução sql.
Moacir
cic...@fiosecabos.ind.br escreveu:
Coloquei resumido ... mas está
Izaias,
Tente assim:
//-- Com Negrito
Memo1.Font.Style := Memo1.Font.Style + [fsBold];
//-- Sem Negrito
Memo1.Font.Style := Memo1.Font.Style - [fsBold];
Sucesso !!
Moacir
izaias_gomes escreveu:
se possivel me tirar duas dúvidas que não consegui resolver com ninguem, desde
já envio meus
Tem aspas demais ai !!!
Deixe assim:
sCampo:=Query1.FieldByName('CAMPOX').AsString;
marcelo escreveu:
Para voce utilizar a sCampo e vir o valor que você quer , precisar se
assegurar qua a query foi aberta e também em qual evento você atribui o valor
da query a variável sCampo.
Nayara,
Existem mais de um meio de acessar funções nas dll´s.
Abaixo uma das forma de faze-lo (neste caso com uma dll da Bematech):
na seção 'VAR' do teu form declare as funções que vc quer usar, por ex.:
function Bematech_FI_AcionaGaveta:Integer; StdCall;
External
Nayara,
Reproduza aqui parte das informações da DLL, senão será impossível
tentar te ajudar..
Ricardo César Cardoso escreveu:
Então vc vai ter que cansar os dedos e digitar pra gente as chamadas que a
DLL tem pois senão vai ficar quase impossível te ajudar.
Usando o desconfiômetro e o
Só complementando teus comentários:
- Uso Linux no meu Servidor a mais de 12 anos. Nunca tive um unico
problema que não fosse rapidamente solucionado e em 99,8% dos casos de
forma remota (putty ou outra ferramenta semelhante). A duas unicas
vezes que necessitei da presença do técnico foi na
Valdir,
Tive uma situação parecida com a sua e resolvi criando um procedure.
Veja o código abaixo:
SET TERM ^ ;
CREATE OR ALTER PROCEDURE GEN_EMPRESA (
cod integer = 1)
as
declare variable qtd integer = 0;
begin
select count(RDB$GENERATOR_NAME) from RDB$GENERATORS where
Eu uso a mesma mas tratando a exceção:
function GetIP(sHost : String):string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
try
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(sHost));
with HostEnt^ do
Try
Result := Format('%d.%d.%d.%d',
No meu caso, meu carro poe comida na mesa sim, pois ele é mais uma
ferramenta de apoio !!
Alguem ai ja se imaginou sem nenhum tipo de transporte proprio ??
Hummm.. complicado viu..
Talvez seja o caso de estudar a aquisição de outra versão do Delphi que
não a Architect..
Agora, para a grande
Eu faço assim:
IF ((NEW.ID_COMPRA IS NULL) OR (NEW.ID_COMPRA1)) THEN
NEW.ID_COMPRA = GEN_ID(GEN_COMPRAS_ID,1);
felipe govoni escreveu:
estou usando a trigger assim:
IF (NEW.ID_COMPRA IS NULL) THEN
NEW.ID_COMPRA = GEN_ID(GEN_COMPRAS_ID,1);
2009/4/30 Joao Henrique Levada
Eu usaria firebird embebed, rapido, simples e no futuro vc poderia use o
firebird server se mudar uma unica linha de codigo.
johny_rubens escreveu:
Olha, eu tive que desenvolver um simples programa e utilizei o sqllite, para
usar utilizei o componente zeosdbo, o qual uso para uso com o
Vc deve instalar o QuickReport que não vem instalado por default no
Delphi 7.
Va no diretorio bin da sua instalação do delphi e instale o pacote:
dclqrt70.bpl
Sucesso !!
Moacir
Fabio Thomaz escreveu:
Creio que são componentes do Quickreport (http://www.qusoft.com).
2009/4/26 nillgolv
Rafael,
Vc esqueceu de colocar na data na clausula where !!
Query1.SQL.Add(' update PONTO set HORA_SAIDA = CURRENT_TIME where
DATA=SEILAQUEDATAEH and CODIGO
='''+Query2.fieldbyname('CODIGO').asstring+);
rafaelpinto19 escreveu:
Boa Tarde Pessoal, está acontecendo uma
Bruno,
Acredito que vc possa sim comprar uma licença de terceiros, mas esta
venda deverá ser comunicada a Borland/Inprise/Codegear/Embarcadero ou
sei la mais quem..
Procure informar-se melhor a respeito. Este assunto ja foi profundamente
debatido por aqui.
[ ]´s
Moacir
Jhosef Marks
Opa !!
Estou exatamente com o mesmo problema aqui em duas maquinas diferentes!!
Começou esta manhã.
Qualquer informação é bem vinda
Moacir
Leandro - Grupos escreveu:
E ai pessoal blz...
Seguinte, de uma hora para a outra meu ibexpert começou a apresentar a
seguinte mensagem quando tento
Faltou o nome do generator !!!
ID = GEN_ID(**NOME_DO_GENERATO_DESEJADO**, 1);
Ralp Alves Bezerra escreveu:
Nobres colegas, estou tentando criar esta SP no ibexpert mais não estou
conseguindo.
-- STATEMENT --
CREATE PROCEDURE SP_GEN_OUTRO_CURSO_ID
RETURNS (ID
Eita !!!
Ja ta virando namoro !!
hauhauhauhauahuahuaha, só pra descontrair neste final de sexta !!!
Moacir
Bruno Lichot escreveu:
Nunca pensei de forma diferente :D
Risos
Abraços
BL
Caso vc esteja usando um Richtext use:
MeuRichText.Perform(EM_SCROLLCARET,0,0);
Sucesso !!
Moacir
Marcos Ferreira escreveu:
Pessoal,
estou fazendo um sistema que recebe informações de tempo em tempo e vou
colocando elas num StringGrid. Gostaria de deixar sempre a última linha
sua responsabilidade e compromisso com o MEIO
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing.
From: Moacir - GMail
Sent: Tuesday, February 24, 2009 11:17 AM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] [MAF] Ponteiro em um StringGrid
Caso
query.Parameters.ParamByName('dt_inclusao').clear
jrsilvas...@yahoo.com.br escreveu:
Tenta query.Parameters.ParamByName('dt_inclusao').asvariant := null;
- Original Message -
From: laureanonu...@yahoo.com.br
To: delphi-br@yahoogrupos.com.br
Sent:
BDE tranquilo, em ADO/DBGO não vai.
Estou utilizando ADO/DBGO
Qualquer ajuda é bem-vinda, muito obrigado.
[]´s Nunes.
Pg 8.2, Delphi 2007 + ADO
- Original Message -
From: Moacir - GMail prism...@gmail.com
To: delphi-br@yahoogrupos.com.br
Sent: Thursday
status dela?
Obrigado!
---Mensagem original ---
De: Moacir - GMail
Data: 30/01/2009 09:09:42
Para: delphi...@yahoogrup os.com.br
Assunto: Re: Res: [delphi-br] Impressão rave direto na impressora
Bruno,
Inclua na clausula USES (lá no inicio do teu fonte) a unit
Nunes,
Troque de tDateTime para tTime !!
function gravaLog (data : TDateTime; usuario : string; arquivo : string; hora :
*TTime*):boolean;// - aqui na definiçao da classe do parametro HORA esta o
erro
[ ]´s
Moacir
laureanonu...@yahoo.com.br escreveu:
Colegas,
Eu tenho uma pequena
puderem ajudar agradeço, sigo perdido.
[]´s Laureano Nunes
Delphi 2007
POA/RS
- Original Message -
From: Moacir - GMail prism...@gmail.com
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 26, 2009 3:37 PM
Subject: Re: [delphi-br] Função : Com que classe deve-se definir um
Leonardo,
Procure por BoletoPHP, de grátis e funfa 100%
Leonardo Quinino escreveu:
traduzindo... nao vai rodar, estou com esse mesmo dilema, tenho que rodar
um aplicativo para boleto bancário dentro do site, eu já tenho o boleto
funfando certinho em desktop, para colocar a bagaça no site,
Ridson,
Use a numero da ordem da coluna, ou seja,
select Saida.PRODUTO,
Saida.SECAO,
P.DESCRICAO,
sum(QUANTIDADE) as QUANT,
sum(VALOR_TOTAL) as VALTOT,
P.CUSTO * sum(QUANTIDADE) as TOTCUSTO,
(Sum(Valor_Total) - (P.Custo * sum(quantidade))) *
(100 / (P.Custo * sum(quantidade))) as Acrescimo
from
Acredito que IndexOf seja mais adequado !!
Sucesso e Um Ano Novo de muita Paz e Prosperidade a Todos !!
Moacir
Juliano Silva - Yahoo escreveu:
Outra alternativa, é antes de adicionar o texto no StringList você pode
verificar se a função POS retornar maior que zero, caso sim é porque o
valdirdill,
A unica vez que passei por isto era um problema em um arquivo ini.
Alguma coisa com o nome da seção não ter sido declarada
[ ]´s
Moacir
valdirdill escreveu:
Estou tendo frequentes problemas com usuários do meu sistema. Não
consigo reproduzir o erro aqui em laboratório para
Calma gente !!
Já já sai a versão Delphi 2010 e fica tudo resolvido !!!
Andrei Luís escreveu:
Ô João, o Andreano já disse que 'não está constatado com um bug'.
Uma vez escutei algo assim: 'um comportamento que acontecia de um jeito e
agora de outro não é considerado bug'. As palavras não
1 - 100 de 234 matches
Mail list logo