Re: [delphi-br] Pesquisa completa
Encontrei esta funcao !!! |function UpperCase2(const S: string): string; var Ch: Char; L: Integer; Source, Dest: PChar; begin L := Length(S); SetLength(Result, L); Source := Pointer(S); Dest := Pointer(Result); while L 0 do begin Ch := Source^; if (Ch = 'a') and (Ch = 'z') then Dec(Ch, 32); if (Ch = 'á') and (Ch = 'ú') then Dec(Ch, 32); if (Ch = 'ã') and (Ch = 'õ') then Dec(Ch, 32); if (Ch = 'ä') and (Ch = 'ü') then Dec(Ch, 32); if (Ch = 'à') and (Ch = 'ù') then Dec(Ch, 32); if (Ch = 'â') and (Ch = 'û') then Dec(Ch, 32); Dest^ := Ch; Inc(Source); Inc(Dest); Dec(L); end; end; Boa sorte !!! | Josinaldo escreveu: uso o ACCESS alguem sabe mim dizer se ele tem essa funcionalidade ou terei que fazer isso no delphi - Original Message - From: Daniel Augusto Bastos To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, July 09, 2009 2:45 AM Subject: Re: [delphi-br] Pesquisa completa Os bancos de dados normalmente ficam responsáveis por esta tarefa. Normalmente este tipo de pesquisa de fica de forma transparente a sua aplicação. Claro, supondo que o banco que vc usa tenha suporte. verifique se o Banco de Dados que vc usa tem suporte pois, com toda a certeza, vc terá perda de desempenho fazendo uma solução por software. Abs Daniel Augusto Bastos 2009/7/8 Leandro mutu...@yahoo.com.br mailto:mutukao%40yahoo.com.br sei q pra banco de dados existe uma funcao tbm q substitui os caracteres especiais mas n lembro o nome da funcao.. 2009/7/8 nillgolv nillg...@bol.com.br mailto:nillgolv%40bol.com.br Coloque um TEdit no form e no evento OnChange digite: SuaTabela.IndexName :='iNOME'; SuaTabela.FindNearest ([Edit1.Text]); Em 08/07/2009 12:20, sudscript sudscr...@yahoo.com.br mailto:sudscript%40yahoo.com.brsudscript% 40yahoo.com.br escreveu: Ola pessoal bom, dia!! gostaria da ajuda de vcs emuma questao que tenho aqui é o seguinte um cliente meu gostaria de inclementar num sistema que fiz pra ele uma pesquisa onde ele digistasse JOAO e aparecesse todos os joao cadastrados tanto com acento como sem aceento mais o que eu tinha feito pra ele so localiza de acordo com o que se escreve alguem ja fez algo assim? que possa mim ajudar? -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como eu insiro novos campos em uma t abela DBF em tempo de execução e também como saber se o c ampo na tabela existe ou não.
Walter, como você mesmo disse que o tempo ta curto, a melhor opção é abrir esse DBF no DataBase Desktop e modificar a estrutura da tabela. para fazer isso via código, você terá que recriar a tabela usando o TTable e migrar os dados da tabela antiga para a nova. você pode tentar também, já que acessa os DBF provavelmente via BDE é usar o SQL Alter table , mas acho que nao vai funcionar não. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/7/10 Walter Chagas (Bol) wchag...@bol.com.br Pessoal, Me surgiu uma saia justa daquelas aqui no serviço. Temos um sistema que usa algumas tabelas dbase (.dbf) em alguns casos. O problema é que este sistema pertence a uma regional e o funcionario que o fez já picou a mula daqui da telemont a tempos e agora ele vai precisar de umas adaptações mas por enquanto não vai dar pra trocar o banco por um SGBD pois o sistema é altamente usado em alguns processos aqui e não pode parar. O que eu vou precisar é saber como eu insiro novos campos em uma tabela DBF em tempo de execução e também como saber se o campo na tabela existe ou não. O sistema usa como acesso a dados o BDE porém a manipulação dos dados na tabela é toda via ClientDataset. Se alguem puder me dar uma luz nisto daí eu agradeço, até porque, o tempo pra fazer isto é pra lá de curto. É negócio pra antes de ontem. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como eu insiro novos camp os em uma tabela DBF em tempo de execução e t ambém como saber se o campo na tabela existe o u não.
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 specified field component is referenced in
the TFieldList object. FieldName is the name of the field for which to
search. If Find finds a field with a matching name, it returns the
TField component for the specified field. Otherwise it returns nil
(Delphi) or NULL (C++).
Note:Find differs from the FieldByName method only when the named
field is not in the list. When the field is not found, Find returns nil
(Delphi) or NULL (C++), while FieldByName raises an exception.
- Para alterar a estrutura:
{ Altera a esturutura }
with MinhaTabela do
try
Close;
with FieldDefs do
begin
Add('CAMPO1',ftString,15);
Add('CAMPO2',ftFloat);
end;
CreateDataSet;
Open;
except
Close;
ShowMessage('Erro ao Alterar Tabela');
end;
Sucesso !!
Moacir
Walter Chagas (Bol) escreveu:
Pessoal,
Me surgiu uma saia justa daquelas aqui no serviço.
Temos um sistema que usa algumas tabelas dbase (.dbf) em alguns casos. O
problema é que este sistema pertence a uma regional e o funcionario que o fez
já picou a mula daqui da telemont a tempos e agora ele vai precisar de umas
adaptações mas por enquanto não vai dar pra trocar o banco por um SGBD pois o
sistema é altamente usado em alguns processos aqui e não pode parar.
O que eu vou precisar é saber como eu insiro novos campos em uma tabela DBF
em tempo de execução e também como saber se o campo na tabela existe ou não.
O sistema usa como acesso a dados o BDE porém a manipulação dos dados na
tabela é toda via ClientDataset.
Se alguem puder me dar uma luz nisto daí eu agradeço, até porque, o tempo pra
fazer isto é pra lá de curto. É negócio pra antes de ontem.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
Re: [delphi-br] [OFF-TOPIC] Pequeno paradoxo com o projeto Lazarus.
Por definição 'um *paradoxo* é uma declaração aparentemente verdadeira http://pt.wikipedia.org/wiki/Verdade que leva a uma contradição http://pt.wikipedia.org/wiki/Contradi%C3%A7%C3%A3o lógica http://pt.wikipedia.org/wiki/L%C3%B3gica, ou a uma situação que contradiz a intuição comum. Em termos simples, um paradoxo é o oposto do que alguém pensa ser a verdade' Fonte http://pt.wikipedia.org/wiki/Paradoxo Ou seja, pelo que vc tá colocando, Lazarus é o oposto do que alguem pensa ser a verdade [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [off-topic] Será que posso fazer isso ???
dias atrás usei vmware, instalei um máquina virtual e instalei o fb e a aplicação sem problemas. Daniel Sobrinho Laporte escreveu: Olá Luiz, pode fazer que funciona sem problemas. Eu uso dessa maneira e roda que é uma maravilha! []'s Daniel 2009/7/8 Luiz Escobar esco...@megasistema.com.br mailto:escobar%40megasistema.com.br Olá gente, to pensando aqui com meus Buttons Será que posso instalar o VB (VirtualBOX) na minha maquina e instalar o meu Windows dentro dele com o mesmo numero/serial, só pra ter um Windows limpo para fazer testes, etc e tal ou vou precisar comprar uma licença só pra isso Minha maquina suporta... tem 4GB (XP só enxerga 3GB), é um Core 2 QUAD e já roda o OpenSUSE 11.1 dentro do meu XP só pra fazer testes, tenho o Win7 (a versão que saiu pra testes) e agora queria por o XP também, ah tenho o Ubuntum 9.04 tmbm... []s Luiz Escobar - http://www.megasistema.com.br http://www.megasistema.com.br Harbour 2.0.0beta1(Rev.11414) (DbfNtx+MySQL) MiniGUI 1.6 Extended (Build 69)-2009.06.25 BCC 5.8.2 (Turbo C++ Explorer 2006) XAMPP 1.7.1 (Apache+MySQL+PHP+(Linux/Win)) FLEX 3.0 (iniciante) Delphi ( 6 PRO 7 Ent ) (DBF/NTX+MySQL) [As partes desta mensagem que não continham texto foram removidas] -- Daniel Sobrinho Laporte Analista de Sistemas e Desenvolvedor Delphi + Firebird. Colunista e Editor Técnico ClubeDelphi - DevMedia. [As partes desta mensagem que não continham texto foram removidas] -- Uberdam Cavaletti Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
Re: [delphi-br] Dll do Sintegra
é, já tinha conhecimento sobre esse site, mas queria saber se tinha outras alternativas. valeu Eduardo Silva dos Santos escreveu: Berdam, a mensagem é clara e direta. o site do desenvolvedor é esse: http://www.igara.com.br/ http://www.igara.com.br/ a dll é muito boa. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ http://www.drdsistemas.com.br/ ... 2009/7/10 Berdam berdamzi...@yahoo.com.br mailto:berdamzinho%40yahoo.com.br Galera, esou iniciando a implementação de sintegra no nosso aplicativo e gostaria de saber o seguine do pessoal que tem mais experiência no assunto. Essa dll é free?? Se é free, onde eu encontro ?? Até encontrei, mas ela possui umas msg dizendo --- Demo_sintegra32dll --- SIntegra32Dll.dll NÃO REGISTRADA... Adiquira agora mesmo a sua versão REGISTRADA! --- OK --- Alguém tem conhecimento dessa parte, se iver e ajudar eu agradeço ??? -- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 -- __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com 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] -- Uberdam Cavaletti Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
Re: [delphi-br] [OFF-TOPIC] Pequeno paradoxo com o projeto Lazarus.
Em 11/7/2009 10:57, Joel Alexandre escreveu: Por definição 'um *paradoxo* é uma declaração aparentemente verdadeira http://pt.wikipedia.org/wiki/Verdade http://pt.wikipedia.org/wiki/Verdade que leva a uma contradição http://pt.wikipedia.org/wiki/Contradi%C3%A7%C3%A3o http://pt.wikipedia.org/wiki/Contradi%C3%A7%C3%A3o lógica http://pt.wikipedia.org/wiki/L%C3%B3gica http://pt.wikipedia.org/wiki/L%C3%B3gica, ou a uma situação que contradiz a intuição comum. Em termos simples, um paradoxo é o oposto do que alguém pensa ser a verdade' Fonte http://pt.wikipedia.org/wiki/Paradoxo http://pt.wikipedia.org/wiki/Paradoxo Ou seja, pelo que vc tá colocando, Lazarus é o oposto do que alguem pensa ser a verdade Nossa, tu ainda esta mastigando isso?! Esquece um pouco o wiki e veja pelo lado filosófico, aí você vai entender qual a idéia da coisa. -- []'s, Silvio Clécio --- Linux User: #481900 Gmail, GTalk: silviop...@gmail.com E-mail, Y! Messenger: silviop...@yahoo.com.br BlogSite: http://silvioprog.blogspot.com/ BlogSpot: http://silvioclecio.blogspot.com/ VirtualDriver: http://silvioprog.4shared.com/ °oO| Seja livre, use Linux! |Oo°
Re: [delphi-br] [off-topic] Será que posso faz er isso ???
VMWare é muito bom, pelo menos dizem, mas alem de precisar de versões open-source ou freeware, o VirtualBOX, esta mais que ótimo pra mim, tudo que precisei funcionou nele... Mas a questão não é se DA PRA FAZER e sim SE PODE FAZER, sabe, por causa de problemas LEGAIS/PIRATARIA... []s Luiz Escobar From: berdam Sent: Friday, July 10, 2009 10:31 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] [off-topic] Será que posso fazer isso ??? dias atrás usei vmware, instalei um máquina virtual e instalei o fb e a aplicação sem problemas. Daniel Sobrinho Laporte escreveu: Olá Luiz, pode fazer que funciona sem problemas. Eu uso dessa maneira e roda que é uma maravilha! []'s Daniel 2009/7/8 Luiz Escobar esco...@megasistema.com.br mailto:escobar%40megasistema.com.br Olá gente, to pensando aqui com meus Buttons Será que posso instalar o VB (VirtualBOX) na minha maquina e instalar o meu Windows dentro dele com o mesmo numero/serial, só pra ter um Windows limpo para fazer testes, etc e tal ou vou precisar comprar uma licença só pra isso Minha maquina suporta... tem 4GB (XP só enxerga 3GB), é um Core 2 QUAD e já roda o OpenSUSE 11.1 dentro do meu XP só pra fazer testes, tenho o Win7 (a versão que saiu pra testes) e agora queria por o XP também, ah tenho o Ubuntum 9.04 tmbm... []s Luiz Escobar - http://www.megasistema.com.br http://www.megasistema.com.br Harbour 2.0.0beta1(Rev.11414) (DbfNtx+MySQL) MiniGUI 1.6 Extended (Build 69)-2009.06.25 BCC 5.8.2 (Turbo C++ Explorer 2006) XAMPP 1.7.1 (Apache+MySQL+PHP+(Linux/Win)) FLEX 3.0 (iniciante) Delphi ( 6 PRO 7 Ent ) (DBF/NTX+MySQL) [As partes desta mensagem que não continham texto foram removidas] -- Daniel Sobrinho Laporte Analista de Sistemas e Desenvolvedor Delphi + Firebird. Colunista e Editor Técnico ClubeDelphi - DevMedia. [As partes desta mensagem que não continham texto foram removidas] -- Uberdam Cavaletti Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [off-topic] Será que posso faz er isso ???
Luiz, um bom resumo da ópera para o seu caso seria saber como é licenciado o seu SO, se por instalação, se por processador ou se por algum outro modelo de licenciamento que me fuja agora. A grande questão é que não existia o fenômeno da virtualização, com tanta força como vemos hoje, na época do lançamento do Windows2000 ou do Windows XP, portanto não acho que o termo de licença de uso seja tão específico ou esteja tão explícito. Iria até mais longe e diria que não há pirataria nesses dois casos específicos (Win2000 e WinXP) ao virtualizar os sistemas para testes de sistema, partindo do princípio obvio que vc possui a licença de uso regularizada para o sistema. Você está instalando num sistema que só existe enquanto o sistema principal está em funcionamento. Tudo funciona em cima de um único (e mesmo, apesar de emulado) hardware. Agora em se tratando de sistemas para servidores, os modelos de licenciamento mudam e pode ser que exista algo específico para a sua situação. Se possível, explique um pouco mais a sua necessidade: você quer fazer isso num cliente ou é apenas para seu uso próprio? Se for para um cliente eu preferiria extrapolar e solicitar do cliente a compra de uma licença para ficar na máquina emulada, apenas por precaução. Mas para meu ambiente de testes, durante o desenvolvimento, reutilizaria a chave de licença do meu Windows no equipamento emulado. Mas como também já disseram, o melhor mesmo é perguntar pra Microsoft. É a melhor saída. Desculpe se só confundi e não ajudei, mas acho interessante manter essa questão viva até ter uma resposta mais clara. []'s 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 sáb, 11/7/09, Luiz Escobar esco...@megasistema.com.br escreveu: VMWare é muito bom, pelo menos dizem, mas alem de precisar de versões open-source ou freeware, o VirtualBOX, esta mais que ótimo pra mim, tudo que precisei funcionou nele... Mas a questão não é se DA PRA FAZER e sim SE PODE FAZER, sabe, por causa de problemas LEGAIS/PIRATARIA. .. []s Luiz Escobar From: berdam Sent: Friday, July 10, 2009 10:31 PM To: delphi...@yahoogrup os.com.br Subject: Re: [delphi-br] [off-topic] Será que posso fazer isso ??? dias atrás usei vmware, instalei um máquina virtual e instalei o fb e a aplicação sem problemas. Daniel Sobrinho Laporte escreveu: Olá Luiz, pode fazer que funciona sem problemas. Eu uso dessa maneira e roda que é uma maravilha! []'s Daniel 2009/7/8 Luiz Escobar esco...@megasistema .com.br mailto:escobar% 40megasistema. com.br Olá gente, to pensando aqui com meus Buttons Será que posso instalar o VB (VirtualBOX) na minha maquina e instalar o meu Windows dentro dele com o mesmo numero/serial, só pra ter um Windows limpo para fazer testes, etc e tal ou vou precisar comprar uma licença só pra isso Minha maquina suporta... tem 4GB (XP só enxerga 3GB), é um Core 2 QUAD e já roda o OpenSUSE 11.1 dentro do meu XP só pra fazer testes, tenho o Win7 (a versão que saiu pra testes) e agora queria por o XP também, ah tenho o Ubuntum 9.04 tmbm... []s Luiz Escobar - http://www.megasist ema.com.br http://www.megasist ema.com.br = = = = Harbour 2.0.0beta1(Rev. 11414) (DbfNtx+MySQL) MiniGUI 1.6 Extended (Build 69)-2009.06. 25 BCC 5.8.2 (Turbo C++ Explorer 2006) - - - - XAMPP 1.7.1 (Apache+MySQL+ PHP+(Linux/ Win)) FLEX 3.0 (iniciante) - - - - Delphi ( 6 PRO 7 Ent ) (DBF/NTX+MySQL) = = = = [As partes desta mensagem que não continham texto foram removidas] -- Daniel Sobrinho Laporte Analista de Sistemas e Desenvolvedor Delphi + Firebird. Colunista e Editor Técnico ClubeDelphi - DevMedia. [As partes desta mensagem que não continham texto foram removidas] -- - - - - Uberdam Cavaletti Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. http://buscatextual .cnpq.br/ buscatextual/ visualizacv. jsp?id=K4251629Y 0 - - - - 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]
