[delphi-br] Completar o campo edit
Olá galera, estou tentando fazer uma coisa, mas nao sei se é possivel, é o seginte... eu tenho varios edits com o nome edtProg1, só que eu quero colocar um for i:= 1 to 6 do begin e que nesse campo edit cada vez que pass por ele esse numero do nome adicione + 1..ex: for i:= 1 to 6 do begin edit[i].text := qryLogNumero.asstring; i:= i + 1; end; isso nao dá certo, tem alguma outra maneira q faça com que esse numero do edit mude?
[delphi-br] Duplicar registro no firebird
Bom dia.
Venho mais uma vez, pedir a ajuda dos nobres colegas.
Tenho um sistema em Delphi 7 e Firebird 2.1 para digitalização de documentos
com duas tabelas devidamente ligadas (master detail).
Existe um campo chamado QtdPag (Edit) onde o usuário vai informar a
quantidade de documentos a digitalizar.
Com base nesta quantidade digitada, queria que fosse gravado em banco a
quantidade de registros informado no campo QtdPag.
Na verdade, os registros seriam duplicados e salvos em banco de acordo com a
quantidade informada.
Estou tentando desta maneira abaixo:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(-1);
end;
finally
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Porém, se informar 5 no campo QtdPag é mostrado no dbgrid os 5 registros,
mas no banco é gravado somente 1 registro.
Como poderia resolver este problema?
Abraços.
Ralp Alves Bezerra
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OOP
Muito obrigado ao Renato e ao Dirlei, sou programador Delphi há 10 anos e estou querendo me aprofundar sobre oop e padrões de projeto. Nós programadores e analistas não podemos ficar parados no tempo, temos que sempre estar aprendendo e nos reciclando. Estarei adquirindo esses livros e já dei uma olhada no site www.istudar.com.br Grato, William C. Brazilino [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Completar o campo edit
Amigo ficou meio confuso o que vc quer dizer esse pass por ele ? Seria toda vez que receber o foco ? Outra coisa você não tem como ter vários edits com o mesmo nome ! Seriam vários edits com o mesmo text (conteúdo) ? Ou vc tem um array de componentes edits ? Se for array vc precisará ter 2 variáveis Var x,y:integer; begin y:= 1; for x:= 1 to 6 do begin edit[x].text:= inttostr(y); inc(y); end; - Original Message - From: rzzanatta To: delphi-br@yahoogrupos.com.br Sent: Friday, March 12, 2010 8:46 AM Subject: [delphi-br] Completar o campo edit Olá galera, estou tentando fazer uma coisa, mas nao sei se é possivel, é o seginte... eu tenho varios edits com o nome edtProg1, só que eu quero colocar um for i:= 1 to 6 do begin e que nesse campo edit cada vez que pass por ele esse numero do nome adicione + 1..ex: for i:= 1 to 6 do begin edit[i].text := qryLogNumero.asstring; i:= i + 1; end; isso nao dá certo, tem alguma outra maneira q faça com que esse numero do edit mude? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ferramenta UML Seven
O Astah (ex-Jude) e o argouml são feitos em Java e funcionam no Linux. O próprio Together da Borland também possui versão pra Linux. Experimentei o Umbrello uma vez há bastante tempo, o que desanimei com ele é que à medida que meus diagramas cresciam, ele dava muito crash quando eu tentava gerar código a partir dos diagramas. Mas, como eu disse, tem muito tempo. Em 11 de março de 2010 21:51, Silvio Clecio silviop...@gmail.com escreveu: Se houver alguma alma viva além de mim que só usa Linux (Há compatibilidade com Windows): $ sudo apt-get install umbrello Vai precisar da Qt instalada. Só isso mesmo. Uso e recomendo, quem se interessar, bons estudos: http://uml.sourceforge.net/screen.php Marcos Alexandre Lemos Rodrigues escreveu: A nova versão do Jude chama Astah e ele tem a versão comerical e a paga. O ideal seria usar o recurso UML do Delphi porque ele já integra com o código e evita retrabalho, mas depende da versão do Delphi que você tem. A nossa aqui da empresa, por exemplo, não tem :( Em 11 de março de 2010 13:15, Mario Rodrigues marioirodrig...@gmail.com marioirodrigues%40gmail.com mailto: marioirodrigues%40gmail.com marioirodrigues%2540gmail.comescreveu: Pooowww...blz a todos...o jude é bacaninha!!! vlw a todos Em 11 de março de 2010 09:27, Bruno Lichot bruno.lic...@microfocus.com bruno.lichot%40microfocus.com mailto:bruno.lichot%40microfocus.com bruno.lichot%2540microfocus.com escreveu: O proprio Delphi faz isso. Veja o vídeo do Ricardo Barbieri sobre este assunto: http://cc.codegear.com/Item/25344 http://cc.codegear.com/Item/25344 Abraços, Bruno -Original Message- From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Nazareno Neto Sent: quarta-feira, 10 de março de 2010 15:38 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Ferramenta UML Seven Jude, mas eu acho q hj em dia se chama astha, algo assim, na faculdade nos usavamos ela! Em 10 de março de 2010 14:31, Mario Rodrigues marioirodrig...@gmail.com marioirodrigues%40gmail.com mailto: marioirodrigues%40gmail.com marioirodrigues%2540gmail.com marioirodrigues%40gmail.comescreveu: Salve salve pessoal, Galera usava o Star UML pra criar os casos de uso etc...porem mudei para o seven e nao ta funfando alguem conhece outra ferrameta free??? []'s -- Nazareno Neto Desenvolvedor Delphi e Firebird -- []'s Silvio Clécio -- programmer ObjectPascal - Blog: http://blog.silvioprog.com.br programmer ObjectPascal - Site: http://www.silvioprog.com.br programmer ObjectPascal - Twitter: http://twitter.com/silvioprog -- grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br/ -- Mensagem assinada com PGP Public Key, Ver.: GnuPG v1.4.9 (GNU/Linux) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Tem como mudar o envelopamento do SOAP do delphi?
Olá Felipe, 1) qual a versão do Delphi vc está utilizando? 2) qual a biblioteca SOAP ? A nativa do Delphi, IndySOAP ou da Microsoft? Se for bibilioteca nativa com Delphi 2005 ou anterior: você aplicou os patches de atualização? 3) Você verificou no WSDL qual a versão do Soap que ele está usando ? Um abraço, Josir. --- Em delphi-br@yahoogrupos.com.br, Fellipe Henrique felli...@... escreveu Amigos, estou tentando acessar um WS, e está dando a seguinte mensagem: Possible SOAP version mismatch: Envelope namespace http://schemas.xmlsoap.org/soap/envelope/ was unexpected. Expecting http://www.w3.org/2003/05/soap-envelope. O que me dizem dessa mensagem? como arrumo isso!? []s -- _ T.·.F.·.A.·. Fellipe Henrique Blog: www.digitumsoft.com.br/blogs/fellipeh --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Desenvolvimento SOMENTE para Win32, Delphi 7 ou Delphi 2010?
Olá Felipe, a resposta é uma só: CUSTO! As empresas e software-houses continuam a usar Delphi 7 porque o custo para migrar para uma versão + recente é muito alto. Veja os custos do mais barato para o mais caro: - Custo da ferramenta em si. Para cada desenvolvedor, R$2.000,00 (considerando a versão Professional) - Custo das bibliotecas que terão quer ser migradas também: pode variar de R$500 a R$4000 Uma aplicação típica que usa Report Builder, Infopower, Raize ou LMD custa R$600 + R$1000 + R$300,00 = R$1.900,00 por desenvolvedor. - Custo de mão de obra para migrar; aí a coisa vai longe... a Borland/Embarcadero diz que a migração é transparente mas a gente sabe que não é. Principalmente se entram em cena componentes de terceiros. Enfim, custa muito caro e como o Delphi 7 é MUITO BOM e dá conta do recado até hoje, eles não migram. Mas veja bem: se vc vai construir uma aplicação do zero, aí recomendo o Delphi 2007 sem sombra de dúvida. É muito superior ao Delphi 7. Boa Sorte, Josir Gomes --- Em delphi-br@yahoogrupos.com.br, Fellipe Henrique felli...@... escreveu Só pra dar ênfaze no que eu disse... no próprio site da Embarcadero, tem várias empresas que usam Delphi em seus sistemas... 98% dos sistemas lá são em Delphi 7... inclusive o popular IBExpert Aí fico na dúvida, se empresas do calibre dessas não mudaram, porque eu mudaria? Att. Em 11 de março de 2010 14:18, Fellipe Henrique felli...@...escreveu: Amigos, Estou vendo as maravilhas do Delphi 2010... sim, são muita coisas boas... mas convenhamos, que para nós- pelo menos para mim, pobre mortal, muita coisa não me levaria a mudar.. tipo, unicode, mudança em RTL (?!?) ou seja, o bom e velho D7 satisfaz numa boa.. aplicativo compilado nele, roda tranquilo em Win Vista e Seven seja 32 ou 64bits Então me vem na cabeça agora.. apesar de tantas coisas boas que o 2010 trás, a correria para ele está sendo pouca, e grandes desenvolvedoras de software, ainda utilizam o Delphi 7... e dizem que apesar das mudanças e tals.. para win32 o 7 ainda é melhor e mais rápido de desenvolver do que o resto.. Então é isso, pra quem não irá usar nunca o que o 2010 fornece (Unicode, RTL, Refactoring, UML e etc..) vale a pena mudar? Pois sabemos que gerenciadores de memória podemos usar o que o 2010 usa, no D7.. então não vale contar isso.. hehe... o que me dizem? -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### -- _ T.·.F.·.A.·. Fellipe Henrique --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Tem como mudar o envelopamento do SOAP do delphi?
Felipe, você sabe em qual liguagem foi desenvolvido o webservice que está tentando acessar? Eu tive problema também a um tempo atras, quando tentei acessar um WS escrito em .net, não me lembro o erro que ocorria, mas era algo em relação a XML também. Como estava desenvolvendo no delphi 2006 e ja tinha o delphi 2009 fiz um teste usando o delphi 2009 e este conseguiu conectar normalmente, o que fiz depois foi pegar o arquivo de interface gerado pelo WSDL importer do D2009 para o meu programa no 2006 e tudo funcionou normalmente. Dependendo da sua versão do Delphi, vale fazer um teste semelhante a este que fiz, pode ser que o problema tenha sido corrigido em versões mais novas do Delphi. []s Em 10 de março de 2010 17:42, gigaherdt gabrielhe...@gmail.com escreveu: Alguem sabe resolver o que nosso amigo perguntou? --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Fellipe Henrique felli...@... escreveu Amigos, estou tentando acessar um WS, e está dando a seguinte mensagem: Possible SOAP version mismatch: Envelope namespace http://schemas.xmlsoap.org/soap/envelope/ was unexpected. Expecting http://www.w3.org/2003/05/soap-envelope. O que me dizem dessa mensagem? como arrumo isso!? []s -- _ T.·.F.·.A.·. Fellipe Henrique Blog: www.digitumsoft.com.br/blogs/fellipeh -- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ferramenta UML Seven
Marcos Alexandre Lemos Rodrigues escreveu: O Astah (ex-Jude) e o argouml são feitos em Java e funcionam no Linux. O próprio Together da Borland também possui versão pra Linux. Vendo essa foto: http://astah.change-vision.com/en/images/stories/product/SequenceDiagram_UML-e.png Dá pra confundir que é Astah e quem é Umbrello. :) Experimentei o Umbrello uma vez há bastante tempo, o que desanimei com ele é que à medida que meus diagramas cresciam, ele dava muito crash quando eu tentava gerar código a partir dos diagramas. Mas, como eu disse, tem muito tempo. Esse erro era no Qt. Tive esse erro em outra ferramenta, foi atualizar o Qt e o erro evaporou. -- []'s Silvio Clécio -- programmer ObjectPascal - Blog: http://blog.silvioprog.com.br programmer ObjectPascal - Site: http://www.silvioprog.com.br programmer ObjectPascal - Twitter: http://twitter.com/silvioprog -- grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br/ -- Mensagem assinada com PGP Public Key, Ver.: GnuPG v1.4.9 (GNU/Linux)
Re: [delphi-br] OOP
Desenvolvimento escreveu: Muito obrigado ao Renato e ao Dirlei, sou programador Delphi há 10 anos e estou querendo me aprofundar sobre oop e padrões de projeto. Nós programadores e analistas não podemos ficar parados no tempo, temos que sempre estar aprendendo e nos reciclando. Estarei adquirindo esses livros e já dei uma olhada no site www.istudar.com.br Grato, William C. Brazilino Procure por Martin Fowler no Google ;) Vaja o material dele, você irá se surpreender. -- []'s Silvio Clécio -- programmer ObjectPascal - Blog: http://blog.silvioprog.com.br programmer ObjectPascal - Site: http://www.silvioprog.com.br programmer ObjectPascal - Twitter: http://twitter.com/silvioprog -- grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br/ -- Mensagem assinada com PGP Public Key, Ver.: GnuPG v1.4.9 (GNU/Linux)
Re: [delphi-br] Completar o campo edit
Olá.
Bem... não sei se entendi, mas se vc tiver edtProg1, edtProg2, edtProg3,
edtProg6 num form, então tente assim:
for i := 1 to 6 do
begin
TEdit(SeuFormulario.FindComponent('edtProg' + IntToStr(i))).Text :=
qryLogNumero.AsString;
i := i + 1;
end
Em 12 de março de 2010 08:46, rzzanatta rzzana...@yahoo.com.br escreveu:
Olá galera, estou tentando fazer uma coisa, mas nao sei se é possivel, é o
seginte...
eu tenho varios edits com o nome edtProg1, só que eu quero colocar um for
i:= 1 to 6 do begin e que nesse campo edit cada vez que pass por ele esse
numero do nome adicione + 1..ex:
for i:= 1 to 6 do begin
edit[i].text := qryLogNumero.asstring;
i:= i + 1;
end;
isso nao dá certo, tem alguma outra maneira q faça com que esse numero do
edit mude?
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RE: [delphi-br] Duplicar registro no firebird
Faça o posto para cada registro criado, e ao final use ApplyUdpates(0). Com
ApplyUpdates(-1), se houverem erros, os mesmos não serão notificados à
aplicação.
Sds.
To: delphi-br@yahoogrupos.com.br
From: ral...@gmail.com
Date: Fri, 12 Mar 2010 07:20:01 -0300
Subject: [delphi-br] Duplicar registro no firebird
Bom dia.
Venho mais uma vez, pedir a ajuda dos nobres colegas.
Tenho um sistema em Delphi 7 e Firebird 2.1 para digitalização de documentos
com duas tabelas devidamente ligadas (master detail).
Existe um campo chamado QtdPag (Edit) onde o usuário vai informar a
quantidade de documentos a digitalizar.
Com base nesta quantidade digitada, queria que fosse gravado em banco a
quantidade de registros informado no campo QtdPag.
Na verdade, os registros seriam duplicados e salvos em banco de acordo com a
quantidade informada.
Estou tentando desta maneira abaixo:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(-1);
end;
finally
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Porém, se informar 5 no campo QtdPag é mostrado no dbgrid os 5 registros,
mas no banco é gravado somente 1 registro.
Como poderia resolver este problema?
Abraços.
Ralp Alves Bezerra
_
Não deixe rastros ao navegar na Internet. Instale Grátis o Internet Explorer 8
agora.
http://go.microsoft.com/?linkid=9707132
[As partes desta mensagem que não continham texto foram removidas]
