Olá pessoal,
Bruno, tem um que eu uso aqui muito simples:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// Valid name
if (Key in ['0'..'9']) then
begin
Key := #0;
Beep;
end;
end;
Você pode modificar para restringir outros caracteres, ex:
procedure
Obrigado Silvio!
Eu já tinha tentado dessa forma e não havia dado certo, mas fiz de novo e deu!
Outra coisa...
Como que eu faço pra não aceitar digitar números no campo nome que está em uma
dbEdit? Deve ser algo parecido com o código, mas sei que esse daí faz outra
coisa:
if key= #13 then
be
bom, como nao disse qual eh o erro q ocorre acredito q seja referente
ao midas, adicione a unit midaslib no uses do seu form com o
clientdataset
2008/12/2 douglasmmm <[EMAIL PROTECTED]>:
> Boa tarde.
>
> Estou fazendo uma manutenção em um sistema desenvolvido a muito tempo,
> é utilizado rxMemoriD
E se você, simplesmente, abrir o .DPR para dentro de TMemo?
Luciano Calenzani Simões
De: dhsb <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 2 de Dezembro de 2008 13:23:22
Assunto: [delphi-br] Listar Units
Pessoal preciso lis
Boa tarde.
Estou fazendo uma manutenção em um sistema desenvolvido a muito tempo,
é utilizado rxMemoriData.
Coloquei um ClientDataSet para trabalhar dados em memória, enfim
funciona tudo direitinho na minha maquina, mas ao colocar na maquina do
cliente o programa simplismente não abre o form q
E ae Silvio, blz?? da uma olhada nisso
http://sucessocomsoftware.blogspot.com/2008/12/hospedagem-gratuita.html
acho que vai ajudar.
abraço.
2008/12/2 Silvio Clécio <[EMAIL PROTECTED]>
> Olá pessoal,
>
> Ricardo, Marcelo, Miguel e a todos; Amigos, muito obrigado mesmo :) ! Vou
> ver o que vocês
isso é pirataria viu.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr
- Original Message -
From: Alex
To: delphi-br@
vc ou a empresa pra quem desenvolvei tem que comprar um certificado
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe
http://www.curric
Oi Pessoal,
Hoje no CodeRage às 16:00 e 17:15 horários de Brasília, teremos as respectivas
palestras.
16:00 - DataSnap - interoperabilidade entre aplicações multi-camada Win32 e .NET
17:15 - Desenvolvimento Web 2.0 com VCL For Web
Para conectar a estas palestras use o link:
https://www.livemee
Use essa procedure abaixo, assim você alterará o diretório corrente em run-time.
procedure ChDir(const S: string); overload
procedure ChDir(P: PAnsiChar); overload;
Luciano Calenzani Simões
De: Elazar Dornelles Ceza <[EMAIL PROTECTED]>
Para: delphi-br@yaho
Alguém!?!
[]s
2008/12/2 Fellipe Henrique <[EMAIL PROTECTED]>
> Bom... corrigindo meu codigo, onde se le
>
> destructor TTeste.Destroy;
> begin
> if Assigned(FEndServs) then
> FreeAndNil(FEndServs);
> inherited Destroy;
> end;
>
> mudei para
> destructor TTeste.Destroy;
> begin
>FEndS
Olá pessoal,
Ricardo, Marcelo, Miguel e a todos; Amigos, muito obrigado mesmo :) ! Vou ver o
que vocês me passaram com calma e escolher o que for mais acessível para todos
nós.
A idéia é tipo aquela que disponibilizei na 4shared, deixar os exemplos para
qualquer pessoa baixar rapidamente, e out
!
>
> Obrigado!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> __ Information from ESET NOD32 Antivirus, version of virus
> signature database 3658 (20081202) __
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Olá pessoal,
Brother, só uma sugestão:
Se tirar o "if key= #13 then" será que funfa?
Eu testei aqui e foi de primeira, veja se dá certo aí tb :) .
[]'s, Silvio Clécio
Contatos/Blog
Skype: silvioprog
E-mail, Yahoo! Messenger: [EMAIL PROTECTED]
Gmail, Google Talk:
Olá pessoal,
Elazar, você pode criar um programa que abra o diretório,
e esse programa pode ser bem simples, você coloca para não aparecer o Form
principal e logo que ele abrir o seu diretório, o programa fecha sozinho.
A segunda alternativa, porém bem amadora, é você criar um
atalho e chamar es
Boa tarde pessoal!
Estou precisando fazer um código aki, mas não tenho nem idéia de como fazer!
Seguinte... eu uso o código no OnKeyPress de um campo dbEdit:
if key= #13 then
begin
Perform (CM_DialogKey, VK_TAB, 0);
key:=#0;
end;
Pra quem não sabe esse código faz a tecla ENTER
Boa tarde a todos...
Estou tendo problemas para enviar arquivos XML para um WebService da
Datasul. Com uma ferramenta exemplo desenvolvida em Java pelo pessoal da
Datasul o arquivo é enviado perfeitamente. Já usando o componente
HTTPRIO, ele retorna um erro de "mensagem não assinada". Quem tive
Use essa procedure abaixo, assim você alterará o diretório corrente em run-time.
procedure ChDir(const S: string); overload
procedure ChDir(P: PAnsiChar); overload;
Luciano Calenzani Simões
De: Elazar Dornelles Ceza <[EMAIL PROTECTED]>
Para: delphi-br@yahoog
olá,
alguém do grupo que possui assinatura da revista digital
"Engenharia de Software" da DevMedia poderia me fazer um favor:
estou concluindo meu curso de graduação essa semana com o
tema relacionado à teste de software (capa da 6ª edição da
revista).. agradeceria muito se alguem que possuir a as
Boa tarde pessoal
Olha só, eu estou colocando um aplicativo pra iniciar com o windows
(adicionando no regedit, run), mas ele não esta tendo o comportamento que eu
desejo, pois eu gostaria de definir um diretorio para execução, tal qual é
feito pelo "Iniciar em" que existe nos atalhos, alguem co
Pra que você precisa listar as units do seu projeto? Sabendo da sua
necessidade, talvez a gente possa encontrar outra solução...
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Alguem sabe como por um hiperlink dentro do fortes report para depois gerar
um pdf do mesmo..??..estou utilizando o D7.
Grato.
Santiago
NSR Informática.
[As partes desta mensagem que não continham texto foram removidas]
Pessoal preciso listar todos os nomes das minhas units encontrei o
codigo abaixo.
for i := 0 to Screen.FormCount - 1 do
MUnits.Lines.Add(GetTypeData(Screen.Forms[i].ClassInfo)^.UnitName
+ ' {' + Screen.Forms[i].Caption + '} ');
So que tem um problema, ele so lista as units dos forms qu
Bom Dia,
Estamos trabalhando com a pretensão dos candidatos para repassar para o nosso
cliente.
Att.
Marcia Lumi Yokogawa
Analista de Recrutamento e Seleção
Fone: +55 11 3848- - Ramal: 466
Talent Four Consulting
Av. Doutor Cardoso de Melo, 1608 - 4º andar
04548-005 - Vi
Olá Sílvio,
Tem um site chamado www.huddle.net
Talvez sirva para o que vc quer, armazenar e disponibilizar arquivos, não sei
exatamente o q vc deseja
Abraços,
Barbosa
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que
Sim João, mas parece que ele preciso do tipo Array of Char explicito.
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Joao
Morais
Sent: Tuesday, December 02, 2008 2:32 AM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] String to Array of Char ...
2008/12/1
Gentileza observar as regras da lista e tratar de ofertas de emprego
em *private*.
--
Joao Morais
2008/12/2 Moacir - GMail <[EMAIL PROTECTED]>:
>
> Não, afinal de contas é leilão... hauhauhauhauah
>
>
>
> Alosi yahoo escreveu:
>> Valor pra incentiva, nada?
Opa,
bom dia galera, to com um problema com o meu delphi7, crio um form de
add a ele um mainmenu e configuro o meu menu testo e ta ok contudo ao
acrescentar um timage ao mesmo form q tem o tmainmenu e configura-lo ao
compilar simplesmente o menu desaparece, mesmo com a propriedade align
do tim
Não, afinal de contas é leilão... hauhauhauhauah
Alosi yahoo escreveu:
> Valor pra incentiva, nada?
>
> Marcia Lumi Yokogawa escreveu:
>
>>
>>
>> A Talent Four Consulting é uma empresa de consultoria em projetos de
>> Tecnologia da Informação, especializada em serviços e terceirização de
Eu uso as próprias ferramentas do Sybase SQL Anywhere. ISQL, Sybace Central, ...
Luciano Calenzani Simões
De: Jota Pyl Gmail <[EMAIL PROTECTED]>
Para: delphi-br
Enviadas: Terça-feira, 2 de Dezembro de 2008 9:57:07
Assunto: [delphi-br] Gerenciador SyBase...
Pessoal,
Já começou.
http://blogs.codegear.com/andreanolanusse/2008/12/01/coderage-iii-2%c2%ba-dia-datasnap-vcl-for-web-e-linguagem/
[]'s
Andreano Lanusse
Embarcadero Product Line Manager and Techinical Lead Evangelist Latin America &
Caribbean
CONFIDENTIALITY NOTICE: This email message is
Como faço pra usar um RemoteDateModule em outro form? Eu incluo o mesmo na
seção uses, mas não consigo acessar os componentes que estão no
RemoteDataModule. Se eu estivesse usando um form normal bastaria fazer:
NomeDoForm.NomeDoComponente. Estou tentando fazer uma thread para criação
dos datase
Bom dia.
Sempre trabalhei com o Firebird e usei a ferramenta da EMS IBManager para fazer
a manutenção e gerenciamento do banco.
Comecei a trabalhar com o SyBase, e não achei um boa ferramenta para fazer a
manutenção e gerenciamento do banco.
Gostaria da sugestão dos colegas sobre qual a melhor
HI!
Eu uso desde 2001.
É muito bom, nunca me deu problema.
Acho que o pessoal tem dificuldades em configurar, pois é meio chato. as
velocidades de banda larga também elimina a necessidade de usar-lo.
Eu uso por segurança no acesso às bases de dados de meus clientes, pois coloco
o tunel em qualq
Bom... corrigindo meu codigo, onde se le
destructor TTeste.Destroy;
begin
if Assigned(FEndServs) then
FreeAndNil(FEndServs);
inherited Destroy;
end;
mudei para
destructor TTeste.Destroy;
begin
FEndServs.Free;
inherited Destroy;
end;
Parou o violacao.. mas... ao digitar algo no texto
Eu vi este procedimento era o que eu estava precisando. so que ele so
carrega os forms ja criados. Mas tenho formularios que sao criados em
tempo de execução. Alguem poderia me auxiliar?
Var
Form1: TForm1;
implementation
uses TypInfo;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
amigos, tenho o seguinte componente feito por mim, pois bem, com a ajuda de
um amigo, vi que o erro de excluir ele do form foi meu, já arrumei, agora
está quase perfeito...
o problema está no EnServs... no delphi aparece bonitinho, inclusive clico
no (...) e abre a tela do stringlist numa boa... mu
Salve amigos,
Alguém tem alguma função que me diga qual o nome do usuário que bloqueou um
registro ?
Uso Zeos, Firebird 1.5 - Delphi 5 Enterprise
Abraço a todos
Omar M. Haddad
Analista de Sistemas
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo
Pessoal estou com uma duvida eu tenho dois menus um chamado cdastro e o
outro chamado Consulta. Todos os form de Cadastros comecam com Cad e
consulta com Con. Bom, tenho um form de autorização. Tenho que a cada
bertura de tela ele carregasse todos os captions do formularios num
listbox de cadas
Bom dia,
Será que alguém usa mesmo esse Zebedee? Pelo que está me parecendo não é muito
usado. Já pesquisei em inúmeros locais na net. Os poucos artigos ou postos que
encontrei dizem a mesma coisa e não esclarecem muito sobre a configuração. Pelo
menos não sobre possíveis erros na conexão.
Segui
Ha sim Evando, nesse caso, sua observacao em relacao ao FB 2.1,, faz
sentido, é justamente esse FB que eu uso, por isso nao percebi a diferença
de performace.
Uma solução que adodei e resolveu, foi nao mexer em nada do programa, apenas
o cliente tem o win server 2003 , com 5 licensas, caiu como um
2008/12/1 Andreano Lanusse <[EMAIL PROTECTED]>:
> Uma pequena correção no código :) que enviei anteriormente, considere este.
>
> o type StringArray tem que array of Char e não array of String
>
> type StringArray = array of Char;
> procedure StringToArray( S : string; var MyArray : StringArray
Valor pra incentiva, nada?
Marcia Lumi Yokogawa escreveu:
>
>
> A Talent Four Consulting é uma empresa de consultoria em projetos de
> Tecnologia da Informação, especializada em serviços e terceirização de
> Profissionais.
> Atuamos em serviços de Body Shop, Desenvolvimento de Sistemas, Fábric
Leonardo Quinino escreveu:
>
> Estou olhando o material do zebedeee. mas também ainda nao conseguir
> fazer rodar,, ou se rodou, nao percebi a diferença,,, que ele foi
> feito para
> tal finalidade
>
--
O Zebedee se mostrou uma ótima ferramenta em termos de velocidade no acesso
remot
A Talent Four Consulting é uma empresa de consultoria em projetos de Tecnologia
da Informação, especializada em serviços e terceirização de Profissionais.
Atuamos em serviços de Body Shop, Desenvolvimento de Sistemas, Fábrica de
Software e Documentação de Sistemas Legados, Help Desk e Recrutam
Pelo que entendi ele quer mover os dados para uma tipo Array of Char, se for
isso mesmo, o código anterior faz isso.
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Joao
Morais
Sent: Monday, December 01, 2008 3:34 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi
Olá galera,
Preciso de uma ajuda urgente.
Eu tenho que agrupar dados de uma tabela pela data. A tabela armazena
agendamentos (ex.: data, hora inicial, hora final).
Então eu tenho um clientDataSet com os dados:
*Data H. inicialH. final*
01/11/2008 10:3012:30
01/
Ricardo,
Entendi que sua primeira pergunta foi referente ao email anterior, sobre minha
resposta não quiz dizer em momento algum que você estava comparando ou algo do
tipo, foi apenas um esclarecimento geral sobre essa assunto.
Minha participação nesta thread está encerrada.
[]'s
Andreano
___
Uma pequena correção no código :) que enviei anteriormente, considere este.
o type StringArray tem que array of Char e não array of String
type StringArray = array of Char;
procedure StringToArray( S : string; var MyArray : StringArray);
var
i, n : integer;
begin
if S = '' t
ok, só que agora não consigo fazer o backup, dá o erro :
Error Message:
Server Name Missing
não sei o que é; estou fazendo o backup usando o IBExpert
grato
Stainle
--- Em seg, 1/12/08, Joao Morais <[EMAIL PROTECTED]> escreveu:
De: Joao Morais <[EMAIL
foi o que tentei fazer, usando o IBExpert, porém dá o erro :
Error Message:
Server Name Missing
e aí não consigo entender o porque.
Stainle
--- Em seg, 1/12/08, Andrei Luís <[EMAIL PROTECTED]> escreveu:
De: Andrei Luís <[EMAIL PROTECTED]>
Assunto: Re
Carlos,
Toda String é um array
Vc pode acessar qualquer posição como se fosse um array:
For i:=0 to Length(MinhaString)-1 do
ShowMessage('Posição '+IntToStr(i)+' contem '+MinhaString[i]);
[ ]´s
Moacir
Carlos Eduardo Menezes escreveu:
> Boa tarde pessoal, gostaria de saber se alguem de
52 matches
Mail list logo