Passe para sua function um parametro AOwner: TComponent, e vc procurar nesse
cara pelo checkbox
Em 8 de setembro de 2010 10:25, Dirlei dir...@gmail.com escreveu:
A function ou procedure está no mesmo formulário que o botão onde você
testou? Se não estiver, o resultado será diferente.
[]'s
Defina em valores o que seria essa quantidade de informações muito grande.
As vezes não vale apenas criar uma solução muito complexa pra ganhar alguns
milésimos de segundo.
Em 31 de agosto de 2010 14:01, Rubem Rocha
rubem.ro...@dtmanaus.com.brescreveu:
Eu penso que a solução, além de usar
segundo.
Em 31 de agosto de 2010 14:19, Fabricio Colombo
fabricio.colombo@gmail.com fabricio.colombo.mva%40gmail.com
escreveu:
Defina em valores o que seria essa quantidade de informações muito
grande.
As vezes não vale apenas criar uma solução muito complexa pra ganhar
alguns
Já vi isso acontecer por causa da maneira que o trayicon é criado.
Qual versão do delphi vc usa e como está criando o trayicon?
Em 25 de agosto de 2010 14:22, Nilton Oliveira nillg...@bol.com.brescreveu:
Pessoal, tenho um programa que fica o icone na barra onde fica o relógio.
Foi feito
Se não me engano, vc tem que usar PAnsiChar na passagem dos parametros
Em 24 de agosto de 2010 17:59, Iran Lima i...@sgisolution.com.br escreveu:
Mesmo passando os parâmetros diretamente só vai a primeira letra
iRetorno := Bematech_FI_VendeItem( Pchar('123ABC'), Pchar('Impressora
Fiscal'),
Em 23 de agosto de 2010 11:21, Willian Jhonnes
willianjhon...@gmail.comescreveu:
...* Web Service desenvolvido em Delphi 7 só pode rodar em
servidores Apache for Windows 1.3. Apache 2.0 ou 2.2 nem mesmo em sonho.*
Só uma ressalva, é possível desde que alteradas algumas units da vcl. Aqui
Eu utilizo o código abaixo. Desse modo ele ordena de forma crescente e
decrescente. E com o Rubem falou, tem que usar o ClientDataSet.
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
enum_IndexOption: TIndexOptions;
str_IndexAsc,
str_IndexDesc,
str_IndexName: String;
begin
if
...@americamoveiseletro.com.br escreveu:
Olá, no caso estou usando Ibquery + DataSource + IbqUpdateDataSet, funciona
mesmo assim? não testei pois estou sem o delphi nesse final de semana pois
estou viajando.
Grato
Rafael.
- Original Message -
From: Fabricio Colombo
To: delphi-br@yahoogrupos.com.br delphi
Coloca essa função que verifica o cargo no evento OnValidade do seu campo no
DataSet.
Em 12 de agosto de 2010 15:27, Ricardo Rocha
ricardo_r...@yahoo.com.brescreveu:
Olá a todos,
Estou enfrentando um problema que eu mesmo criei... e não acho a solução.
É o seguinte tenho um formulário de
parametro enviado pelo pai... dessa forma ele só me traz
os
filhos do pai onde está o ponteiro.
Tem alguma idéia melhor?
--
Eny Trova Urias
Somos o que repetitivamente fazemos, portanto, a excelência não é um
feito, mas
um hábito- Aristóteles
De: Fabricio
Mais isso não é uma falha, ele foi feito pra trabalhar assim, aliás, não
conheço nenhum DataSet que faça diferente. O que vc queria é que ele fizesse
*Lazy Loading*.
** http://en.wikipedia.org/wiki/Lazy_loadingNa minha opnião, quase nunca é
viável carregar todos os dados do pai, principalmente se
Não entendi, a idéia não é essa mesma, para cada registro do pai carregar os
filhos automaticamente.
Exemplifica o que vc constatou. O que ele tava executando
desnecessariamente.
Em 22 de julho de 2010 22:09, Eny Urias enyur...@yahoo.com.br escreveu:
Só para deixar registrado:
Eu usei por
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
Quanto vc está debugando, todas as exceções são mostradas, mesmo as que
estão dentro do bloco try..except..end. Se rodar por fora do delphi ou
desativar o opção Stop on Delphi Exceptions em Debugger Options\Language
Exceptions (Delphi 7), essa mensagem não vai mais aparecer debug.
Em 22 de julho
eu saber como rodar
isso por fora ou como desativar a opção Stop on Delphi Exceptions. Outra
coisa... desabilitar isso é viável?
Um abraço!
---Mensagem original---
De: Fabricio Colombo
Data: 07/23/10 07:45:34
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Essa rotina só funciona em um método declarado na seção published, correto?
Em 19 de julho de 2010 20:27, Roni Rodrigo ronirodr...@yahoo.com.brescreveu:
cara... eu utilizo a RTTI pra fazer chamadas a métodos da classe...
para manipular os métodos e propriedades eu utilizo helpers para as
O PS só vem com as definições da classe TDataSet, que não possuir a property
SQL. Vc precisa criar um plugin com a classe da query, por exemplo, se for
um TSqlQuery, vc precisar utilizar o utilitário do PS e converter a unit
SqlExpr.pas em um plugin.
Outra opção seria criar um método no seu form
Pra juntar dados, vc pode usar o método AppendData.
Vc já tem um xml salvo, então vc carrega ele normalmente. Então vc faz um
select com os registros alterados e carrega em outro ClientDataset e usa o
AppendData.
vDataSetLocal.LoadFromFile('dspTransportadora.cds');
vDataSetAlteracoes :=
, 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 delphi-br%40yahoogrupos.com.br,
Fabricio Colombo fabricio.colombo@... escreveu
O que vc está pretendendo fazer Eric?
Em 14 de
No primeiro caso, acredito que o not exists funciona
SELECT PED.*,CLI.CD_CLIENTE,CLI.FANTASIA
FROM CLIENTE CLI
LEFT OUTER JOIN PEDIDO PED ON (PED.CD_CLIENTE = CLI.CD_CLIENTE)
WHERE NOT EXISTS(SELECT PED.CD_CLIENTE FROM PEDIDO PED
WHERE CLI.CD_CLIENTE = PED.CD_CLIENTE)
ORDER BY
Tem o método GetTableNameFromSQL da unit DBCommon. Mais tem casos
especificos que não funciona.
Por exemplo, esse sql abaixo funcionar perfeitamente
select *
from tabela1 a
left outer join tabela2 on a.id = b.id
Agora se vc utilizar subqueries no select como o exemplo abaixo, ai não
funciona,
Mais até agora vc não disse qual o problema que vc quer resolver. Qual a sua
necessidade? Por que vc precisa que os métodos sejam executados pelo nome?
Em 15 de julho de 2010 14:22, eric_developer
developer.syst...@yahoo.comescreveu:
Colega, não é executar Scripts, por favor veja o que ja
No meu notepad tem a opção Formatar\Fonte. Não sei como solucionar seu
problema, mais opção de alterar a fonte tem sim.
Em 15 de julho de 2010 11:25, Walter Chagas (Bol) wchag...@bol.com.brescreveu:
Não. O Notepad exibe text puro sem formatação alguma.
[]s
Walter Alves Chagas Junior
Se não for published, não dá pra recuperar o nome.
Dá uma pesquisada sobre VMT (Virtual Method Table). O delphi armazena a
quantidade de métodos virtuais e os ponteiros dos respectivos métodos nessa
tabela, mais o nome do método em si, só se estiver no published.
Na unit JclSysUtils.pas da JVCL
Leu o meu post?
Em 15 de julho de 2010 16:07, Evaldo evaldoave...@yahoo.com.br escreveu:
Simples, não acredito que seja por que pode haver algumas querys com muitos
joins
e querys sem a clausula where
Obrigado.
From: Rubem Rocha
Eu já tive problemas utilizando TClientDataSet em memória parecido com isso
devido a grande quantidade de registros, sem falar no desempenho deplorável.
Agora utilizo um componente da devart chamado VirtualTable que vem junto com
o ODAC da devart, mais é pago. Se não me engano, o JEDI VCl tem um
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
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
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
de julho de 2010 22:21, Fabricio Colombo
fabricio.colombo@gmail.com fabricio.colombo.mva%40gmail.com
escreveu:
Vc tem que definir o Parent do TStringGrid criado.
Em 13 de julho de 2010 10:32, Domingos
domingosp...@gmail.comdomingospawn%40gmail.com
escreveu:
Olá, bom
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
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
O que mudou é que delphi 2010 é unicode. Não sei exatamente os tipos
correspondentes, mais acredito que seja PWideChar em todos os argumentos.
Se vc utiliza ponteiros e manipulação de blocos de memória de strings,
revise seu código.
Dê uma olhada nesse documento que deve esclarecer melhor
Aqui mostra uma forma de redimensionar a imagem
http://delphi.about.com/od/graphics/a/resize_image.htm
Em 26 de junho de 2010 10:27, Ralp Alves Bezerra ral...@gmail.comescreveu:
Nobre colegas,
Estou precisando montar um form onde ao clicar em um número de processo as
imagens possam ser
a aplicacao
Comando colocados no PSScriptExecute
PSScript.SetPointerToData('DataSet', @qry_sql,
PSScript.FindNamedType('TDataSet'));
[DCC Error] fMain.pas(119): E2003 Undeclared identifier: 'qry_sql'
Obrigado
MuriloCunha
On 24/06/2010 17:38, Fabricio Colombo wrote:
No evento Compile
dias atrás alguém recomendou essa lista, talvez lá alguém saiba de algo.
http://br.groups.yahoo.com/group/iwbr/
Em 25 de junho de 2010 16:19, Adriano Santos asrsan...@gmail.com escreveu:
Pessoal,
Alguém já trabalhou com o IWTabControl e Templates? Estamos com uma
dificuldade e sem chance
comandos do PascalScript? Gostaria de
me aprofundar mais neste assunto!
Obrigado
MuriloCunha
On 25/06/2010 09:38, Fabricio Colombo wrote:
substitua qry_sql pelo nome real do seu objeto. Esse arroba @ antes é
para
retornar o endereço do objeto, no caso, seu dataset.
Em 25 de junho de 2010
No evento Compile fica assim
procedure TfrmScript.PSScriptCompile(Sender: TPSScript);
begin
AddRegisteredPTRVariable('qry_sql', 'TDataSet');
end;
e no execute fica assim
procedure TfrmScript.PSScriptExecute(Sender: TPSScript);
begin
PSScript.SetPointerToData('DataSet', @qry_sql,
Junto com o Pascal Script vem um programa Unit Importer onde você abre o
arquivo .pas e ele vai converter em um Plugin do PS. Vc adiciona esse plugin
na lista de plugins dele que vai começar a compilar.
Eu já fiz isso com a Unit DBClient, mais tive que remover varias coisas que
ele não conseguia
Li esse artigo sobre carregar e executar Dlls diretamente da memória, Load a
DLL From a Resource Directly From Memory in Delphi
Applicationshttp://delphi.about.com/od/windowsshellapi/a/delphi-load-resource-dll-into-memory.htm,
não é o que vc precisa mais talvez te dê uma luz. Seguindo a linha de
vc tem que usar a função VarArrayHighBound para saber o tamanho do array de
variant.
var
vArray: Variant;
i: Integer;
begin
vArray := VarArrayCreate([0,2], varVariant);
vArray[0] := 'um';
vArray[1] := 'dois';
vArray[2] := 'tres';
for i := 0 to VarArrayHighBound(vArray, 1) do
O método analizaNumero não pode fazer parte da classe, deixe ele abaixo da
seção implementation que ele não vai estar acessível fora da unit.
Em 4 de junho de 2010 08:54, Suélio Santos
sue...@focusautomacao.com.brescreveu:
Bom dia galera, estou com um probleminha ao tentar criar um metodo que
Achei um exemplo que carrega e instala a partir de um arquivo de resource.
procedure TForm1.FormCreate(Sender: TObject);
var
ResStream : TResourceStream;
sFileName : string;
begin
sFileName:=ExtractFilePath(Application.ExeName)+'SWISFONT.TTF';
ResStream:=nil;
try
Tem um odbc para data flex,
http://www.mandeibem.com.br/?cod=2620101481224202
Ele só tem um problemas chato com decimais, ele só traz o valor inteiro,
então pra funcionar, no sql vc tem que multiplicar por 100 e no delphi
dividir por 100.
Ele tem algumas limitações na sintaxe do sql (left outer
Vai em Project Options na aba Compiler e marca a opção Stack frames e na
aba linker marca a opção Include TD32 debug info. Isso vai te dar
informações mais amigáveis no arquivo de log. Mais só utilize essas opções
para debug.
[As partes desta mensagem que não continham texto foram removidas]
47 matches
Mail list logo