Re: [delphi-br] Similaridade entre duas Strings
Guionardo, tu tá de sacanagem, né.. Quando descansar bem, completa a explanação com um componente aqui prá nois, Matou a cobra, agora mostra o componente (se ainda houver fosfato). Parabéns e entenda a brincadeira como elogio Abraço Roberto (RJ) - Original Message - From: Guionardo Furlan To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 07, 2008 10:13 PM Subject: Re: [delphi-br] Similaridade entre duas Strings um bom exercício, vou dar meu palpite: 1. transformar os textos para a mesma caixa (alta ou baixa) 2. Verificar se os textos são iguais: se forem, similaridade 100% e termina o processo. 3. para cada caracter do texto origem verificar se ele existe no texto destino, e em caso positivo, incrementar 1 no contador de similaridade. 4. o quociente contador / número de caracteres no destino indica a similaridade sem considerar a ordem dos caracteres. Por exemplo, pedto e pedro são similares 4 caracteres em 5, indicando 80% de similaridade sem verificação de ordem. 5. considerando a ordem, remove-se os caracteres da origem que não existem no destino e os caracteres do destino que não existem na origem, igualando os dois textos 6. agora, com uma função que gere uma lista de palavras formadas pelos caracteres da origem, da seguinte forma: origem ajustada: peto, com os caracteres não coincidentes removidos, a lista gerada seria a seguinte p, e, t, o, pe, et, to, pet, eto, peto: 4 caracteres = 10 palavras map = m, a, p, ma, ap, map: 3 caracteres = 6 palavras jorge = j, o, r, g, e, jo, or, rg, ge, jor, org, rge, jorg, orge, jorge: 5 caracteres = 15 palavras O número de palavras dentro da lista é definido pela fórmula 0,5j^2+0,5j, onde j é o número de caracteres do texto origem ajustado. Cada palavra da lista encontrada dentro da palavra destino ajustada incrementa uma unidade no contador de similaridade de ordem. A similaridade de ordem é o quociente do contador sobre o número de palavras da lista. No exemplo acima, temos a mesma ordem dos caracteres e portanto, 100% de similaridade por ordem. Multiplicando os dois quocientes, teríamos um fator de similaridade entre as palavras, neste caso, 80% x 100% = 80% com outro exemplo, poderíamos ter: JOAO e JONAS As letras J, O, A e O existem todas dentro de JONAS, portanto temos 100% até aqui Fazendo a intersecção, temos os dois textos ajustados: JOAO e JOA com a lista de palavras temos J (1), O (1), A (1), O (1), JO (1), OA (1), AO (0), JOA (1), OAO (0), JOAO (0), somando 7 coincidências em 10 possibilidades, resultando em 70%. Multiplicando os dois quocientes, temos 70% de similaridade. Agora é só codificar pra OP e ver se a coisa serve. PS: fiz isso depois da janta, e meio cansado. Provavelmente deve haver um algoritmo mais elaborado, usando redes neurais, ou até mesmo uma função do delphi que resolve a parada. Mas é legal pra gente queimar um pouco de fosfato fora dos problemas comuns. 2008/10/7 Osmar Souza [EMAIL PROTECTED]: Olá Pessoal, Alguem já precisou comparar a similaridade entre duas strings e supor a porcetagem de similaridade entre elas? Exemplo: Em uma caixa de texto a pessoa digitou pedto. O sistema analisou e pergunta se o que ele esta procurando não é pedro. Como no Google. Estou precisando de um algoritimo desses para tentar diminuir o número de erros no cadastro. Como os requisitos do sistema diz que o nome é o mais importante e que o resto não é necessário, vemos uma mesma pessoa jurídica, por exemplo, cadastradas de 10 formas diferentes. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.6/1712 - Release Date: 7/10/2008 09:41 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OT - Vende-se livros técnicos usados
Boa tarde. Estou vendendo os meus livros sobre: Assembly, Delphi, SQL, Clipper, Hardware, Rede, Fox Pro, etc http://xbasesuporte .freeforums.org/viewtopic.php?t=285 Demais dúvidas favor entrar em contato direto. Obrigado. Virtualmente, Éric Magaldi Analista programador de sistemas http://xbasesuporte.freeforums.org http://br.groups.yahoo.com/group/mwvw
Re: [delphi-br] [DU]-Bibliotecas de Terceiros - Quais as mais indicadas ?
Colega... Não me arrependo de ter pago por elas Raize - www.raize.com Infopower - www.woll2woll.com DevExpress - www.devexpress.com Essas me resolvem e ainda + Fabio Ferreira escreveu: Pessoal Estou a procura de bibliotecas e componentes de terceiros para incrementar os meus programas. vcs que tem mais experiências, quais as que vcs indicariam? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [Delphi + PHP] Re: PROGRAMA DELPHI + FIREBIRD não funciona
Estou usando o DBEXPRESS, no Delphi 2006 win32 e SO Windows XP SP 3. O mesmo programa funciona numa maquina. Qdo levo o programa para a outra maquina, não funciona. Na maquna esta isntalado o Client do FireBird. Clico no icone do programa, e simplesmente ele não entra e nem da mensagem de erro. Abs 2008/10/8 Fabiano SJC [EMAIL PROTECTED] Amigo, Não entendi exatamente o que vc gostaria de fazer, explique melhor ok, descreva o que exatamente esta usando!, qual componente de acesso ao banco etc... Aqui não é o local mais apropriado para tais perguntas por ser um grupo do Delphi 4 PHP!, mas, tudo bem por mim!. Caso queira somente rodar seu programa em outra maquina, verifique se o firebird esta instalado, se vc usou o DBE para acesso ao banco (recomendo nao usar, obsoleto) verifique se vc instalou o BDE e se a alias no mesmo esta criada; se o seu sistema foi feito para rodar em apenas uma maquina usando banco local, vc pode ainda ignorar as etapas acima e recorrer ao Firebird Embarcado (ai sim seria apenas copiar as dll e o banco para pasta, mas, deve ser a do firebird embarcado!) um abraço, Fabiano Conrado SJCampos (PHP, Delphi) On 4 out, 14:25, Fabio Ferreira [EMAIL PROTECTED] wrote: Boa Tarde Fiz um programa em Delphi 2006, usando o Banco de Dados FIREBIRD. Coloquei todas as DLLs necessárias no diretório principal de onde vou executar o programa. Quando eu clico no Programa, ele não abre e não da nenhuma mensagem de erro. Na minha maquina , de desenvolvimento, funciona normalmente. O que fazer? Abs --~--~-~--~~~---~--~~ Você recebeu esta mensagem do Grupo Delphi + PHP. Para postar, envie um e-mail para [EMAIL PROTECTED] Para cancelar a sua inscrição, envie um e-mail para [EMAIL PROTECTED] Visite este grupo em http://groups.google.com.br/group/delphimaisphp?hl=pt-BR -~--~~~~--~~--~--~--- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OT - Analista programador de sistemas
Ofereço-me para análises, desenvolvimentos, e manutenções em sistemas. Disponibilidade imediata e para viagens. Projetos por tempo determinado ou indeterminado (preferência). Conhecimentos: (noções, básico, intermediário ou expert) Programação estruturada, orientada a objetos e a eventos. xHarbour, FlagShip, Clipper, Visual Fox Pro, Delphi, GUIs (FiveWin, HwGui, MiniGui, Xailer, VxH, xHGtk, etc), SQL. MS-DOS, Windows, Linux, Corel Draw, Office, Hardware, Rede, CoreBuilder. Mediator, UltiROUTE, CA-Visual Objects, C+Assembly+Clipper, HTML, Eletrônica, etc. Autoditada, facilidade com tecnologias, se necessário, disposto a aprender novas linguagens/ferramentas (Java, PHP, C#) e/ou melhorar conhecimentos em Delphi, Banco Dados. Padrão elevado nas codificações: http://xbasesuporte.freeforums.org/viewtopic.php?t=166 mais detalhes, contato e download meu CV (PDF/DOC) com pretensão salarial: http://xbasesuporte.freeforums.org/viewtopic.php?t=167 Virtualmente, Éric Magaldi Analista programador de sistemas Osasco - São Paulo - Brasil http://xbasesuporte.freeforums.org http://br.groups.yahoo.com/group/mwvw
[delphi-br] Zebedee melhora firebird web?
Estou olhando alguns artigos sobre Zebedee e fiquei meio em duvida e por isso resolvi perguntar direto aos amigos da lista minha aplicação usa firebird na web e é um tanto lenta O Zebedee pode ajudar melhorar a performace do firebird na web?? Grata pela atenção dos amigos. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: [Delphi + PHP] Re: PROGRAMA D ELPHI + FIREBIRD não funciona
Vc está levando os arquivos de configuração do dbexpress? []s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabio Ferreira Enviada em: quarta-feira, 8 de outubro de 2008 08:37 Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br; Delphi-Brasil Assunto: [delphi-br] Re: [Delphi + PHP] Re: PROGRAMA DELPHI + FIREBIRD não funciona Estou usando o DBEXPRESS, no Delphi 2006 win32 e SO Windows XP SP 3. O mesmo programa funciona numa maquina. Qdo levo o programa para a outra maquina, não funciona. Na maquna esta isntalado o Client do FireBird. Clico no icone do programa, e simplesmente ele não entra e nem da mensagem de erro. Abs 2008/10/8 Fabiano SJC [EMAIL PROTECTED] mailto:fabianoconrado%40gmail.com Amigo, Não entendi exatamente o que vc gostaria de fazer, explique melhor ok, descreva o que exatamente esta usando!, qual componente de acesso ao banco etc... Aqui não é o local mais apropriado para tais perguntas por ser um grupo do Delphi 4 PHP!, mas, tudo bem por mim!. Caso queira somente rodar seu programa em outra maquina, verifique se o firebird esta instalado, se vc usou o DBE para acesso ao banco (recomendo nao usar, obsoleto) verifique se vc instalou o BDE e se a alias no mesmo esta criada; se o seu sistema foi feito para rodar em apenas uma maquina usando banco local, vc pode ainda ignorar as etapas acima e recorrer ao Firebird Embarcado (ai sim seria apenas copiar as dll e o banco para pasta, mas, deve ser a do firebird embarcado!) um abraço, Fabiano Conrado SJCampos (PHP, Delphi) On 4 out, 14:25, Fabio Ferreira [EMAIL PROTECTED] mailto:fabio.aracajusi...%40gmail.com wrote: Boa Tarde Fiz um programa em Delphi 2006, usando o Banco de Dados FIREBIRD. Coloquei todas as DLLs necessárias no diretório principal de onde vou executar o programa. Quando eu clico no Programa, ele não abre e não da nenhuma mensagem de erro. Na minha maquina , de desenvolvimento, funciona normalmente. O que fazer? Abs --~--~-~--~~~---~--~~ Você recebeu esta mensagem do Grupo Delphi + PHP. Para postar, envie um e-mail para [EMAIL PROTECTED] mailto:delphimaisphp%40googlegroups.com Para cancelar a sua inscrição, envie um e-mail para [EMAIL PROTECTED] mailto:delphimaisphp-unsubscribe%40googlegroups.com Visite este grupo em http://groups.google.com.br/group/delphimaisphp?hl=pt-BR -~--~~~~--~~--~--~--- [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] tecla identificar ? resolvido
Estou desenvolvendo um componente assim Wesley From: BandaLemuel Sent: Tuesday, October 07, 2008 10:17 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] tecla identificar ? resolvido Que eu saiba não... eu utilizo o JvValidateEdit do pacote JEDI... ele tem como vc colocar qual o tipo de valor vc quer... se é float, integer custom... etcShow de bola... Wesley From: Fabio Ferreira Sent: Tuesday, October 07, 2008 9:31 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] tecla identificar ? resolvido Aproveitando a carona do tópico, como faço para filtrar a digitação deste caracteres númericos e um campo Edit?Sem ser através destas funções existe alguma outra propriedade que possa ser propracamada sem ser o CharCase (btNormal, btUpperCase, btLowerCase) ? []s 2008/10/7 alessandra porto [EMAIL PROTECTED] valeu --- Em ter, 7/10/08, BandaLemuel [EMAIL PROTECTED]bandalemuel%40yahoo.com.br escreveu: De: BandaLemuel [EMAIL PROTECTED] bandalemuel%40yahoo.com.br Assunto: Re: [delphi-br] tecla identificar ? Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 7 de Outubro de 2008, 8:56 if not ( key in ['0'..'9',#8, #13,',',' .' ) then Ai ele aceita ponto e virgula Wesley From: alessandra porto Sent: Tuesday, October 07, 2008 8:26 AM To: lista-delphi@ yahoogrupos. com.br ; [EMAIL PROTECTED] os.com.br Subject: [delphi-br] tecla identificar ? fiz assim mas tentei colocar (ponto) e a (virgula) #190 ,#188 mas da erro não identifica certo como posso fazer isso de forma a aceitar somente numeros e ponto agradeço a ajuda procedure TForm1.Edit2KeyPres s(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8, #13]) then begin showmessage( ''+DM.Usuario+ ''+ #13 + #13 +'Este Campo Aceita Somente Números'); key :=#0; end; end; Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3499 (20081007) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3499 (20081007) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3499 (20081007) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ? resolvido
Lista Estou desenvolvendo um componente herdado do TEdit..criei uma propriedade que é tipo de entreda .. (Email, texto, Numeros ) etc... como faço para que quando eu alterar o tipo no Object Inspector.. ele configure as propriedades que eu quero por exemplo... quando escolher o tipo UF .. ele alterar o maxLength para 2 e deixar para digitar tudo em maiusculo... isso sem ser em tempo de execução... Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ? resolvido
se vc tiver uma property assim: property TipoEntrada: string write SetTipoEntrada read GetTipoEntrada; na procedure SetTipoEntrada, vc configura o que quizer, dê uma pesquisada sobre isso. BandaLemuel escreveu: Lista Estou desenvolvendo um componente herdado do TEdit..criei uma propriedade que é tipo de entreda .. (Email, texto, Numeros ) etc... como faço para que quando eu alterar o tipo no Object Inspector.. ele configure as propriedades que eu quero por exemplo... quando escolher o tipo UF .. ele alterar o maxLength para 2 e deixar para digitar tudo em maiusculo... isso sem ser em tempo de execução... Wesley [As partes desta mensagem que não continham texto foram removidas] -- Vinicius dos Santos http://www.msisolucoes.com.br
Re: [delphi-br] Re: [Delphi + PHP] Re: PROGRAMA DELPHI + FIREBIRD não funciona
Fábio, Coloque na uses do Projeto a biblioteca MidasLib. Fabio Ferreira escreveu: Estou usando o DBEXPRESS, no Delphi 2006 win32 e SO Windows XP SP 3. O mesmo programa funciona numa maquina. Qdo levo o programa para a outra maquina, não funciona. Na maquna esta isntalado o Client do FireBird. Clico no icone do programa, e simplesmente ele não entra e nem da mensagem de erro. Abs 2008/10/8 Fabiano SJC [EMAIL PROTECTED] mailto:fabianoconrado%40gmail.com Amigo, Não entendi exatamente o que vc gostaria de fazer, explique melhor ok, descreva o que exatamente esta usando!, qual componente de acesso ao banco etc... Aqui não é o local mais apropriado para tais perguntas por ser um grupo do Delphi 4 PHP!, mas, tudo bem por mim!. Caso queira somente rodar seu programa em outra maquina, verifique se o firebird esta instalado, se vc usou o DBE para acesso ao banco (recomendo nao usar, obsoleto) verifique se vc instalou o BDE e se a alias no mesmo esta criada; se o seu sistema foi feito para rodar em apenas uma maquina usando banco local, vc pode ainda ignorar as etapas acima e recorrer ao Firebird Embarcado (ai sim seria apenas copiar as dll e o banco para pasta, mas, deve ser a do firebird embarcado!) um abraço, Fabiano Conrado SJCampos (PHP, Delphi) On 4 out, 14:25, Fabio Ferreira [EMAIL PROTECTED] mailto:fabio.aracajusi...%40gmail.com wrote: Boa Tarde Fiz um programa em Delphi 2006, usando o Banco de Dados FIREBIRD. Coloquei todas as DLLs necessárias no diretório principal de onde vou executar o programa. Quando eu clico no Programa, ele não abre e não da nenhuma mensagem de erro. Na minha maquina , de desenvolvimento, funciona normalmente. O que fazer? Abs --~--~-~--~~~---~--~~ Você recebeu esta mensagem do Grupo Delphi + PHP. Para postar, envie um e-mail para [EMAIL PROTECTED] mailto:delphimaisphp%40googlegroups.com Para cancelar a sua inscrição, envie um e-mail para [EMAIL PROTECTED] mailto:delphimaisphp-unsubscribe%40googlegroups.com Visite este grupo em http://groups.google.com.br/group/delphimaisphp?hl=pt-BR http://groups.google.com.br/group/delphimaisphp?hl=pt-BR -~--~~~~--~~--~--~--- [As partes desta mensagem que não continham texto foram removidas] -- []s, Odail Della Niesi Junior São Pedro-SP
Re: [delphi-br] tecla identificar ? resolvido
Vinicius.. Eu não entendi eu declarei assim property TipoEntrada : TTipoTexto read FTipoTexto write FTipoTexto default ttTodos ; Como deveria ficar.. assim ??? property TipoEntrada : TTipoTexto read GetTipoTexto write SetTipoTexto default ttTodos ; E devo cria uma procedure GetTipoTexto e SetTipoTexto... o componente entende que quando eu alterar ele terá q executá-las ??? Wesley From: Vinicius Santos - MSI Sent: Wednesday, October 08, 2008 10:55 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] tecla identificar ? resolvido se vc tiver uma property assim: property TipoEntrada: string write SetTipoEntrada read GetTipoEntrada; na procedure SetTipoEntrada, vc configura o que quizer, dê uma pesquisada sobre isso. BandaLemuel escreveu: Lista Estou desenvolvendo um componente herdado do TEdit..criei uma propriedade que é tipo de entreda .. (Email, texto, Numeros ) etc... como faço para que quando eu alterar o tipo no Object Inspector.. ele configure as propriedades que eu quero por exemplo... quando escolher o tipo UF .. ele alterar o maxLength para 2 e deixar para digitar tudo em maiusculo... isso sem ser em tempo de execução... Wesley [As partes desta mensagem que não continham texto foram removidas] -- Vinicius dos Santos http://www.msisolucoes.com.br __ Information from ESET NOD32 Antivirus, version of virus signature database 3503 (20081008) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Similaridade entre duas Strings
How to determine if a string matches a pattern
(http://delphi.about.com/cs/adptips2003/a/bltip0203_3.htm?nl=1)
{
Usage:
if IsLike('About Delphi', 'Abo?? Delp*') then
ShowMessage('A match!') ;
}
uses SysUtils;
function IsLike(AString, Pattern: string): boolean;
var
j, n, n1, n2: integer ;
p1, p2: pchar ;
label
match, nomatch;
begin
AString := UpperCase(AString) ;
Pattern := UpperCase(Pattern) ;
n1 := Length(AString) ;
n2 := Length(Pattern) ;
if n1 n2 then n := n1 else n := n2;
p1 := pchar(AString) ;
p2 := pchar(Pattern) ;
for j := 1 to n do begin
if p2^ = '*' then goto match;
if (p2^ '?') and ( p2^ p1^ ) then goto nomatch;
inc(p1) ; inc(p2) ;
end;
if n1 n2 then begin
nomatch:
Result := False;
exit;
end else if n1 n2 then begin
for j := n1 + 1 to n2 do begin
if not ( p2^ in ['*','?'] ) then goto nomatch ;
inc(p2) ;
end;
end;
match:
Result := True
end;
~
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 7 Oct 2008 23:40:49 -0300
Subject: Re: [delphi-br] Similaridade entre duas Strings
Caramba que se faz como hobby ? resolve problemas quanticos
heheheheh...
[]s
Luiz Escobar
- Original Message -
From: Guionardo Furlan
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 07, 2008 10:13 PM
Subject: Re: [delphi-br] Similaridade entre duas Strings
PS: fiz isso depois da janta, e meio cansado. Provavelmente deve haver
um algoritmo mais elaborado, usando redes neurais, ou até mesmo uma
função do delphi que resolve a parada. Mas é legal pra gente queimar
um pouco de fosfato fora dos problemas comuns.
_
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
Res: [delphi-br] tecla identificar ? resolvido
Isso mesmo, crie procedures, uma para read (Get) e outa para write (Set). Daí
quanto a property for lida executará a Set e quanto for gravada executará a Set.
Inclusive se você usar o complete composite (CTRL+SHIFT+C) ao escrever uma
property ele irá sugerir já com essa estrutura (sintaxe).
Exemplo, neste caso uma procedure e um field, mas poderia ser uma procedure e
uma função:
TMinhaClasse = class
FTeste: String;
procedure SetTeste(const Value: String);
{ Private declarations }
public
{ Public declarations }
property Teste : String read FTeste write SetTeste;
end;
implementation
procedure TMinhaClasse.FormCreate(Sender: TObject);
begin
end;
procedure TMinhaClasse.SetTeste(const Value: String);
begin
FTeste := Value;
end;
Luciano Calenzani Simões
- Mensagem original
De: BandaLemuel [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 8 de Outubro de 2008 11:38:48
Assunto: Re: [delphi-br] tecla identificar ? resolvido
Vinicius.. Eu não entendi eu declarei assim
property TipoEntrada : TTipoTexto read FTipoTexto write FTipoTexto default
ttTodos ;
Como deveria ficar.. assim ???
property TipoEntrada : TTipoTexto read GetTipoTexto write SetTipoTexto default
ttTodos ;
E devo cria uma procedure GetTipoTexto e SetTipoTexto. .. o componente entende
que quando eu alterar ele terá q executá-las ???
Wesley
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ? resolvido
Obrigado a todos deu certo... uam duvida que não tem nada haver... eu
uso esta função para capturar a URL do navegador IE ele não achao IE7
alguiem sabe como fazer.. ???
function CapturaUrls ( Handle: THandle; List: TStringList ): Boolean; stdcall;
var
hWndIE, hWndIEChild : HWND;
Buffer : array[0..255] of Char;
begin
SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
{ captura o Handle da Janela }
hWndIE:=FindWindow('IEFRAME', Buffer);
{ Se Achou }
if hWndIE 0 then
begin
hWndIEChild:=FindWindowEx(hWndIE, 0, 'WorkerW', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil);
if hWndIEChild 0 then
begin
//Pega a URL e trabalha com o valor
SendMessage(hWndIEChild, WM_GETTEXT, 255,
integer(@Buffer));
List.Add(Buffer);
end;
end;
end;
end
else
Form1.mmo1.Text := 'Não achou';
Application.ProcessMessages;
Result:=True;
end;
From: Luciano Calenzani Simões
Sent: Wednesday, October 08, 2008 11:50 AM
To: delphi-br@yahoogrupos.com.br
Subject: Res: [delphi-br] tecla identificar ? resolvido
Isso mesmo, crie procedures, uma para read (Get) e outa para write (Set). Daí
quanto a property for lida executará a Set e quanto for gravada executará a Set.
Inclusive se você usar o complete composite (CTRL+SHIFT+C) ao escrever uma
property ele irá sugerir já com essa estrutura (sintaxe).
Exemplo, neste caso uma procedure e um field, mas poderia ser uma procedure e
uma função:
TMinhaClasse = class
FTeste: String;
procedure SetTeste(const Value: String);
{ Private declarations }
public
{ Public declarations }
property Teste : String read FTeste write SetTeste;
end;
implementation
procedure TMinhaClasse.FormCreate(Sender: TObject);
begin
end;
procedure TMinhaClasse.SetTeste(const Value: String);
begin
FTeste := Value;
end;
Luciano Calenzani Simões
- Mensagem original
De: BandaLemuel [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 8 de Outubro de 2008 11:38:48
Assunto: Re: [delphi-br] tecla identificar ? resolvido
Vinicius.. Eu não entendi eu declarei assim
property TipoEntrada : TTipoTexto read FTipoTexto write FTipoTexto default
ttTodos ;
Como deveria ficar.. assim ???
property TipoEntrada : TTipoTexto read GetTipoTexto write SetTipoTexto default
ttTodos ;
E devo cria uma procedure GetTipoTexto e SetTipoTexto. .. o componente entende
que quando eu alterar ele terá q executá-las ???
Wesley
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3503 (20081008) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] tecla identificar ? resolvido
Se mesmo assim vc não entender, dê uma olhada aqui, é um bom ponto de
partida:
http://www.jatai.cefetgo.br/~gustavo/apostilas/poo/delphi/Componentes/ccu08.htm
Boa Leitura !
Abs.
Luciano Calenzani Simões escreveu:
Isso mesmo, crie procedures, uma para read (Get) e outa para write
(Set). Daí quanto a property for lida executará a Set e quanto for
gravada executará a Set.
Inclusive se você usar o complete composite (CTRL+SHIFT+C) ao escrever
uma property ele irá sugerir já com essa estrutura (sintaxe).
Exemplo, neste caso uma procedure e um field, mas poderia ser uma
procedure e uma função:
TMinhaClasse = class
FTeste: String;
procedure SetTeste(const Value: String);
{ Private declarations }
public
{ Public declarations }
property Teste : String read FTeste write SetTeste;
end;
implementation
procedure TMinhaClasse.FormCreate(Sender: TObject);
begin
end;
procedure TMinhaClasse.SetTeste(const Value: String);
begin
FTeste := Value;
end;
Luciano Calenzani Simões
- Mensagem original
De: BandaLemuel [EMAIL PROTECTED]
mailto:bandalemuel%40yahoo.com.br
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Quarta-feira, 8 de Outubro de 2008 11:38:48
Assunto: Re: [delphi-br] tecla identificar ? resolvido
Vinicius.. Eu não entendi eu declarei assim
property TipoEntrada : TTipoTexto read FTipoTexto write FTipoTexto
default ttTodos ;
Como deveria ficar.. assim ???
property TipoEntrada : TTipoTexto read GetTipoTexto write SetTipoTexto
default ttTodos ;
E devo cria uma procedure GetTipoTexto e SetTipoTexto. .. o componente
entende que quando eu alterar ele terá q executá-las ???
Wesley
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
sua cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
--
Vinicius dos Santos
http://www.msisolucoes.com.br
[delphi-br] [DU]- Duvidas em Fortes Report - Colocação de Mascaras
Pessoal ALguém sabe me dizer como é que eu coloco mascaras de valores monetárias no Fortes Reports? Tenho um campo onde irei exibir o valor, e no DIsplay FOrmat esteou colocando ###.###,## mas não esta funcionando. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Verificação de aplicativo em execução...
Pessoal, primeiramente é um enorme prazer estar aqui junto de vcs, espero poder ajudar como minino de conhecimento que tenho hoje porem espero um dia poder ajudar muito já com a certeza de que aprenderei muito aqui no meio de vocês Já começando com uma dúvida, estou desenvolvendo um sistema que utiliza Socket Connection, então há a necessidade de se ter o Borland Socket Server em execução no servidor para o gerenciamento, e eu gostaria de saber como posso em meu Servidor de Aplicação saber se o BSS (Borland Socket Server) está ou não em execução, caso o mesmo não esteja o Servidor irá exeuta-lo e logo após sim abrir a aplicação, sei que tem algo como FindWindow porem os exemplos que se tem hoje é somente com word, excel e proprio delphi, gostaria de saber afinal acho que essa seria minha resposta, como faço pra saber essa informação do aplicativo: Delphi = 'TAppBuilder', Word = 'OpusApp', Excell = 'XLMAIN', acredito que eu sabendo como descobrir essa informação posso associar qualquer aplicativo. Agradeço desde já. Abraços...
Re: [delphi-br] Aprender IntraWeb - Duvidas sobre Hospedagens.
Eu tb estou com dificuldades e para priorar o meu inglês é bem basicão. Estou com algumas duvidas pontuais: 1o) Qdo desenvolvemos uma aplicação para Web, depois de pronta mandamos o nosso aplicativo Win32 para a Provedor onde fica hospedado as paginas em HTML? 2008/10/7 fabio giro [EMAIL PROTECTED] Bruno, conversei com você sobre este assunto ontem (06/10 , assunto : Exemplo). --- Em ter, 7/10/08, Bruno Lichot [EMAIL PROTECTED]bruno.lichot%40borland.com escreveu: De: Bruno Lichot [EMAIL PROTECTED] bruno.lichot%40borland.com Assunto: RE: [delphi-br] Aprender IntraWeb Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 7 de Outubro de 2008, 14:15 Qual versão do Delphi e qual exemplo você esta utilizando. Os exemplos publicados são 100% funcionais. Abra o exemplo features do Intraweb que contem praticamente todos os recursos e suas aplicabilidades. Muitas informações e informações importantes estão aqui: http://www.atozed. com/IntraWeb/ index.en. aspx Manuais: http://www.atozed. com/IntraWeb/ Documentation/ Index.EN. aspx Abs BL From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On Behalf Of fabio_giro Sent: terça-feira, 7 de outubro de 2008 14:05 To: [EMAIL PROTECTED] os.com.br Subject: [delphi-br] Aprender IntraWeb Alguém poderia me indicar om livro/apostila para desenvolvimento de sistemas IntraWeb em Delphi 7? Já baixei o exemplo do Bruno, mas quando vou abrí-lo dá erro. Obrigado. [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [DU] - Duvidas no Uso de Fortes Report - Mascaras de campos monetários
Boa Tarde Como é q eu faço para usar mascaras de edição para campos de valores. estou tentando sem sucesso colocar num RLDTEXT1, Display Format (###,##). []s [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [DU]- Duvidas em Fortes Report - Colocação de Mascaras
#,##0.00 Rodinei Amorim Programador Delphi [EMAIL PROTECTED] (11) 8208-9503 - (11) 2024-2723 From: Fabio Ferreira Sent: Wednesday, October 08, 2008 10:03 AM To: delphi-br@yahoogrupos.com.br ; Delphi-Brasil Subject: [delphi-br] [DU]- Duvidas em Fortes Report - Colocação de Mascaras Pessoal ALguém sabe me dizer como é que eu coloco mascaras de valores monetárias no Fortes Reports? Tenho um campo onde irei exibir o valor, e no DIsplay FOrmat esteou colocando ###.###,## mas não esta funcionando. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [Delphi + PHP] Re: PROGRAMA DELPHI + FIREBIRD não funciona
Estou colocando as DLLs (midas.dll, Fbclient.dll, dbexpint.dll) no diretório da aplicação. []s 2008/10/8 Fabio Ferreira [EMAIL PROTECTED] Mas vou colocar Server, nas estações Clientes? Não entendi!! 2008/10/8 Fabiano Conrado [EMAIL PROTECTED] Instala o firebird de novo com opção server ok, registre o banco, é necessário iniciar o serviço do firebird...copie a dll do dbexpress para a pasta do seu programa. (dbexpint.dll, midas.dll) qq coisa tamo ai 2008/10/8 Fabio Ferreira [EMAIL PROTECTED] Estou usando o DBEXPRESS, no Delphi 2006 win32 e SO Windows XP SP 3. O mesmo programa funciona numa maquina. Qdo levo o programa para a outra maquina, não funciona. Na maquna esta isntalado o Client do FireBird. Clico no icone do programa, e simplesmente ele não entra e nem da mensagem de erro. Abs 2008/10/8 Fabiano SJC [EMAIL PROTECTED] Amigo, Não entendi exatamente o que vc gostaria de fazer, explique melhor ok, descreva o que exatamente esta usando!, qual componente de acesso ao banco etc... Aqui não é o local mais apropriado para tais perguntas por ser um grupo do Delphi 4 PHP!, mas, tudo bem por mim!. Caso queira somente rodar seu programa em outra maquina, verifique se o firebird esta instalado, se vc usou o DBE para acesso ao banco (recomendo nao usar, obsoleto) verifique se vc instalou o BDE e se a alias no mesmo esta criada; se o seu sistema foi feito para rodar em apenas uma maquina usando banco local, vc pode ainda ignorar as etapas acima e recorrer ao Firebird Embarcado (ai sim seria apenas copiar as dll e o banco para pasta, mas, deve ser a do firebird embarcado!) um abraço, Fabiano Conrado SJCampos (PHP, Delphi) On 4 out, 14:25, Fabio Ferreira [EMAIL PROTECTED] wrote: Boa Tarde Fiz um programa em Delphi 2006, usando o Banco de Dados FIREBIRD. Coloquei todas as DLLs necessárias no diretório principal de onde vou executar o programa. Quando eu clico no Programa, ele não abre e não da nenhuma mensagem de erro. Na minha maquina , de desenvolvimento, funciona normalmente. O que fazer? Abs --~--~-~--~~~---~--~~ Você recebeu esta mensagem do Grupo Delphi + PHP. Para postar, envie um e-mail para [EMAIL PROTECTED] Para cancelar a sua inscrição, envie um e-mail para [EMAIL PROTECTED] Visite este grupo em http://groups.google.com.br/group/delphimaisphp?hl=pt-BR -~--~~~~--~~--~--~--- -- _ °v° Fabiano Conrado /(_)\ Linux User #379806. ^ ^ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aprender IntraWeb - Duvidas sobre Hospedagens.
1o) Qdo desenvolvemos uma aplicação para Web, depois de pronta mandamos o nosso aplicativo Win32 para a Provedor onde fica hospedado as paginas em HTML? Se vc estiver falando dos Templates, eles ficam na pasta de mesmo nome \Templates, dentro do diretório virtual de seu aplicativo. E, se vc precisar de hospedagem para seu aplicativo Intraweb, entre em contato comigo (www.devhost.com.br) Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] tecla identificar ? resolvido
quando eu alterar ele terá q executá-las ??? Wesley Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3503 (20081008) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3503 (20081008) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: [Delphi + PHP] Re: PROGRAMA DELPHI + FIREBIRD não funciona
Acho que o que ele não fez foi copiar a midas.dll para o diretório da aplicação na máquina nova... Tenho aplicativos que usam Midas, e é imprescindível copiar a midas.dll para o diretório onde está o aplicativo, e ainda executar: no executar do botão iniciar regsvr3 caminho\midas.dll Ok? Odail Della Niesi Junior escreveu: Fábio, Coloque na uses do Projeto a biblioteca MidasLib. Fabio Ferreira escreveu: Estou usando o DBEXPRESS, no Delphi 2006 win32 e SO Windows XP SP 3. O mesmo programa funciona numa maquina. Qdo levo o programa para a outra maquina, não funciona. Na maquna esta isntalado o Client do FireBird. Clico no icone do programa, e simplesmente ele não entra e nem da mensagem de erro. Abs 2008/10/8 Fabiano SJC [EMAIL PROTECTED] mailto:fabianoconrado%40gmail.com mailto:fabianoconrado%40gmail.com Amigo, Não entendi exatamente o que vc gostaria de fazer, explique melhor ok, descreva o que exatamente esta usando!, qual componente de acesso ao banco etc... Aqui não é o local mais apropriado para tais perguntas por ser um grupo do Delphi 4 PHP!, mas, tudo bem por mim!. Caso queira somente rodar seu programa em outra maquina, verifique se o firebird esta instalado, se vc usou o DBE para acesso ao banco (recomendo nao usar, obsoleto) verifique se vc instalou o BDE e se a alias no mesmo esta criada; se o seu sistema foi feito para rodar em apenas uma maquina usando banco local, vc pode ainda ignorar as etapas acima e recorrer ao Firebird Embarcado (ai sim seria apenas copiar as dll e o banco para pasta, mas, deve ser a do firebird embarcado!) um abraço, Fabiano Conrado SJCampos (PHP, Delphi) On 4 out, 14:25, Fabio Ferreira [EMAIL PROTECTED] mailto:fabio.aracajusi...%40gmail.com mailto:fabio.aracajusi...%40gmail.com wrote: Boa Tarde Fiz um programa em Delphi 2006, usando o Banco de Dados FIREBIRD. Coloquei todas as DLLs necessárias no diretório principal de onde vou executar o programa. Quando eu clico no Programa, ele não abre e não da nenhuma mensagem de erro. Na minha maquina , de desenvolvimento, funciona normalmente. O que fazer? Abs --~--~-~--~~~---~--~~ Você recebeu esta mensagem do Grupo Delphi + PHP. Para postar, envie um e-mail para [EMAIL PROTECTED] mailto:delphimaisphp%40googlegroups.com mailto:delphimaisphp%40googlegroups.com Para cancelar a sua inscrição, envie um e-mail para [EMAIL PROTECTED] mailto:delphimaisphp-unsubscribe%40googlegroups.com mailto:delphimaisphp-unsubscribe%40googlegroups.com Visite este grupo em http://groups.google.com.br/group/delphimaisphp?hl=pt-BR http://groups.google.com.br/group/delphimaisphp?hl=pt-BR http://groups.google.com.br/group/delphimaisphp?hl=pt-BR http://groups.google.com.br/group/delphimaisphp?hl=pt-BR -~--~~~~--~~--~--~--- [As partes desta mensagem que não continham texto foram removidas] -- []s, Odail Della Niesi Junior São Pedro-SP
Re: [delphi-br] Re: [Delphi + PHP] Re: PROGRAMA DELPHI + FIREBIRD não funciona
Já verificou o firewall? Libere a porta 3050. []'s Gilson 2008/10/8 Coutinho - Yahoo [EMAIL PROTECTED] Acho que o que ele não fez foi copiar a midas.dll para o diretório da aplicação na máquina nova... Tenho aplicativos que usam Midas, e é imprescindível copiar a midas.dll para o diretório onde está o aplicativo, e ainda executar: no executar do botão iniciar regsvr3 caminho\midas.dll Ok? Odail Della Niesi Junior escreveu: Fábio, Coloque na uses do Projeto a biblioteca MidasLib. Fabio Ferreira escreveu: Estou usando o DBEXPRESS, no Delphi 2006 win32 e SO Windows XP SP 3. O mesmo programa funciona numa maquina. Qdo levo o programa para a outra maquina, não funciona. Na maquna esta isntalado o Client do FireBird. Clico no icone do programa, e simplesmente ele não entra e nem da mensagem de erro. Abs 2008/10/8 Fabiano SJC [EMAIL PROTECTED] mailto:fabianoconrado%40gmail.com fabianoconrado%2540gmail.com mailto:fabianoconrado%40gmail.com fabianoconrado%2540gmail.com Amigo, Não entendi exatamente o que vc gostaria de fazer, explique melhor ok, descreva o que exatamente esta usando!, qual componente de acesso ao banco etc... Aqui não é o local mais apropriado para tais perguntas por ser um grupo do Delphi 4 PHP!, mas, tudo bem por mim!. Caso queira somente rodar seu programa em outra maquina, verifique se o firebird esta instalado, se vc usou o DBE para acesso ao banco (recomendo nao usar, obsoleto) verifique se vc instalou o BDE e se a alias no mesmo esta criada; se o seu sistema foi feito para rodar em apenas uma maquina usando banco local, vc pode ainda ignorar as etapas acima e recorrer ao Firebird Embarcado (ai sim seria apenas copiar as dll e o banco para pasta, mas, deve ser a do firebird embarcado!) um abraço, Fabiano Conrado SJCampos (PHP, Delphi) On 4 out, 14:25, Fabio Ferreira [EMAIL PROTECTED] mailto:fabio.aracajusi...%40gmail.comfabio.aracajusi...%2540gmail.com mailto:fabio.aracajusi...%40gmail.comfabio.aracajusi...%2540gmail.com wrote: Boa Tarde Fiz um programa em Delphi 2006, usando o Banco de Dados FIREBIRD. Coloquei todas as DLLs necessárias no diretório principal de onde vou executar o programa. Quando eu clico no Programa, ele não abre e não da nenhuma mensagem de erro. Na minha maquina , de desenvolvimento, funciona normalmente. O que fazer? Abs --~--~-~--~~~---~--~~ Você recebeu esta mensagem do Grupo Delphi + PHP. Para postar, envie um e-mail para [EMAIL PROTECTED] mailto:delphimaisphp%40googlegroups.comdelphimaisphp%2540googlegroups.com mailto:delphimaisphp%40googlegroups.comdelphimaisphp%2540googlegroups.com Para cancelar a sua inscrição, envie um e-mail para [EMAIL PROTECTED] mailto:delphimaisphp-unsubscribe%40googlegroups.comdelphimaisphp-unsubscribe%2540googlegroups.com mailto:delphimaisphp-unsubscribe%40googlegroups.comdelphimaisphp-unsubscribe%2540googlegroups.com Visite este grupo em http://groups.google.com.br/group/delphimaisphp?hl=pt-BR http://groups.google.com.br/group/delphimaisphp?hl=pt-BR http://groups.google.com.br/group/delphimaisphp?hl=pt-BR http://groups.google.com.br/group/delphimaisphp?hl=pt-BR -~--~~~~--~~--~--~--- [As partes desta mensagem que não continham texto foram removidas] -- []s, Odail Della Niesi Junior São Pedro-SP -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] INTRAWEB
Pessoal Não sei + o que fazer para essa porqueira funcionar O exemplo dado pela Codegear, Fishfacts funciona que é uma beleza... mas o que eu criei não... Tenho de colocar os fontes e o executável em algum lugar específico, ou algo do gênero, setar alguma coisa em especial no projeto? verifiquei tudo e meu programa simples, com apenas 3 ou 4 componentes intraweb não roda nem a pau... Dá erro de access violation... HELP. [] Emanuel Coutinho
Re: [delphi-br] INTRAWEB
Tenho de colocar os fontes e o executável em algum lugar específico, ou algo do gênero, setar alguma coisa em especial no projeto? Vc criou um projeto do tipo StandAlone ou ISAPI? verifiquei tudo e meu programa simples, com apenas 3 ou 4 componentes intraweb não roda nem a pau... Dá erro de access violation... Já tentou debugar pra ver aonde dá o erro? Além disso, em qual Delphi vc está testando o IW? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
[delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ???
Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? O que poderia fazer para dar certo ? A base a ser alterada seria ouv_sort.dbf Obrigado. .sql := SELECT * FROM 'ouv_sort.dbf' AS sor, 'ouvinte.dbf' AS ouv WHERE (sor.ts_cod_cad = :premio) AND (sor.ouv_ndoc=ouv.num_doc) ORDER BY ouv.ts_sorteio 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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 --- [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ???
Pra que uma query possa ser usada para leitura e gravação, ela deve satisfazer um dos seguintes requisitos: 1) Usar a propriedade RequestLive; 2) Usar a propriedade CachedUpdates. Informe-se sobre essas propriedades no próprio help do Delphi. Ele explica o que é necessário para que, usando uma ou outra dessas duas propriedades, vc consiga resolver o que vc quer. Boa sorte. Sds. ___ To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 8 Oct 2008 16:43:55 -0300 Subject: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? O que poderia fazer para dar certo ? A base a ser alterada seria ouv_sort.dbf Obrigado. .sql := SELECT * FROM 'ouv_sort.dbf' AS sor, 'ouvinte.dbf' AS ouv WHERE (sor.ts_cod_cad = :premio) AND (sor.ouv_ndoc=ouv.num_doc) ORDER BY ouv.ts_sorteio 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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ???
Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? Marcou CachedUpdates na TQuery? Configurou o UpdateSQL direitinho? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
[delphi-br] Padrão CEF SIGCB
Alguem sabe alguma coisa sobre a rotina CEF SIGCB, se o componente imprime neste padrão. Obrigado.
Re: [delphi-br] INTRAWEB
QUal a porta que vc esta trabalhando? 2008/10/8 Jackson Gomes - ToolsComps [EMAIL PROTECTED] Tenho de colocar os fontes e o executável em algum lugar específico, ou algo do gênero, setar alguma coisa em especial no projeto? Vc criou um projeto do tipo StandAlone ou ISAPI? verifiquei tudo e meu programa simples, com apenas 3 ou 4 componentes intraweb não roda nem a pau... Dá erro de access violation... Já tentou debugar pra ver aonde dá o erro? Além disso, em qual Delphi vc está testando o IW? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir tela na primeira execução do sistema
Ola, Guionardo, Desculpe a pergunta, mas sou novato. O que seria Flag? E no caso para guardar as informações seria em um arquivo? Grato Att Eduardo Melo 3º Sistemas de Informação Em 07/10/08, Guionardo Furlan [EMAIL PROTECTED] escreveu: Vc pode ter no local onde vc guarda as configurações, um flag que indica se o sistema já inicializou. Quando rodar, o sistema deve verificar se o flag é falso (sinal de que é a primeira vez) e chamar o form de configuração. Este, quando terminar a configuração, deve setar o flag para verdadeiro. Pronto. 2008/10/7 Ricardo Mendes [EMAIL PROTECTED] rickbamen%40gmail.com: Olá galera, gostaria de uma ajuda de vcs. Eu tenho um tela onde tenho o cadastro da empresa...e nela possuiu algumas configurações que podem ser configuradas para o funcionamentoa do sistema. Mas eu gostaria que essa tela fosse aberta na primeira execução do sistema. Porém eu posso a vir a abrir essa tela a partir do cadastro...para mexer nas configurações.. Uso delphi 7 e Firebird -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Gerador de Boleto Open Source da ProduSYS.com.br - ALguém
Alguém usa ou já usou o gerador de boletos da ProduSys, que é Open Source, e pode ser baixado no endereço - http://www.produsys.com.br/download/rlboleto/ Algum informe , dicas ou problemas sobre ele? Abs [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir tela na primeira execução do sistema
Ola Ricardo, Estava analisando agora e pensei em uma solução para você, onde poderia criar alguma tabela no BD ou arquivo texto que armazena-se um valor boleano e quando abrir o sistema pede para ler o valor se for false ele abre e grava true, se for true nao abre a tela. Eduardo Melo 3º Sistemas de Informação - Bacharelado www.meloshospedagem.com.br Em 07/10/08, Ricardo Mendes [EMAIL PROTECTED] escreveu: Olá galera, gostaria de uma ajuda de vcs. Eu tenho um tela onde tenho o cadastro da empresa...e nela possuiu algumas configurações que podem ser configuradas para o funcionamentoa do sistema. Mas eu gostaria que essa tela fosse aberta na primeira execução do sistema. Porém eu posso a vir a abrir essa tela a partir do cadastro...para mexer nas configurações.. Uso delphi 7 e Firebird Fico no aguardo... Obrigado... T+ Ricardo Mendes [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] Probleminha no BDE+WinXP+SP3 (ingles)
Ola Luiz, Olha não sou a pessoa mais indicada para dar apenas uma sugestão, mas pelo que ouvi de professores o DBE não é muito bom usar ele esta ultrapassado e para resolver problemas tem q fazer uma seria de coisas, o que aconselho, pelo que ouvi de professores é usar algum outro tipo de componente para acessar seu banco de dados eu particularmente uso o DBExpress que axou muito bom e fácil de configurar. Mas fica ai uma sugestão apenas, pois sou novato ainda, mas o pessoal da lista podera opinar melhor sobre isso, pois já estão a tempos na area. Att Eduardo Melo 3º Sistemas de Informação - Bacharelado www.meloshospedagem.com.br Em 07/10/08, Luiz ESCobar [EMAIL PROTECTED] escreveu: Olá gente... aconteceu algo engraçado, tenho um INSTALL do BDE que fiz a séculos para instalar nas maquinas onde preciso dele... Bom, tem Notebook com um XP em ingles, que estava com o SP2 e tudo funcionando, depois que instalei o SP3 nele, o BDE ta dando a seguinte mensagem, BDE ERROR $2108 sendo 2108 Cannot locate IDAPI01.DLL, porem estava funcionando normalmente, parou logo após isso, bom, pensei, instalo novamente, e foi o que fiz, porem o erro continua, ja tentei des/instalar e também nada, a outro detalhe esta IDAPI01.DLL nem existe, tem á IDAPI32.DLL meu BDE é do DELPHI 6 PRO, alguem sabe o que pode ser ? []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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvidas no Desenvolvimento de SIstema de Imobiliaria
PEssoal Boa Tarde ALguém aqui já desenvolveu ou desenvolve ou já implantou algum sistema de Gestão de Imobiliária? Estou na duvida de algumas funções e gostaria de trocar algumas idéias. Fico no aguardo .. A[]s [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] INTRAWEB
Qual a porta que vc esta trabalhando? Eu nao mudei nada das configurações padrão. No caso do StandAlone Server é a . Se fosse problema do Firewall, ele iria perguntar se vc quer desbloquear o aplicativo, mas é bom checar... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Probleminha no BDE+WinXP+SP3 (ingles)
Uso por falta de opção to acessando DBFs... No lugar do DBExpress eu uso MyDAC para acessar MySQL... SHOW DE BOLA... E já resolvi. foi só copiar a pasta BDE de program-files para arquivos-de-programas. Porem volto a dizer estava funcionando em program-files sem o SP3, tinha só o SP2. Mas valeu... []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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 --- From: Eduardo Melo Sent: Wednesday, October 08, 2008 4:18 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Probleminha no BDE+WinXP+SP3 (ingles) Ola Luiz, Olha não sou a pessoa mais indicada para dar apenas uma sugestão, mas pelo que ouvi de professores o DBE não é muito bom usar ele esta ultrapassado e para resolver problemas tem q fazer uma seria de coisas, o que aconselho, pelo que ouvi de professores é usar algum outro tipo de componente para acessar seu banco de dados eu particularmente uso o DBExpress que axou muito bom e fácil de configurar. Mas fica ai uma sugestão apenas, pois sou novato ainda, mas o pessoal da lista podera opinar melhor sobre isso, pois já estão a tempos na area. Att Eduardo Melo 3º Sistemas de Informação - Bacharelado www.meloshospedagem.com.br Em 07/10/08, Luiz ESCobar [EMAIL PROTECTED] escreveu: Olá gente... aconteceu algo engraçado, tenho um INSTALL do BDE que fiz a séculos para instalar nas maquinas onde preciso dele... Bom, tem Notebook com um XP em ingles, que estava com o SP2 e tudo funcionando, depois que instalei o SP3 nele, o BDE ta dando a seguinte mensagem, BDE ERROR $2108 sendo 2108 Cannot locate IDAPI01.DLL, porem estava funcionando normalmente, parou logo após isso, bom, pensei, instalo novamente, e foi o que fiz, porem o erro continua, ja tentei des/instalar e também nada, a outro detalhe esta IDAPI01.DLL nem existe, tem á IDAPI32.DLL meu BDE é do DELPHI 6 PRO, alguem sabe o que pode ser ? []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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- [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] ALLguem pode me ajudar em 1 TQUERY com DBF ???
E ai Rubem... blz... Então... até ativei o RequestLive e CachedUpdates.. Fiz toda a transação antes do edit e depois do post POREM... num funfa Bom vou tentar novamente, vai q faltou/errei em algum lugar Notaram que faço um JOIN entre 2 DBFs via WHERE e tem um ORDER BY, pensei que por usar isso não daria pra fazer.. Obrigado... []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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 --- From: Rubem Nascimento da Rocha Sent: Wednesday, October 08, 2008 4:48 PM To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Pra que uma query possa ser usada para leitura e gravação, ela deve satisfazer um dos seguintes requisitos: 1) Usar a propriedade RequestLive; 2) Usar a propriedade CachedUpdates. Informe-se sobre essas propriedades no próprio help do Delphi. Ele explica o que é necessário para que, usando uma ou outra dessas duas propriedades, vc consiga resolver o que vc quer. Boa sorte. Sds. ___ To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 8 Oct 2008 16:43:55 -0300 Subject: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? O que poderia fazer para dar certo ? A base a ser alterada seria ouv_sort.dbf Obrigado. .sql := SELECT * FROM 'ouv_sort.dbf' AS sor, 'ouvinte.dbf' AS ouv WHERE (sor.ts_cod_cad = :premio) AND (sor.ouv_ndoc=ouv.num_doc) ORDER BY ouv.ts_sorteio 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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ???
Então marquei configurei. porem num funfou vou refazer passo a passo, vai q esqueci de algo voltemos ao GOOGLE!!!.. hehehehe []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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 --- From: Jackson Gomes - ToolsComps Sent: Wednesday, October 08, 2008 4:49 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? Marcou CachedUpdates na TQuery? Configurou o UpdateSQL direitinho? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Similaridade entre duas Strings
Elogio de vez em quando vai bem, eheh. Bom, tá aí o código, testado por aqui e funcionando. No meu cálculo manual deu diferença ao comparar os nomes JOÃO e JONAS porque não considerei a diferença de tamanho das strings. Não é um componente, é uma função. unit GStrings; interface /// Obtém a similaridade entre duas strings retornando um valor entre 0 e 1 function Similaridade(Origem, Destino: string): Single; implementation uses SysUtils, GuioUtils; function Similaridade(Origem, Destino: string): Single; var i: Integer; SimCar: Integer; // Similaridade de caracteres SimOrd: Integer; // Similaridade de ordem Lista: array of string; function Validacao: Boolean; begin Result := (Length(Origem) 0) and (Length(Destino) 0); end; procedure SimilaridadeCaracter; var j: Integer; begin SimCar := 0; for j := 1 to Length(Origem) do if Pos(Origem[j], Destino) 0 then Inc(SimCar); end; procedure RemoveNaoCoincidentes(var s1, s2: string); begin i := 1; while i = Length(s1) do if Pos(s1[i], s2) = 0 then Delete(s1, i, 1) else Inc(i); end; procedure GeraLista; var npalavras: Integer; // Número de palavras j, k: Integer; begin npalavras := (Sqr(Length(Origem)) + Length(Origem)) div 2; SetLength(Lista, npalavras); i := 0; for j := 1 to Length(Origem) do // j recebe o tamanho de cada palavra for k := 1 to Length(Origem) - j + 1 do // k recebe a posicao de cada palavra begin Lista[i] := Copy(Origem, k, j); Inc(i); end; end; procedure SimilaridadeOrdem; var j: Integer; begin SimOrd := 0; for j := 0 to Length(Lista) - 1 do if Pos(Lista[j], Destino) 0 then Inc(SimOrd); Result := Result * (SimOrd / Length(Lista)); SetLength(Lista, 0); end; begin // 1. Transformar os textos para a mesma caixa e remover espaços em branco Origem := AnsiUpperCase(Trim(RemoveAcentos(Origem))); Destino := AnsiUpperCase(Trim(RemoveAcentos(Destino))); // 2a. Verificar se os textos são vazios: se forem, similaridade 0 e sai if not Validacao then begin Result := 0; Exit; end; // 2b. Verificar se os textos são iguais: se forem, similaridade 100% // e termina o processo if SameText(Origem, Destino) then begin Result := 1; Exit; end; // 3. para cada caracter do texto origem verificar se ele existe no texto // destino, e em caso positivo, incrementar 1 no contador de similaridade. SimilaridadeCaracter; // 4. o quociente contador / número de caracteres no destino indica a // similaridade sem considerar a ordem dos caracteres. Result := SimCar / Length(Destino); if Result = 0 then Exit; // 5. considerando a ordem, remove-se os caracteres da origem que não // existem no destino e os caracteres do destino que não existem na // origem, igualando os dois textos RemoveNaoCoincidentes(Origem, Destino); RemoveNaoCoincidentes(Destino, Origem); // 6. agora, com uma função que gere uma lista de palavras formadas // pelos caracteres da origem, da seguinte forma: // origem ajustada: peto, com os caracteres não coincidentes removidos, // a lista gerada seria a seguinte // p, e, t, o, pe, et, to, pet, eto, peto: 4 caracteres = 10 palavras // map = m, a, p, ma, ap, map: 3 caracteres = 6 palavras // jorge = j, o, r, g, e, jo, or, rg, ge, jor, org, rge, jorg, orge, // jorge: 5 caracteres = 15 palavras // O número de palavras dentro da lista é definido pela fórmula // 0,5j^2+0,5j, onde j é o número de caracteres do texto origem ajustado. GeraLista; // Cada palavra da lista encontrada dentro da palavra destino ajustada // incrementa uma unidade no contador de similaridade de ordem. // A similaridade de ordem é o quociente do contador sobre o número de // palavras da lista. SimilaridadeOrdem; end; end. - PS: Duas referências no código (guioutils e RemoveAcentos) não estão disponíveis. É que minha função de remoção de acentos usa uma tecnologia avançadíssima com algoritmos genéticos e inteligência artificial, portanto não disponibilizarei de grátis aqui. :-) 2008/10/8 Roberto [EMAIL PROTECTED]: Guionardo, tu tá de sacanagem, né.. Quando descansar bem, completa a explanação com um componente aqui prá nois, Matou a cobra, agora mostra o componente (se ainda houver fosfato). Parabéns e entenda a brincadeira como elogio Abraço Roberto (RJ) - Original Message - From: Guionardo Furlan To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 07, 2008 10:13 PM Subject: Re: [delphi-br] Similaridade entre duas Strings um bom exercício, vou dar meu palpite: 1. transformar os textos para a mesma caixa (alta ou baixa) 2. Verificar se os textos são iguais: se forem, similaridade 100% e termina o processo. 3. para cada caracter do texto origem verificar se ele existe no texto destino, e em caso positivo, incrementar 1 no contador de similaridade. 4. o quociente contador / número de caracteres no destino indica a
Re: [delphi-br] Abrir tela na primeira execução do sistema
Flag é uma informação de sinalização. No seu caso, no mesmo lugar em que vc guarda as configurações do sistema, pode criar mais uma informação que seria o tal Flag. Para isso, vc pode usar um arquivo ini ou uma tabela do bd, de acordo com a sua necessidade. Como vc está guardando as configurações? 2008/10/8 Eduardo Melo [EMAIL PROTECTED] Ola, Guionardo, Desculpe a pergunta, mas sou novato. O que seria Flag? E no caso para guardar as informações seria em um arquivo? Grato Att Eduardo Melo 3º Sistemas de Informação Em 07/10/08, Guionardo Furlan [EMAIL PROTECTED] escreveu: Vc pode ter no local onde vc guarda as configurações, um flag que indica se o sistema já inicializou. Quando rodar, o sistema deve verificar se o flag é falso (sinal de que é a primeira vez) e chamar o form de configuração. Este, quando terminar a configuração, deve setar o flag para verdadeiro. Pronto. 2008/10/7 Ricardo Mendes [EMAIL PROTECTED] rickbamen%40gmail.com: Olá galera, gostaria de uma ajuda de vcs. Eu tenho um tela onde tenho o cadastro da empresa...e nela possuiu algumas configurações que podem ser configuradas para o funcionamentoa do sistema. Mas eu gostaria que essa tela fosse aberta na primeira execução do sistema. Porém eu posso a vir a abrir essa tela a partir do cadastro...para mexer nas configurações.. Uso delphi 7 e Firebird -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
RE: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ???
É, marcou. Mas o que vc marcou? Isso vc não explicou! O q vc configurou? RequestLive ou CachedUpdates? Seja mais claro com os procedimentos q vc tomou para poder explicá-los e a gente entender melhor o que tá acontecendo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 8 Oct 2008 17:32:37 -0300 Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Então marquei configurei. porem num funfou vou refazer passo a passo, vai q esqueci de algo voltemos ao GOOGLE!!!.. hehehehe []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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- From: Jackson Gomes - ToolsComps Sent: Wednesday, October 08, 2008 4:49 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? Marcou CachedUpdates na TQuery? Configurou o UpdateSQL direitinho? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
Re: [delphi-br] Duvidas no Desenvolvimento de SIstema de Imobiliaria
Tenho um software imobiliário, para locação de imóveis que roda em umas 20 imbiliárias em Salvador... Manda bala que nóis vê se pode ajudar!!! Sds Emanuel Coutinho Fabio Ferreira escreveu: PEssoal Boa Tarde ALguém aqui já desenvolveu ou desenvolve ou já implantou algum sistema de Gestão de Imobiliária? Estou na duvida de algumas funções e gostaria de trocar algumas idéias. Fico no aguardo .. A[]s [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] INTRAWEB
O Firewall permite que o fishfacts execute legal na porta , porque não minha aplicação? De qualquer forma, vou especificamente liberar a porta no Internet security Tks Emanuel Coutinho Jackson Gomes - ToolsComps escreveu: Qual a porta que vc esta trabalhando? Eu nao mudei nada das configurações padrão. No caso do StandAlone Server é a . Se fosse problema do Firewall, ele iria perguntar se vc quer desbloquear o aplicativo, mas é bom checar... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] mailto:jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br http://www.devhost.com.br [EMAIL PROTECTED] mailto:devhost%40devhost.com.br
Res: [delphi-br] Similaridade entre duas Strings
Olá pessoal, Guionardo, você não é brincadeira não, matou a dúvida e mostrou a função, rsrsrsrsrsrsrs. Desse jeito os 2 demos que coloquei na 4shared vão virar sarcófagos, rsrsrsrsrsrsrs. Você é fera, isso não é um elogio, é a realidade. Funções úteis para strings (as que iniciam com 'sc' foram escritas por mim): --- function scRemoveAllChars(Ch: Char; S: string): string; var I: Integer; begin I := Length(S); while (Length(S) 0) and (I 0) do begin if S[I] = Ch then Delete(S, I, 1); Dec(I); end; Result := S; end; --- function scRemoveCharactersOfString(Chrs: array of Char; Str: string): string; var I: Integer; S: string; begin S := Str; for I := 0 to High(Chrs) do S := scRemoveAllChars(Chrs[I], S); Result := S; end; --- function RemovesAccent1(S: string): string; const WithAccent = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ'; Stressless = 'aaeouaoaeioucuAAEOUAOAEIOUCU'; var I: Integer; begin for I := 1 to Length(S) do if Pos(S[I], WithAccent) 0 then S[I] := Stressless[Pos(S[I], WithAccent)]; Result := S; end; --- function RemovesAccents2(S: string ): string; var I: Integer; begin for I := 1 to Length(S) do case S[I] of 'á': S[I] := 'a'; 'é': S[I] := 'e'; 'í': S[I] := 'i'; 'ó': S[I] := 'o'; 'ú': S[I] := 'u'; 'à': S[I] := 'a'; 'è': S[I] := 'e'; 'ì': S[I] := 'i'; 'ò': S[I] := 'o'; 'ù': S[I] := 'u'; 'â': S[I] := 'a'; 'ê': S[I] := 'e'; 'î': S[I] := 'i'; 'ô': S[I] := 'o'; 'û': S[I] := 'u'; 'ä': S[I] := 'a'; 'ë': S[I] := 'e'; 'ï': S[I] := 'i'; 'ö': S[I] := 'o'; 'ü': S[I] := 'u'; 'ã': S[I] := 'a'; 'õ': S[I] := 'o'; 'ñ': S[I] := 'n'; 'ç': S[I] := 'c'; 'Á': S[I] := 'A'; 'É': S[I] := 'E'; 'Í': S[I] := 'I'; 'Ó': S[I] := 'O'; 'Ú': S[I] := 'U'; 'À': S[I] := 'A'; 'È': S[I] := 'E'; 'Ì': S[I] := 'I'; 'Ò': S[I] := 'O'; 'Ù': S[I] := 'U'; 'Â': S[I] := 'A'; 'Ê': S[I] := 'E'; 'Î': S[I] := 'I'; 'Ô': S[I] := 'O'; 'Û': S[I] := 'U'; 'Ä': S[I] := 'A'; 'Ë': S[I] := 'E'; 'Ï': S[I] := 'I'; 'Ö': S[I] := 'O'; 'Ü': S[I] := 'U'; 'Ã': S[I] := 'A'; 'Õ': S[I] := 'O'; 'Ñ': S[I] := 'N'; 'Ç': S[I] := 'C'; end; Result := S; end; Um abraço! Silvio Clécio Contatos/Blog Skype: silvioprog Yahoo! Messenger: [EMAIL PROTECTED] MSN (Hotmail): [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ - Mensagem original De: Guionardo Furlan [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 8 de Outubro de 2008 17:34:22 Assunto: Re: [delphi-br] Similaridade entre duas Strings Elogio de vez em quando vai bem, eheh. Bom, tá aí o código, testado por aqui e funcionando. No meu cálculo manual deu diferença ao comparar os nomes JOÃO e JONAS porque não considerei a diferença de tamanho das strings. Não é um componente, é uma função. unit GStrings; interface /// Obtém a similaridade entre duas strings retornando um valor entre 0 e 1 function Similaridade( Origem, Destino: string): Single; implementation uses SysUtils, GuioUtils; function Similaridade( Origem, Destino: string): Single; var i: Integer; SimCar: Integer; // Similaridade de caracteres SimOrd: Integer; // Similaridade de ordem Lista: array of string; function Validacao: Boolean; begin Result := (Length(Origem) 0) and (Length(Destino) 0); end; procedure SimilaridadeCaracte r; var j: Integer; begin SimCar := 0; for j := 1 to Length(Origem) do if Pos(Origem[j] , Destino) 0 then Inc(SimCar); end; procedure RemoveNaoCoincident es(var s1, s2: string); begin i := 1; while i = Length(s1) do if Pos(s1[i], s2) = 0 then Delete(s1, i, 1) else Inc(i); end; procedure GeraLista; var npalavras: Integer; // Número de palavras j, k: Integer; begin npalavras := (Sqr(Length( Origem)) + Length(Origem) ) div 2; SetLength(Lista, npalavras); i := 0; for j := 1 to Length(Origem) do // j recebe o tamanho de cada palavra for k := 1 to Length(Origem) - j + 1 do // k recebe a posicao de cada palavra begin Lista[i] := Copy(Origem, k, j); Inc(i); end; end; procedure SimilaridadeOrdem; var j: Integer; begin SimOrd := 0; for j := 0 to Length(Lista) - 1 do if Pos(Lista[j] , Destino) 0 then Inc(SimOrd); Result := Result * (SimOrd / Length(Lista) ); SetLength(Lista, 0); end; begin // 1. Transformar os textos para a mesma caixa e remover espaços em branco Origem := AnsiUpperCase( Trim(RemoveAcent os(Origem) )); Destino := AnsiUpperCase( Trim(RemoveAcent os(Destino) )); // 2a. Verificar se os textos são vazios: se forem, similaridade 0 e
Re: Res: [delphi-br] Similaridade entre duas Strings
Se for útil, uma função para retirar acentos que utilizo a muito tempo sem problemas. function RemoveAcentos(DadosAcentos : String) : String; var C_k, i : Integer; C_y, ComAcentos, SomAcentos : String; begin C_y := ''; ComAcentos := 'ÃÁÀÄÂÉÈÊËÍÌÎÏÓÒÔÕÖÚÙÜÛãáàäâéèêëíìîïóòôõöúùüû'; SomAcentos := 'AOao'; for i := 1 to Length(Trim(DadosAcentos)) do begin C_k := Pos(DadosAcentos[i], ComAcentos); if C_k 0 then C_y := C_y + SomAcentos[C_k] else C_y := C_y + DadosAcentos[i]; end; Result := C_y; end; Zucchi --- Em delphi-br@yahoogrupos.com.br, Silvio Clécio [EMAIL PROTECTED] escreveu Olá pessoal, Guionardo, você não é brincadeira não, matou a dúvida e mostrou a função, rsrsrsrsrsrsrs. Desse jeito os 2 demos que coloquei na 4shared vão virar sarcófagos, rsrsrsrsrsrsrs. Você é fera, isso não é um elogio, é a realidade. Funções úteis para strings (as que iniciam com 'sc' foram escritas por mim): --- function scRemoveAllChars(Ch: Char; S: string): string; var I: Integer; begin I := Length(S); while (Length(S) 0) and (I 0) do begin if S[I] = Ch then Delete(S, I, 1); Dec(I); end; Result := S; end; --- function scRemoveCharactersOfString(Chrs: array of Char; Str: string): string; var I: Integer; S: string; begin S := Str; for I := 0 to High(Chrs) do S := scRemoveAllChars(Chrs[I], S); Result := S; end; --- function RemovesAccent1(S: string): string; const WithAccent = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ'; Stressless = 'aaeouaoaeioucuAAEOUAOAEIOUCU'; var I: Integer; begin for I := 1 to Length(S) do if Pos(S[I], WithAccent) 0 then S[I] := Stressless[Pos(S[I], WithAccent)]; Result := S; end; --- function RemovesAccents2(S: string ): string; var I: Integer; begin for I := 1 to Length(S) do case S[I] of 'á': S[I] := 'a'; 'é': S[I] := 'e'; 'í': S[I] := 'i'; 'ó': S[I] := 'o'; 'ú': S[I] := 'u'; 'à': S[I] := 'a'; 'è': S[I] := 'e'; 'ì': S[I] := 'i'; 'ò': S[I] := 'o'; 'ù': S[I] := 'u'; 'â': S[I] := 'a'; 'ê': S[I] := 'e'; 'î': S[I] := 'i'; 'ô': S[I] := 'o'; 'û': S[I] := 'u'; 'ä': S[I] := 'a'; 'ë': S[I] := 'e'; 'ï': S[I] := 'i'; 'ö': S[I] := 'o'; 'ü': S[I] := 'u'; 'ã': S[I] := 'a'; 'õ': S[I] := 'o'; 'ñ': S[I] := 'n'; 'ç': S[I] := 'c'; 'Á': S[I] := 'A'; 'É': S[I] := 'E'; 'Í': S[I] := 'I'; 'Ó': S[I] := 'O'; 'Ú': S[I] := 'U'; 'À': S[I] := 'A'; 'È': S[I] := 'E'; 'Ì': S[I] := 'I'; 'Ò': S[I] := 'O'; 'Ù': S[I] := 'U'; 'Â': S[I] := 'A'; 'Ê': S[I] := 'E'; 'Î': S[I] := 'I'; 'Ô': S[I] := 'O'; 'Û': S[I] := 'U'; 'Ä': S[I] := 'A'; 'Ë': S[I] := 'E'; 'Ï': S[I] := 'I'; 'Ö': S[I] := 'O'; 'Ü': S[I] := 'U'; 'Ã': S[I] := 'A'; 'Õ': S[I] := 'O'; 'Ñ': S[I] := 'N'; 'Ç': S[I] := 'C'; end; Result := S; end; Um abraço! Silvio Clécio Contatos/Blog Skype: silvioprog Yahoo! Messenger: [EMAIL PROTECTED] MSN (Hotmail): [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ - Mensagem original De: Guionardo Furlan [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 8 de Outubro de 2008 17:34:22 Assunto: Re: [delphi-br] Similaridade entre duas Strings Elogio de vez em quando vai bem, eheh. Bom, tá aí o código, testado por aqui e funcionando. No meu cálculo manual deu diferença ao comparar os nomes JOÃO e JONAS porque não considerei a diferença de tamanho das strings. Não é um componente, é uma função. unit GStrings; interface /// Obtém a similaridade entre duas strings retornando um valor entre 0 e 1 function Similaridade( Origem, Destino: string): Single; implementation uses SysUtils, GuioUtils; function Similaridade( Origem, Destino: string): Single; var i: Integer; SimCar: Integer; // Similaridade de caracteres SimOrd: Integer; // Similaridade de ordem Lista: array of string; function Validacao: Boolean; begin Result := (Length(Origem) 0) and (Length(Destino) 0); end; procedure SimilaridadeCaracte r; var j: Integer; begin SimCar := 0; for j := 1 to Length(Origem) do if Pos(Origem[j] , Destino) 0 then Inc(SimCar); end; procedure RemoveNaoCoincident es(var s1, s2: string); begin i := 1; while i = Length(s1) do if Pos(s1[i], s2) = 0 then Delete(s1, i, 1) else Inc(i); end; procedure GeraLista; var
Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ???
com union n da, tem q ser uma tabela por vez 2008/10/8 Rubem Nascimento da Rocha [EMAIL PROTECTED]: É, marcou. Mas o que vc marcou? Isso vc não explicou! O q vc configurou? RequestLive ou CachedUpdates? Seja mais claro com os procedimentos q vc tomou para poder explicá-los e a gente entender melhor o que tá acontecendo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 8 Oct 2008 17:32:37 -0300 Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Então marquei configurei. porem num funfou vou refazer passo a passo, vai q esqueci de algo voltemos ao GOOGLE!!!.. hehehehe []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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- From: Jackson Gomes - ToolsComps Sent: Wednesday, October 08, 2008 4:49 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? Marcou CachedUpdates na TQuery? Configurou o UpdateSQL direitinho? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br -- Att. -- José Benedito Software Developer [EMAIL PROTECTED] (19) 8116-7826
[delphi-br] Re: ALLguem pode me ajudar em 1 TQUERY com DBF ???
Só uma ideia, não sei se te ajuda. Jogue os dados para um StrigGrid e depois trate eles. Zucchi --- Em delphi-br@yahoogrupos.com.br, JB [EMAIL PROTECTED] escreveu com union n da, tem q ser uma tabela por vez 2008/10/8 Rubem Nascimento da Rocha [EMAIL PROTECTED]: É, marcou. Mas o que vc marcou? Isso vc não explicou! O q vc configurou? RequestLive ou CachedUpdates? Seja mais claro com os procedimentos q vc tomou para poder explicá-los e a gente entender melhor o que tá acontecendo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 8 Oct 2008 17:32:37 -0300 Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Então marquei configurei. porem num funfou vou refazer passo a passo, vai q esqueci de algo voltemos ao GOOGLE!!!.. hehehehe []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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- From: Jackson Gomes - ToolsComps Sent: Wednesday, October 08, 2008 4:49 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? Marcou CachedUpdates na TQuery? Configurou o UpdateSQL direitinho? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br -- Att. -- José Benedito Software Developer [EMAIL PROTECTED] (19) 8116-7826
Re: [delphi-br] INTRAWEB
Estou usando o BDS 2006, Xp sp2 atualizadinho... Firebird rodando como serviço, acesso tranquilo com o ibExpert A porta é a meu Firewall tá permitindo tráfego Fabio Ferreira escreveu: QUal a porta que vc esta trabalhando? 2008/10/8 Jackson Gomes - ToolsComps [EMAIL PROTECTED] mailto:jackson%40toolsandcomps.com Tenho de colocar os fontes e o executável em algum lugar específico, ou algo do gênero, setar alguma coisa em especial no projeto? Vc criou um projeto do tipo StandAlone ou ISAPI? verifiquei tudo e meu programa simples, com apenas 3 ou 4 componentes intraweb não roda nem a pau... Dá erro de access violation... Já tentou debugar pra ver aonde dá o erro? Além disso, em qual Delphi vc está testando o IW? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] mailto:jackson%40toolsandcomps.com jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br http://www.devhost.com.br [EMAIL PROTECTED] mailto:devhost%40devhost.com.br devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] scFatCalculation 1.0 (Calcula Índice de Massa Corpor al)
Olá pessoal, Vamos calcular nosso I.M.C (Índice de Massa Corporal)? Links para fazer o download: (http://www.4shared.com/dir/5679510/48848609/Uploads.html) (http://www.4shared.com/file/66221639/2d8dbc13/scFatCalculation_10.html?dirPwdVerified=4f84753f) Só não vale criticar as imagens, eu não sei desenhar, rsrsrsrsrsrsrs. Um abraço! Silvio Clécio Contatos/Blog Skype: silvioprog Yahoo! Messenger: [EMAIL PROTECTED] MSN (Hotmail): [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Abrir tela na primeira execução do sistema (RESOLV IDO)
Galera eu criei uma tabela de configurações, onde eu coloco o tipo do parametro
que quero controlarconforme amigo ismair
a tabela fica assim
codigo(integer) | descricao(Varchar(255) ) | valor (varchar(5))
1Primeira Execução N
..
No formPrincipal no OnActive eu faço assim
DM.IBEmpresa.Open;
DM.IBConfiguracoes.Open;
if DM.IBConfiguracoesEXECUCAO.Value = 'S' then
begin
try
Application.CreateForm(Tfrm_Empresa, frm_Empresa);
try
frm_Empresa.ShowModal;
finally
frm_Empresa.free;
end;
except
MessageDlg('Erro ao abrir tela de Configurações.'+#13+#10+'Favor Avisar
Suporte', mtError, [mbOK], 0);
end;
end;
--
E na tabela de configuraçõesantes de gravar eu verifico se o campo de razao
foi preenchida
if(DBEdit1.Text ' ') then
begin
dm.IBConfiguracoesEXECUCAO.Value:='N';
end;
se ele foi preenchido eu gravos as alterações e fecho o form de configurações,
caso contrario na proxima execução do sistema ele vai pedir para configurar
novamente...
além disso em todas as telas antes de eu entrar eu verifico se as tabelas que
possuem ForeingKey na tabela eu aviso para ser cadastrado antes de continuar...
Espero que ajude alguem a soluçãosei que não ficou um modelo elegante,
mas está funcional..
Abs e obrigado pela ajuda
Ricardo Mendes
- Mensagem Original Removida
--
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ???
Opa, Ok, ta bom... Fiz varios testes.. com 1 marcado, depois alternei com o outro, depois deixei os dois usei os APPLYUPDATE() (com CachedUpdates).. etc... peguei o exemplo do HELP do D6. Quando chegar na rádio amanhã eu vou refazer e ver se funciona... ai posto aqui seja lá no que der.. Abraços Luiz Escobar - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 08, 2008 6:10 PM Subject: RE: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? É, marcou. Mas o que vc marcou? Isso vc não explicou! O q vc configurou? RequestLive ou CachedUpdates? Seja mais claro com os procedimentos q vc tomou para poder explicá-los e a gente entender melhor o que tá acontecendo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 8 Oct 2008 17:32:37 -0300 Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Então marquei configurei. porem num funfou vou refazer passo a passo, vai q esqueci de algo voltemos ao GOOGLE!!!.. hehehehe []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 -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- From: Jackson Gomes - ToolsComps Sent: Wednesday, October 08, 2008 4:49 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ALLguem pode me ajudar em 1 TQUERY com DBF ??? Seguinte como faço para esta query ser read/write e não só readonly ou seja UniDirectional !? É assim mesmo, não tem jeito ? Porque tentei até usar o UpdateSQL, mas não funcionou ? Marcou CachedUpdates na TQuery? Configurou o UpdateSQL direitinho? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
