[delphi-br] OFF TOPIC COMPRA DE SISTEMA COM FONTES
Cheguei a analisar alguns que estao a venda pela net, mas não agradou, então resolvi procurar aqui na lista, um sistema de controle de estoque, faturamento e principalmente apuração de icms e ipi , para implantar em uma loja de autopeças , o sistema precisa emitir nota fiscal, e cupom ecf, não a necessidade de Tef. Quem tiver algum demo para analizar, tambem mandar o valor, mande para o meu email em pvt jose.claudemir.co...@gmail.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] DELPHI NAO FUNCIONA PARA PROJETO DE GRANDE PORTE NUM UNICO EXECUTAVEL.
Olá Josi Ferri, A algum tempo atrás passei pelo mesmo problema que vc, com um projeto enorme mais de 2600 units gerando um monstro de executável.. eram erros por todos os lados, pensei até em mudar de ambiente de programação, mais como a empresa tinha o delphi 7 original não teve jeito, apos dar uma boa pesquisada rapida pq não tinha muito tempo para pesquisar mais detalhadas, passei a Utilizar o conceito de Pacotes ( Dynamic packages BPL) , isso não causou muita mudança no meu sistema, porém acabou mudando muito a minha forma de conceber um sistema, hoje temos um sistema estável com módulos destintos, porém totalmente intregrado, a minha ultima verificação, me mostro que estamos com 3216 units, hoje não posso dizer que o Delphi 7 não funciona com projetos grandes, hoje digo que eu não conhecia a fundo o que o Delphi poderia me dar ... Material sobre BPL : http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg13015.html http://delphi.about.com/od/objectpascalide/a/bpl_vs_dll.htm http://www.ramosdainformatica.com.br/art_recentes01.php?CDA=638 http://mc-computing.com/Languages/Delphi/Packages.html http://www.scriptbrasil.com.br/forum/lofiversion/index.php/t89987.html Este ultimo e de visita obrigatória http://dn.codegear.com/article/27178 Bem, espero ter ajudado com esse exemplo que é um granzinho de areia nessa area. Um feliz natal para todos.. José Claudemir ---Mensagem original--- De: Josi Ferri Marin Data: 18/12/2008 16:08:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DELPHI NAO FUNCIONA PARA PROJETO DE GRANDE PORTE NUM UNICO EXECUTAVEL. Bom dia pessoal. Após tanta procura, pesquisa, etc ... cheguei a conclusão de que o delphi não serve para projetos de grande porte. Depois de um determinado tamanho, começa a dar erros de compilação, erros de ntdll.dll, erros de out of memory, todos esses erros dando no momento da compilação em qualquer maquina ou sistema operacional independente de processador(P4, core 2 duo, amd) ou quantidade de memória(1 gb, 3 gb). Se compilo um projeto menor, funciona sem problema. Usamos o delphi 7. Entrei em contato com o pessoal da borland e me disseram que tinham conhecimentos de projeto maiores que o nosso e que compilava sem problema. Pedi um desses exemplos e não me falaram. Depois retornaram dizendo que a solução seria modularizar o projeto. Ou seja, realmente ele não funciona, o que é uma pena. Como modularizar um projeto que tem mais de 1000 arquivos .pas que hoje gera um executavel de mais ou menos 51 MB, sendo que uma unit pode ser usada em dezenas de outras. Esses erros no delphi já acontecem a muitos anos e a borland infelizmente não forneceu solução, pelo menos não nos patchs que temos aqui. Se alguém sabe uma forma de resolver esses erros de compilação ou uma forma de modularizar um projeto desse temanho, por favor digam. Obrigado e um Feliz Natal a todos. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Opinião e/ou Sugestão sobre Forms
Olá João Alexandre, de uma olhada em http://www.almdev.com/ espero ter ajudado José Claudemir Costa JCC Sistemas Consultoria CCNA / Certificado Borland Delphi / MCSA ---Mensagem original--- De: Jsuptec Silva Data: 14/3/2008 11:58:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Opinião e/ou Sugestão sobre Forms Olá pessoal, Alguém pode me indicar algum componente pago ou não para a crição de forms personalizados, sem ser o padrão windows. Atenciosamente João Alexandre Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2945 (20080313) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] SOCORRO URGENTE:: Travar teclas e desligar
para CTRL+ALT+DELETE http://www.swissdelphicenter.ch/torry/showcode.php?id=1528 http://www.activedelphi.com.br/modules php?op=modloadname=Newsfile=articlesid=128mode=threadorder=0thold=0 http://www.ramosdainformatica.com.br/dic_recentes01.php?CDA=236 para ALT + F4 http://www.ramosdainformatica.com.br/dic_recentes01.php?CDA=237 Desligar Micro Usando a API: C:\WINDOWS\RUNDLL.EXE user.exe,exitwindows Espero ter ajudado !!! [] José Claudemir Costa José Claudemir Costa CCNA / Certificado Borland Delphi / MCSA ---Mensagem original--- De: william.designer Data: 11/27/07 15:20:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] SOCORRO URGENTE:: Travar teclas e desligar Olá pessoal estou precisando de ajuda criei um formulario que inicializa quando se inicia o windows, tenho alguns botões dentre eles está o botão desligar alguem pode me passar um código para quando clicar neste botão desligar o computador. outra coisa é que o usuário nao podera fechar o formulario usando ALT+F4, CTRL+ALT+DEL, TECLA WINDOWS, ALT+TAB, será que alguem pode me ajudar nesta dúvida o pior é que tenho apenas uma semana para entregar o meu projeto e nem sei por onde começar se puderem me ajudar [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] ot - Inno Setup
Olá Jefferson;
isso q vc esta querendo pode ser feito assim :
crie a seção [components]
[Components]
Name: Completa; Description: Instalação Completa ( Servidor / Aplicativo );
Types: full
Name: Executaveis; Description: Instalação somente Aplicativo; Types: custom
full
Name: Servidor; Description: Somente servidor de banco de dados; Types:
custom full
depois coloque em cada arquivo na Seção [files] a tag Components, Ex:
[Files]
Source: ..\Sist. Comercial\Dados\INSTALAR\*.*; DestDir: {app}; Components:
Completa Executaveis
Source: ..\Sist. Comercial\Dados\REPARA.exe; DestDir: {app}; Components:
Completa Executaveis
Source: ..\Sist. Comercial\Dados\INSTALAR\PRINT.ANI; DestDir: {app};
Components: Executaveis Completa
Source: ..\..\TOOLS\Firebird-2.0.1.12855-1-Win32.exe; DestDir: {tmp};
Components: Servidor Completa
Ai para finalizar acrescente na seção Run
[Run]
Filename: {tmp}\Firebird-2.0.1.12855-1-Win32.exe; Components: Servidor
Completa
Espero ter ajudado, qquer coisa e so mandar um email.
[]
José Claudemir Costa
CCNA / Certificado Borland Delphi / MCSA
---Mensagem original---
De: Jefferson - Fórum
Data: 05/11/2007 00:22:39
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] ot - Inno Setup
Aproveito esse ot, e pergunto!
Como posso no Inno, colocar as opções pra fazer instalação:
- completa (aplicativo e servidor de banco de dados [firebird])
- somente aplicativo
- somente servidor de banco de dados
Alguém pode me ajudar, por favor?
Jefferson
- Original Message -
From: José Claudemir
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, November 04, 2007 11:13 PM
Subject: Res: [delphi-br] ot - Inno Setup
Olá Nilson,
Como vc está mandando criar a pasta, está usando a seção [Dirs]?
eu utilizo assim e funciona perfeitamente :
[Dirs]
Name: {app}\DADOS; Components: Completa
Name: {app}\CONFIGURACAO; Components: Completa
Name: {app}\SEGURANCA; Components: Completa
Name: {app}\SINTEGRA; Components: Completa
Espero ter ajudado
[]
José Claudemir Costa
CCNA / Certificado Borland Delphi / MCSA
---Mensagem original---
De: Nilson Chagas
Data: 11/03/07 13:31:40
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ot - Inno Setup
Algum dos nobres colegas conseguiu fazer o Inno Setup criar uma pasta
vazia???
[]s
Nilson
--
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ot - Inno Setup
Olá Nilson,
Como vc está mandando criar a pasta, está usando a seção [Dirs]?
eu utilizo assim e funciona perfeitamente :
[Dirs]
Name: {app}\DADOS; Components: Completa
Name: {app}\CONFIGURACAO; Components: Completa
Name: {app}\SEGURANCA; Components: Completa
Name: {app}\SINTEGRA; Components: Completa
Espero ter ajudado
[]
José Claudemir Costa
CCNA / Certificado Borland Delphi / MCSA
---Mensagem original---
De: Nilson Chagas
Data: 11/03/07 13:31:40
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ot - Inno Setup
Algum dos nobres colegas conseguiu fazer o Inno Setup criar uma pasta
vazia???
[]s
Nilson
--
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Gerador de Instalador para Delphi / Paradox
De uma olhada no issosetup Criado por Jordan Russel , o Inno Setup é uma ferramenta OpenSource e profissional para todos que desejam distribuir seus aplicativos de maneira simples e profissional. Programável com InnoScript, linguagem desenvolvida especialmente para esse programa, ela se assemelha aos arquivos INI. Abaixo está o link para o mesmo. http://www.jrsoftware.org/isdl.php Tradução para português-brasil. http://www.jrsoftware.org/files/istrans/ Neste link aqui Você pode baixar um bom tutorial ... http://www.visualsistemas.com.br/SuporteGAS/MANUALINNOSETUP.zip Espero ter ajudado !!! José Claudemir CCNA / Certificado Borland Delphi / MCSA ---Mensagem original--- De: almir cruz Data: 07/26/06 13:57:35 Para: Grupo; Eduardo Silva dos Santos; Ulisses Assunto: [delphi-br] Gerador de Instalador para Delphi / Paradox Olá! Alguem conhece algum Gerador de Instalador para Delphi / Paradox, tão bom quanto o RDinstall 1.7. Este é pago na net! poderia ser gratuito! Almir Cruz - Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: Re: [delphi-br] Leitura contrária de INI
Olá Tamara !!
Realizei um teste aqui , criei um arquivo com a estrutura de um ini que deu
+- 1mega
Varias Seções com vários valores tipo :
[Indice1]
Diretiva1=meu texto1
Diretiva2=meu texto2
Diretiva3=meu texto3
[Indice2]
Diretiva1=meu texto1
Diretiva2=meu texto2
Diretiva3=meu texto3
[Indice3]
Diretiva1=meu texto1
Diretiva2=meu texto2
Diretiva3=meu texto3
Pelo que pude observar deu problema na classe TIniFile por ela usar a API do
Windows que impõe um limite de 64kb nos arquivos INI. Se você precisar
armazenar mais de 64kb de dados, você precisará usar o TMemIniFile ao invés
da TInifile, que não possui o limite de 64kb.
No restante suto correu normalmente , so consumiu memória pra caramba,
Então se quiser fazer um teste substitua TiniFile por TMemIniFile somente e
faça um teste
Um abraço !!
CCNA / Certificado Borland Delphi / MCSA
---Mensagem original---
De: Moked - Tamara \(Brazil\)
Data: 06/13/06 09:41:53
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: Re: [delphi-br] Leitura contrária de INI
Bom dia José,
Seria exatamente isto o q eu preciso, porém, testando aqui a sua função, me
deparei com um problema: não sei se o stringlist tem um limite a ser
carregado nele, mas de acordo com o tamanho do meu arquivo INI, ele não
chega até a metade do arquivo fazendo a verificação particionei meu
arquivo e ele encontrou direitinho a minha string conforme eu precisava
:(
Existe alguma extensão do stringlist?
Muito Obrigada pela ajuda
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de José Claudemir
Enviada em: segunda-feira, 12 de junho de 2006 21:01
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: Re: [delphi-br] Leitura contrária de INI
Olá !!
Não seria isso o que VC está querendo .. !!
Até mais !!!
Function AchaDiretiva(MyIni,MyIndice,MyStr: String): String;
Var
AppIni : TIniFile;
Items : TStringList;
I : INteger;
SStr : String;
SChave : String;
Begin
Result := '';
Items := TStringList.Create;
AppIni := TIniFile.Create(MyIni);
AppIni.ReadSectionValues(MyIndice,Items);
For I:=0 to Items.Count - 1 do begin
SChave := Copy(Items[I],1,Pos('=',Items[I])-1);
SStr := AppIni.ReadString(MyIndice,sChave,'');
If sStr = MyStr then begin
Result := sChave;
Exit;
End;
End;
AppIni.Free;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShowMessage(achaDiretiva('c:\arquivo.ini','indice','meu texto2'));
end;
CCNA / Certificado Borland Delphi / MCSA
---Mensagem original---
De: Julio Cesar
Data: 06/12/06 18:50:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Leitura contrária de INI
Faz a leitura de linha a linha, dai da um pos() na string q vc quer, caso
haja na linha entao vc faz a copia do inicio da string ate a pos() do sinal
de igual...
Julio Cesar
[EMAIL PROTECTED]
+353 (87) 2184139
+353 (091) 630317
- Original Message -
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 12, 2006 9:22 PM
Subject: RES: [delphi-br] Leitura contrária de INI
Ulisses,
Não é bem isso q eu preciso o q eu preciso não é pegar o texto de
dentro dos colchetes[] e sim o q tem antes do sinal de igual até onde
andei pesquisando, eu conseguiria pegar o texto de dentro dos colchetes
atraves de uma função como o readstring mas antes do sinal de igual ñ
encontrei nd...
Obrigada pela atenção...
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ulisses
Enviada em: segunda-feira, 12 de junho de 2006 17:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Leitura contrária de INI
Boa tarde!
Tenta localizar o caractere [, salva o texto que estiver antes do
caractere ].
Só uma idéia. Se encontrar algo melhor, me avisa.
Boa sorte.
Ulisses
- Original Message -
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 12, 2006 2:58 PM
Subject: [delphi-br] Leitura contrária de INI
http://www.moked.com.br/ Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
Grau de Sigilo: Confidencial Reservado Interno Amplo
Nível de
Res: Re: [delphi-br] Leitura contrária de INI
Olá !!
Não seria isso o que VC está querendo .. !!
Até mais !!!
Function AchaDiretiva(MyIni,MyIndice,MyStr: String): String;
Var
AppIni : TIniFile;
Items : TStringList;
I : INteger;
SStr : String;
SChave : String;
Begin
Result := '';
Items := TStringList.Create;
AppIni := TIniFile.Create(MyIni);
AppIni.ReadSectionValues(MyIndice,Items);
For I:=0 to Items.Count - 1 do begin
SChave := Copy(Items[I],1,Pos('=',Items[I])-1);
SStr := AppIni.ReadString(MyIndice,sChave,'');
If sStr = MyStr then begin
Result := sChave;
Exit;
End;
End;
AppIni.Free;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShowMessage(achaDiretiva('c:\arquivo.ini','indice','meu texto2'));
end;
CCNA / Certificado Borland Delphi / MCSA
---Mensagem original---
De: Julio Cesar
Data: 06/12/06 18:50:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Leitura contrária de INI
Faz a leitura de linha a linha, dai da um pos() na string q vc quer, caso
haja na linha entao vc faz a copia do inicio da string ate a pos() do sinal
de igual...
Julio Cesar
[EMAIL PROTECTED]
+353 (87) 2184139
+353 (091) 630317
- Original Message -
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 12, 2006 9:22 PM
Subject: RES: [delphi-br] Leitura contrária de INI
Ulisses,
Não é bem isso q eu preciso o q eu preciso não é pegar o texto de
dentro dos colchetes[] e sim o q tem antes do sinal de igual até onde
andei pesquisando, eu conseguiria pegar o texto de dentro dos colchetes
atraves de uma função como o readstring mas antes do sinal de igual ñ
encontrei nd...
Obrigada pela atenção...
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ulisses
Enviada em: segunda-feira, 12 de junho de 2006 17:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Leitura contrária de INI
Boa tarde!
Tenta localizar o caractere [, salva o texto que estiver antes do
caractere ].
Só uma idéia. Se encontrar algo melhor, me avisa.
Boa sorte.
Ulisses
- Original Message -
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 12, 2006 2:58 PM
Subject: [delphi-br] Leitura contrária de INI
http://www.moked.com.br/ Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
Grau de Sigilo: Confidencial Reservado Interno Amplo
Nível de Prioridade: Alto Médio Baixo
Destinatário/s: Lista de divulgação
-
Boa Tarde,
Pessoal, como faço para ler arquivo .INI ao contrario?
Maiores explicações:
Normalmente eu leio o Ini tendo como diretiva o q esta antes do sinal de
igual:
[Indice]
diretiva=meu texto
Sendo assim, quando eu utilizo o readstring('Indice', 'diretiva', '')
meu retorno será meu texto.
Agora o q eu estou precisando:
Eu passando o meu texto q ele me retorne a diretiva
Deu para entender
Espero a ajuda de vcs...
Obrigada,
Tamara
A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000
Serviços prestados no Brasil na área de segurança pessoal e empresarial:
Consultoria e Assessoria | Diagnósticos e Projetos | Curso e
Treinamentos | Auditoria e Sindicância | Software de Gestão | Help-desk 24hs
O emitente da mensagem é o responsável por seu conteúdo e divulgação,
proibindo sua reprodução sem a prévia autorização do mesmo.
Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
comprometimento com os Custo envolvidos!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 1.1595 (20060612) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
RES: [delphi-br] Leitura contrária de INI
Olá !!
Não seria isso o que VC está querendo .. !!
Até mais !!!
Function AchaDiretiva(MyIni,MyIndice,MyStr: String): String;
Var
AppIni : TIniFile;
Items : TStringList;
I : INteger;
SStr : String;
SChave : String;
Begin
Result := '';
Items := TStringList.Create;
AppIni := TIniFile.Create(MyIni);
AppIni.ReadSectionValues(MyIndice,Items);
For I:=0 to Items.Count - 1 do begin
SChave := Copy(Items[I],1,Pos('=',Items[I])-1);
SStr := AppIni.ReadString(MyIndice,sChave,'');
If sStr = MyStr then begin
Result := sChave;
Exit;
End;
End;
AppIni.Free;
Items.Free;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShowMessage(achaDiretiva('c:\arquivo.ini','indice','meu texto2'));
End;
CCNA / Certificado Borland Delphi / MCSA
---Mensagem original---
De: Moked - Tamara \(Brazil\)
Data: 06/12/06 17:29:28
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Leitura contrária de INI
Ulisses,
Não é bem isso q eu preciso o q eu preciso não é pegar o texto de dentro
dos colchetes[] e sim o q tem antes do sinal de igual até onde andei
pesquisando, eu conseguiria pegar o texto de dentro dos colchetes atraves de
uma função como o readstring mas antes do sinal de igual ñ encontrei nd.
.
Obrigada pela atenção...
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ulisses
Enviada em: segunda-feira, 12 de junho de 2006 17:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Leitura contrária de INI
Boa tarde!
Tenta localizar o caractere [, salva o texto que estiver antes do
caractere ].
Só uma idéia. Se encontrar algo melhor, me avisa.
Boa sorte.
Ulisses
- Original Message -
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 12, 2006 2:58 PM
Subject: [delphi-br] Leitura contrária de INI
http://www.moked.com.br/ Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
Grau de Sigilo: Confidencial Reservado Interno Amplo
Nível de Prioridade: Alto Médio Baixo
Destinatário/s: Lista de divulgação
-
Boa Tarde,
Pessoal, como faço para ler arquivo .INI ao contrario?
Maiores explicações:
Normalmente eu leio o Ini tendo como diretiva o q esta antes do sinal de
igual:
[Indice]
diretiva=meu texto
Sendo assim, quando eu utilizo o readstring('Indice', 'diretiva', '') meu
retorno será meu texto.
Agora o q eu estou precisando:
Eu passando o meu texto q ele me retorne a diretiva
Deu para entender
Espero a ajuda de vcs...
Obrigada,
Tamara
A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000
Serviços prestados no Brasil na área de segurança pessoal e empresarial:
Consultoria e Assessoria | Diagnósticos e Projetos | Curso e Treinamentos
| Auditoria e Sindicância | Software de Gestão | Help-desk 24hs
O emitente da mensagem é o responsável por seu conteúdo e divulgação,
proibindo sua reprodução sem a prévia autorização do mesmo.
Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
comprometimento com os Custo envolvidos!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 1.1595 (20060612) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Res: QuickReport - Como Usar no SQL uma variável global
Espero Ajudar com essa dica;
With qrpRelatorio do begin
Query.Close;
with Query.Sql do begin
Add(' SELECT COUNT (Distinct CSCod) FROM APURAC.db');
Add(' WHERE APCONTROLE = '+ QuotedStr('ATIVO '));
Add(' AND APFases = '+ QuotedStr('F9-FECHADA');
Add(' AND APDtApu = :QDtDe ');
Add(' AND APDtApu = :QDtAte');
end;
Query.ParamByName('QDtDe').AsDate := QDtDe;
Query.ParamByName('QDtDe').AsDate := QDtAte;
Query.Open;
PreviewModal;
Free;
end;
---Mensagem original---
De: Roberto Wazen
Data: 06/03/05 22:03:39
Para: delphi-br@yahoogrupos.com.br
Assunto: QuickReport - Como Usar no SQL uma variável global
1 -SELECT COUNT (Distinct CSCod) FROM APURAC.db
2- WHERE APCONTROLE = 'ATIVO '
3 - AND APFases = 'F9-FECHADA'
4- AND APDtApu = QDtDe
5- AND APDtApu = QDtAte
No QuickReport, até a linha 3, tudo bem, está operativo. Pergunto como é a
sintaxe, para aceitar como parametro QDtDe e QDtAte, que são variáveis
globais de seleção de relatório e que foram setadas em outra unit. No caso
são datas
Obrigado desde já pela ajuda.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Res: [delphi-br] MessageDlg com Não como default
use MessageBox
Espero ajudar com isso !!
Inté !!
MB_ABORTRETRYIGNORE A messagem mostra os tres botoes: Abort, Retry, and
Ignore.
MB_OK A messagem mostra um botoao: OK. This is the default.
MB_OKCANCEL A messagem mostra os dois botoes: OK and Cancel.
MB_RETRYCANCEL A messagem mostra os dois botoes: Retry and Cancel.
MB_YESNO A messagem mostra os dois botoes: Yes and No.
MB_YESNOCANCEL A messagem mostra os tres botoes: Yes, No, and Cancel.
Sons
MB_ICONEXCLAMATION, MB_ICONWARNING: Mostra o icone de exclamação e som
conrrespondente. Analo aos demais
MB_ICONINFORMATION, MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONSTOP,
MB_ICONERROR,
MB_ICONHAND
Botoes padrao
MB_DEFBUTTON1: Padrao nao precisa ser colocado.
MB_DEFBUTTON2: Coloca o segundo botao como padrao
MB_DEFBUTTON3: Coloca o terceiro botao como padrao
MB_DEFBUTTON4: Coloca o quarto botao como padrao
Respostas
IDABORT
IDCANCEL
IDIGNORE
IDNO
IDOK
IDRETRY
IDYES
Exemplo
Case MessageBox (Application.Handle, Pchar ('Deseja excluir o arquivo' + #13
+ Label1.caption), 'Exclusao de arquivo',
MB_YESNOCANCEL+MB_EXCLAMATION+MB_DEFBUTTON2) of
idYes: Procedimento
idNo: Procedimento
idCancel: Procedimento
end;
---Mensagem original---
De: delphi-br@yahoogrupos.com.br
Data: 03/04/05 10:29:26
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] MessageDlg com Não como default
Queria fazer um MessageDlg com o botão No vindo com o foco.
Vi no help do Delphi:
MessageDlg('mensagem olá', mtWarning, [mbYes,mbNo], 0, mbNo)
Mas dá erro dizendo que têm parâmetros demais na função...
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Tradução do DevExpress
Da uma olhada nessa unit, tem algumas strings traduzidas : E so um exemplo de como se pode fazer isso !!! Inte !!! ---Mensagem original--- De: delphi-br@yahoogrupos.com.br Data: 02/03/05 18:24:56 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Tradução do DevExpress E onde estão essas strings de resource? Em qual(is) unit(s)? []s -Mensagem original- De: Marcelo M Florindo [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 2 de fevereiro de 2005 15:00 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Tradução do DevExpress existe uma maneira de traduzir os arquivos do devexpress... exemplo: cxSetResourceString(@ScxGridGroupByBoxCaption,'label traduzido'); - Original Message - From: Rubem Rocha [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 02, 2005 2:33 PM Subject: RES: [delphi-br] Tradução do DevExpress Velhinho, eu uso a bagaça, e até onde eu vi, só se tu tiveres os fontes. Não fui mais a fundo pra saber se precisa apenas traduzir arquivos de recursos ou .DFMs. []s -Mensagem original- De: banayz [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 2 de fevereiro de 2005 13:30 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Tradução do DevExpress Boa tarde! Alguém sabe como posso fazer para traduzir os componentes/mensagens do DevExpress? Obrigado, Rodrigo Albanaz -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- unit uResorceStringsPortugues; interface uses cxClasses,cxGridStrs,cxFilterControlStrs, cxEditConsts; Procedure SetResorcePortugues; implementation Procedure SetResorcePortugues; begin cxSetResourceString(@cxSFilterBoolOperatorAnd,'AND'); cxSetResourceString(@cxSFilterBoolOperatorOr,'OR'); cxSetResourceString(@cxSFilterBoolOperatorNotAnd,'NOT AND'); cxSetResourceString(@cxSFilterBoolOperatorNotOr,'NOT OR'); // cxSetResourceString(@cxSFilterRootButtonCaption,'Filtro'); cxSetResourceString(@cxSFilterAddCondition,'inclui Condição'); cxSetResourceString(@cxSFilterAddGroup, 'Inclui Group0'); cxSetResourceString(@cxSFilterRemoveRow, 'Remove linha'); cxSetResourceString(@cxSFilterClearAll, 'Apaga Todos'); cxSetResourceString(@cxSFilterFooterAddCondition, 'Precione o botão Incluir p/ nova condição'); cxSetResourceString(@cxSFilterGroupCaption, 'aplica-se às seguintes condições'); cxSetResourceString(@cxSFilterRootGroupCaption, 'Raiz'); cxSetResourceString(@cxSFilterControlNullString, 'Vazio'); cxSetResourceString(@cxSFilterErrorBuilding, 'Can''t build filter from source'); //FilterDialog cxSetResourceString(@cxSFilterDialogCaption, 'Configurar Filtro'); cxSetResourceString(@cxSFilterDialogInvalidValue, 'Valor invalido'); cxSetResourceString(@cxSFilterDialogUse, 'Usar'); cxSetResourceString(@cxSFilterDialogSingleCharacter, 'to represent any single character'); cxSetResourceString(@cxSFilterDialogCharactersSeries, 'to represent any series of characters'); cxSetResourceString(@cxSFilterDialogOperationAnd, 'AND'); cxSetResourceString(@cxSFilterDialogOperationOr, 'OR'); cxSetResourceString(@cxSFilterDialogRows, 'Criar filtro para:'); // FilterControlDialog cxSetResourceString(@cxSFilterControlDialogCaption, 'Construtor de filtro'); cxSetResourceString(@cxSFilterControlDialogNewFile, 'untitled.flt'); cxSetResourceString(@cxSFilterControlDialogOpenDialogCaption, 'Open an existing filter'); cxSetResourceString(@cxSFilterControlDialogSaveDialogCaption, 'Save the
