Adriano Santos (Y!) wrote:
Concordo em gênero e número contigo. Sei muito bem como funcionam o
UPX,VirtualCompress e o AsPack.
Meu principal problema onde trabalhei, como mencionei, era distribuição
do sistema e os usuários que eram bem ruins. Descompactar um arquivo
.zip, vixi...era o
=
TERMOS PARA PARTICIPAÇÃO NO GRUPO DELPHI-BR
=
I. CONSIDERAÇÕES GERAIS
---
a) A concordância com os termos do presente documento é
precondição para sua participação na lista de
Ola senhores, alguem sabe ou alguem tem o driber FingerCap USB para o leitor
Microsoft Finger Print?
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
Bom Dia Ricardo,
Você pode fazer assim:
IF not DM.ibvendedor.isnull then
Begin
Bla,bla,bla;
End;
Abraço.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Mendes
Enviada em: quarta-feira, 1 de outubro de
Corrige o meu outro código, é IF tabela.isnull, e não IF not tabela.isnull
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Mendes
Enviada em: quarta-feira, 1 de outubro de 2008 00:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Verificar se a tabela
Pessoal, alguém aqui utiliza Lazarus ?
Estou afim de trocar algumas informações e dúvidas a respeito da IDE.
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
Opa... Diga lá, Vinicius. Oq vc quer saber?
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux
Adriano,
Me desculpe, mas, qual seria o empecilho no caso apresentado, de mandar os EXEs
compactados com ZIP por exemplo?!
O download seria menor de qualquer forma, sem ter que compactar o executável!
--- Em ter, 30/9/08, Adriano Santos (Y!) [EMAIL PROTECTED] escreveu:
De: Adriano Santos
Isto é um equívoco. O método IsNull() existe apenas para descendentes da classe
TField, e não existe para descendentes da classe TDataSet.
Para verificar se uma tabela está vazia, via SQL, melhor fazer um COUNT(*) dos
registros. Se retornar zero, é pq não tem registro nenhum. Agora, se for
Bom dia pessoal,
como faze para acessar a estrutura de um record?
por exemplo tenho os seguintes records,
Record1 = record
Codigo : Integer;
Name : String;
Endereco : String;
end;
Record2 = record
Codigo : Integer;
Descricao : String;
Situacao : String;
end;
Record3 = record
Até onde me consta, não existe como verificar a estrutura de um record, pois um
record não possui as mesmas características de uma classe contendo propriedades
publicadas. Neste último caso, é possível, via RTTI, consultar as propriedades
publicadas de um objeto e obter seus valores. Com um
Eu baixei todo o código fonte do Lazarus por SVN, e compilei ele(Windows
XP), instalei o Free Pascal 2.2.2, blzinha
Eu abro o Lazarus Ok, compilo com o F9, inclusive compilei uns programas de
exemplo, tudo blzinha...
porém quando coloco um botão - ou qualquer componente - e dou 2 cliques no
Só tem que cuidar para não misturar as propriedades e ter um resultado
indesejado.
Por exemplo, se você utilizar o Count(*), a propriedade Query1.IsEmpty não é
util, porque mesmo sem registro, a Query1 retornará um registro com o valor
zero.
Melhor usar a propriedade adequada para cada
Por isso q eu expliquei no meu comentário. Via SQL é de um jeito; usando um
componente da DataSet é de outro jeito! Não reparou nisso?
Sds.
__
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 1 Oct 2008 06:08:32 -0700
Subject: RES: [delphi-br]
Eu tinha o mesmo problema, 4 executáveis grandes, e cliente reclamando da
demora de atualizar, na época eu usei Upx e tive muitos problemas em algumas
máquinas, era violação de acesso para tudo quanto é lado.
Hoje eu automatizei todo o processo de atualização, compacto do exe no
padrão 7Zip, de
Bom dia senhores!
Eu tenho um método que retorna um DataSource e consequentemente o dbgrid
recebe esse datasource porém não sei como fazer para habilitar os
campos. Como configurar um dbgrid manualmente habilitando os campos
desejados?
Grato!
Fabrício Veiga
Dando um pitaco de leve, encontrei uma solução mais interessante à época em que
implementei. Também tinha problemas com executáveis enormes e atualização pela
internet. O que fiz foi modularizar a aplicação em BPLs, mantendo em cada BPL
os formulários com similaridade de função (cadastros,
Vc tem duas opções:
1) (MAIS FÁCIL) Para cada campo do dataset apontado pelo datasource, define a
propriedade Visible como false para os campos que vc não quer sejam
visualizados no DBGrid. O DBGrid automaticamente saberá o que ele deve e não
deve mostrar nele. Duvidas? Consulte o help do
Bá... valeu Daniel muito obrigado
Era só a proriedade Visible do frmDefault, estava como True... passei para
false e foi blz...
valeu mesmo
- Original Message -
From: Daniel Bastos
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 30, 2008 10:35 PM
Subject:
Rubem Nascimento da Rocha wrote:
Até onde me consta, não existe como verificar a estrutura de um record,
pois um record não possui as mesmas características de uma classe
contendo propriedades publicadas. Neste último caso, é possível, via
RTTI, consultar as propriedades publicadas de um
Vinicius Santos - MSI wrote:
Eu baixei todo o código fonte do Lazarus por SVN, e compilei ele(Windows
XP), instalei o Free Pascal 2.2.2, blzinha
Eu abro o Lazarus Ok, compilo com o F9, inclusive compilei uns programas de
exemplo, tudo blzinha...
porém quando coloco um botão - ou qualquer
Rubem Nascimento da Rocha wrote:
usando BDE = not (Boolean(Query1.RecordCount) and (not Query1.IsEmpty) and
(not Query1.Eof))
Rapaiz... cast de inteiro pra boolean? É mais seguro comparar o
resultado do recordcount com aquilo que você espera, ou não espera, que
ele retorne.
Meus $0,02
Joao
Affee, essa solução do Rubem foi igual aquela que eu dei pra verificar se o
valor era inteiro.. lembra João?
2008/10/1 Joao Morais [EMAIL PROTECTED]
Rubem Nascimento da Rocha wrote:
usando BDE = not (Boolean(Query1.RecordCount) and (not Query1.IsEmpty)
and (not Query1.Eof))
Rapaiz...
Uso cast de inteiro pra boolean desde o Delphi 3 e sempre funcionou comigo! Se
o valor do RecordCount for zero, retorna false; senão, retorna true! Sempre
funcionou, e até q um dia isso falhe (o q acho difícil!), continuarei usando! É
elegante, tem lógica e funciona! Outra coisa, não uso isso
Eduardo Silva dos Santos wrote:
Affee, essa solução do Rubem foi igual aquela que eu dei pra verificar se o
valor era inteiro.. lembra João?
Mas pelo menos ele não esconde uma exception =)
2008/10/1 Joao Morais [EMAIL PROTECTED]
Rubem Nascimento da Rocha wrote:
usando BDE = not
Rubem Nascimento da Rocha wrote:
Uso cast de inteiro pra boolean desde o Delphi 3 e sempre funcionou comigo!
Se o valor do RecordCount for zero, retorna false; senão, retorna true!
Sempre funcionou, e até q um dia isso falhe (o q acho difícil!), continuarei
usando! É elegante, tem lógica e
Rubens, João.
Obrigado pelas dicas.
Conheco RTTImas como já existe tudo em record fica dificil mudar assim de
cara...(embora estou achando que esta seja a saida)
Acontece que tenho um monte destas estruturas para converter pra equivalentes
em tabelas, tenho cerca de 600 records...
Passa o link, também estou atualizando umas máquinas aqui.
[]´s Roberto Camoloze
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de sergio cavalcante
Enviada em: terça-feira, 30 de setembro de 2008 17:46
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] meio
veja se isto ajuda...
http://www.planetadelphi.com.br/ver_artigo.php?id=141
--
Att.
--
José Benedito
Software Developer
[EMAIL PROTECTED]
(19) 8116-7826
Elazar Dornelles Ceza wrote:
Rubens, João.
Obrigado pelas dicas.
Conheco RTTImas como já existe tudo em record fica dificil mudar assim de
cara...(embora estou achando que esta seja a saida)
Acontece que tenho um monte destas estruturas para converter pra equivalentes
em
Olá pessoal,
Willian, resolvi seu problema e adicionei no componente a propriedade TrueColor
(Default $00FFEFDF). O pacote está disponível para download no link
http://www.4shared.com/file/65228674/7bb050bd/DB-Aware.html
Se você permitir, removo a senha e disponibilizo para nossos colegas no
Alguem utilizou esse componente..Montei ele para testar e minha decepção
se deve a que fica extremamente lento para uma quantidade de registros pai
de aprox. 500(de ai para mais, é impraticável). Tal vez nao estou
configurando ele corretamente entao gostaria de saber se alguem tem mais
Olá pessoal,
Pronto, o arquivo já está no link
http://www.4shared.com/dir/5679510/48848609/Uploads.html
Fiz só mais uma modificação minúscula no demo.
Um abraço a todos!
Silvio Clécio
- Mensagem original
De: Silvio Clécio [EMAIL PROTECTED]
Para: Willian Jhonnes Lara dos Santos [EMAIL
Cara, ele está pedindo a unit, Classes.pp, porém eu não tenho esse arquivo,
só tenho a classes.ppu, porém não está servindo...
Parece que esse é o problema, eu preciso do arquivo Classes.pp, mas não veio
no repositório do SVN...=(
-Mensagem Original-
De: Joao Morais
Para:
Lista
Em um projeto é possivel eu usar um arquivo .pas que esta em outro
diretório ??? Como coloco no projeto... em uses ???
Wesley
[As partes desta mensagem que não continham texto foram removidas]
Vinicius Santos - MSI wrote:
Cara, ele está pedindo a unit, Classes.pp, porém eu não tenho esse arquivo,
só tenho a classes.ppu, porém não está servindo...
Parece que esse é o problema, eu preciso do arquivo Classes.pp, mas não veio
no repositório do SVN...=(
Ãn... certo. Você precisa dos
Em um projeto é possivel eu usar um arquivo .pas que esta em outro diretório
??? Como coloco no projeto... em uses ???
Vc precisa adicionar o arquivo ao seu projeto. Project Add to Project. Depois
é só incluir na uses normalmente.
Jackson Gomes
ToolsComps - Controle de Usuários para
Valew cara !! deu certinho...
é que eu estava tentando baixar o código fonte direto do SVN, mas me parece
que tem mais de 1Gb, então desisti...vou deixar baixando hj a noite =)
Um abraço e obrigado pela ajuda !
-Mensagem Original-
De: Joao Morais
Para:
signature
database 3485 (20081001) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Estou iniciando o uso do fast report,
Gostaria de saca como usar o checkbox dele por exemplo:
Tem um campo do frxdbdataset que quando for S o checkbox do relatório fica
desemarcado,
E quando for P fica marcado.
E outra coisa, como passo um valor do Delphi para o relatório?
Um abraço a
Silvio... Valeu cara, mas a sua alteração não resolveu o problema. Eis oq
acontece: a barra some por ficar oculta além do limite visível do componente,
mas ela ainda está lá, pois pode-se observar - olhando com muita atenção - que
ela se move. Ou seja, atribuir um estado para a propriedade
Olá TI, você deve usar o evento OnBeforePrint do relatório para modificar o
valor do checkbox.. assim como vc faz no ObjectPascal mesmo..
e para acessar qualquer objecto dentro do relatório faça assim
(FrxReport1.FindObject( 'NomedoObjeto' ) as ClassedoObject).Memo.Text :=
'XX';
2008/10/1 TI
Olá pessoal,
Cara, quando peguei o pacote abri o demo dele e realmente ela sumia, mas
depois fiz as alterações e não deu mais o pró aqui não, queria que ela
sumisse para eu tentar resolver, mas a sacana fica inteirinha lá, até
aumentei a quantidade de records para ver, e nada.
Um abraço a
AH, quem tiver o VISTA, instala logo o SP1, a maquina é outra. parece que
tudo fica mais leve e roda blz... achei até que tinha voltado pro XP... hehehehe
[]s
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA
Pessoal, estou em busca de componente para compactar arquivos..
qual vocês me recomendam..ja andei pesquisando alguns e gostaria de
saber a opinião de vocês...
[]'s
Primeiramente muito obrigado pela ajuda,
É o seguinte, fiz uma comparação
IF dsmastertipo.text = P then
Checkbox1.checked := true
Else
Checkbox1.checked := false
Isso foi no onbeforeprint do checkbox1, e não sei por qual motivo
Não funcionou.
_
Ola pessoal,
tenho um programa que faz acesso a uma planilha excel via ODBC. estou
tentando fazer alguns selects nessa planilha excel, mas sem sucesso...
muitas funções que conheço do oracle e sql server não funcionam neste ODBC.
Alguem possue uma lista das funções select que podem ser usadas no
Olá pessoal,
Willian, fiz outras modificações:
*** No componente ***
constructor TDBAware.Create(AOwner: Tcomponent);
begin
inherited Create(AOwner);
ScrollBars := ssNone;
FColumnSort := True;
FOriginalOptions := Options;
FTrueColor := TrColor;
end;
*** No exemplo ***
procedure
Eu recomendo o ZipMaster
2008/10/1 deco0_07 [EMAIL PROTECTED]:
Pessoal, estou em busca de componente para compactar arquivos..
qual vocês me recomendam..ja andei pesquisando alguns e gostaria de
saber a opinião de vocês...
[]'s
--
Att.
--
José Benedito
Kr tem o zip32 e unzip 32, que trabalham blz.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de deco0_07
Enviada em: quarta-feira, 1 de outubro de 2008 15:23
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Compactar arquivo
Pessoal, estou em busca de
Olá, faz o seguinte utilize o evento OnBeforePrint do MasterData
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if frxDBDataset1.Fl_SitSelo = 'S' then
CheckBox1.Checked := True
else
CheckBox1.Checked := False;
//ou
CheckBox1.Checked := ( frxDBDataset1.Fl_SitSelo
Eu uso o Seven Zip, todos conhecem o poder de compactação dele.. quem ainda
não conhece da ta na hora de conhecer:
http://www.rg-software.de/rg/index.php?option=com_contenttask=viewid=29Itemid=51
2008/10/1 deco0_07 [EMAIL PROTECTED]
Pessoal, estou em busca de componente para compactar
Pessoal,
Fiz uma unit para ler um arquivo XML, e para isto utilizei a classe
TXMLDocument. Este exemplo funcionou perfeitamente em uma maquina Windows
XP, mas o MESMO exemplo em uma maquina windows vista não funciona. Algum de
voces já trabalhou com o TXMLDocument que poderia dar uma ajuda?
7-ZIP sem duvida..
[]s
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR
realmente muito bom..valeu pela dica...
--- Em delphi-br@yahoogrupos.com.br, Luiz ESCobar [EMAIL PROTECTED]
escreveu
7-ZIP sem duvida..
[]s
Amigos, só para ter certeza absoluta...
Tem como informar à uma classe que tal parâmetro é INPUT ou OUTPUT ou até
mesmo ambos?
Acredito que isso não seja usual, mas me ajudaria em uma solução que estou
implementando.
Obrigado pela paciência,
--
José Mário Silva Guedes
Analista Programador
Parâmetro em classe??? Vc quer dizer na verdade propriedade ao invés de
parâmetro, certo?
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 1 Oct 2008 18:51:01 -0200
Subject: [delphi-br] Definir propriedades de INPUT\OUTPUT na estrutura de
Com certeza se for um raid 5 melhor ainda...
[]s
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR
Empresa de grande porte situada em Brasília-DF seleciona:
Profissional com ensino médio e sólidos conhecimentos em desenvolvimento de
sistemas utilizando Delphi 7 e experiência em criação e utilização de
consultas complexas, functions e stored procedures no banco de dados SQL
Server 2000
Pessoal
Alguém sabe como faço um UPDATE usando inner JOIN em FIREBIRD ?
Estou usando o comando abaixo, mas esta dando erro no inner
Implantação da rotina de Quitação de vale Creditos no Setor de Pedidos
update itenspa p set data_prev_troca = datavenda
inner join cadpa c on c.numero_pa =
Pq vc optou por componente de terceiros, já que tem um Nativo?
Abs
2008/10/1 Tatu [EMAIL PROTECTED]
Alguem utilizou esse componente..Montei ele para testar e minha
decepção
se deve a que fica extremamente lento para uma quantidade de registros pai
de aprox. 500(de ai para mais, é
Existe TreeView nativo, e não DBTreeView nativo, que é a necessidade do colega
Tatu! Uma coisa é uma coisa, e outra coisa é outra coisa!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 1 Oct 2008 16:32:37 -0300
Subject: Re: [delphi-br]
Tá dando erro pq o FireBird não aceita essa sintaxe. Hj mexo mais com SQL
Server 2005. Até o Setembro do ano passado, tava mexendo com FireBird, mas me
lembro que nele era possível fazer isso. Tenta algo assim:
update itenspa p
set p.data_prev_troca = (select c.datavenda
Silvio, sinceramente não entendi :D
o executável não mostra a versão nas propriedades. Sendo assim não
entendi prá que saber do q tem nos comentários se aquela tela
.question.jpg não é mostrada. Acho que a compilação foi feita errada.
Poderia ser mais específico no q vc quer? posso tentar
Fiz uns testes de performace com ADO e DBX, nem se compara a diferença, usa
o DBX que é melhor...
JM
2008/9/29 José Maria Campos Henriques [EMAIL PROTECTED]
Boa tarde,
Tentei um select usando ADO. Tem alguma configuração especial? Estou usando
Delphi 7. Chegou a travar.
Grato,
José
Pelo que entendi você quer adicionar o Fields dinamicamente para cada
select... bom isso eh quase simples, tenta algo do tipo
class procedure TDMConn.AddFields(CDS: TDataSet);
var
intFor : integer;
begin
// Atualizando os tipos dos TFields, conforme tipos dos campos definidos
no
// banco de
66 matches
Mail list logo