Re: [delphi-br] Editor de relatórios multi-plataforma - Qual?
Tem o Fortes Report também. É gratuito, mas sem os fontes. http://www.fortesreport.com.br/downloads.php Sds, Romario Rodrigo Ribeiro escreveu: Naum tem quickreport, reportbuilder no Kylix...somente Rave (só no Kylix III) ou FastReports. [ ]'s Rodrigo - Original Message - From: Florentino - Agrosoft [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, January 02, 2005 1:04 AM Subject: [delphi-br] Editor de relatórios multi-plataforma - Qual? Amigos, Estou iniciando o desenvolvimento de uma aplicação CLX (multi plataforma). Bom, só trabalho com Windows. Gerar relatórios pelo Quick Report é tranquilo, porém meus relatórios em Quick funcionarão em Linux? E quanto ao Rave ou Report Builder, qual é o mais idicado para gerar meus relatórios multi-plataforma ? Desde já agradeço a colaboração de todos. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.6.8 - Release Date: 3/1/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] WebCam
Segue em anexo o exemplo solicitado. P.S.: Lembre-se sempre de fazer qualquer solicitação em PVT. Sds, Romario André Argeri escreveu: Me manda direto nesse e-mail [EMAIL PROTECTED] , fazendo o favor. Ficarei muito agradecido Muito Obrigado -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] WebCam
Segue em anexo um aplicativo que faz isso. Sds, Romario André Argeri escreveu: Boa tarde. Estou desenvolvendo um programa usando delphi 7 e queria saber se tem algum componente ou alguma coisa para capturar as imagens da web cam. Desde já agradeço Muito Obrigado -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Cadastro de Cidades do Brasil
Bastava apenas indicar o link para o local onde disponibilizei o arquivo. http://www.comunidade-firebird.org/modules.php?name=Downloadsd_op=getitlid=148 Imagine quando eu conseguir terminar a nova versão que possui mais de 12.000 registros (que inclui distritos, vilarejos, etc.)? Sds, Romario Rodrigo Americo escreveu: Caro amigo, Tudo bem que o SQL com as cidades do Brasil é muito útil. Mas enviar uma mensagem de 550KB para uma lista de discussão com mais de 1000 usuários foi uma falta de senso! Por que você não disponibilizou isso em algum lugar como o www.mandeibem.com.br? Tem hora que dá vontade de desistir disto aqui. :( -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Extrair Ícone de DLL
Você poderá utilizar o Icon Catcher. O Trial está disponível para download na página na empresa. Se ele atender às suas necessidades, a licensa custa apenas U$ 19,95. http://www.iconcatcher.com/ Espero ter ajudado. Sds, Romario lixeirod escreveu: Lá só tem o padrão: Extrair ícone de Executável ... Para isso eu já criei um software ... Preciso de um que extraia os ícones de DLLs. EX: Shell32.ddl do Windows. Valeu! --- Em [EMAIL PROTECTED], Marcelo Silva [EMAIL PROTECTED] escreveu Procure por icone em www.superdownloads.com.br e escolha o que melhor lhe convier Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: lixeirod To: [EMAIL PROTECTED] Sent: Wednesday, November 10, 2004 4:27 PM Subject: [delphi-br] Extrair Ícone de DLL Alguém conhece algum programa ou tem uma função para extrair um ícone de uma DLL e salva-lo como .ICO? Valeu! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] GetClass Não Encontra Classe Registrada
Galera, Alguém sabe porque essa porqueira não funciona? If GetClass('TfrmFuncionario') Nil then Begin ShowMessage('Passei por aqui'); End; Sendo que: 1) Unit está declarada na Cláusula Uses. 2) A classe está registrada no Initialization. Tudo isso funcionava às mil maravilhas. Foi só converter a minha aplicação de CLX para VCL e essa b*sta parou de funcionar. Agradeço toda e qualquer ajuda que puderem me fornecer. Sds, Romario -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Posicionando forms!!!
Basta alterar a propriedade Position do Form para poScreenCenter. Sds, Romario Marcello escreveu: Pessoal, em meu sistema uso formulários MDI. Minha dúvida é como alinhar os formulários filhos para que, quando forem criados, apareçam centralizados dentro do form Pai. Alguém aí já conseguiu fazer isso? Marcello A. Souza -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Cadastro de Cidades do Brasil
http://www.comunidade-firebird.org/modules.php?name=Downloadsd_op=getitlid=148 Dener escreveu: Olá pessoal, Alguem sabe onde encontro um cadastro com todas as cidades do Brasil ? Pode ser em qualquer formato. Obrigado. -- Dener N. da Rocha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Conversão de CLX para VCL
Senhores(as), Utilizei o aplicativo Convert Files (indicado pelo Márcio) para efetuar a conversão da minha aplicação de CLX para VCL. Entretanto, algumas interfaces convertidas (.dfm) não estão sendo visualizadas apesar da Unit abrir sem apresentar erro. Existe alguma forma de forçar a visualização da janela? Obrigado! Sds, Romario -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Quem tem IBO 4.2.ie?
Escreva para o Jason Wharton ( [EMAIL PROTECTED] ) fazendo a sua solicitação que ele aguarda você começar a ganhar dinheiro para pagar a licença. Sds, Romario Filipe Belchior escreveu: Olá pessoal, Gostaria dessa versão em especial, do IBO... Agradeço desde já pela atenção! Filipe Belchior ICQ 283735340 - MSNM [EMAIL PROTECTED] Desenvolvimento - Multibrands Consultoria em TI 21 3271-2120 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Conversão de CLX para VCL
Senhores(as), Alguém conhece alguma ferramenta ou forma de conversão (indolor) para converter uma aplicação CLX para VCL? Estou com uma aplicação pronta que não acessa a base de dados na rede (Windows) de forma alguma. Muitos tentaram ajudar (sou grato à todos por isso) e mesmo assim não obtive sucesso. Após semanas de tentativa, resolvi dar meu último tiro no escuro e migrei uma parte da aplicação para VCL e ela funcionou maravilhosamente bem. Como já estou com duas semanas de atraso na entrega e a aplicação é grande, gostaria da ajuda dos nobres colegas na indicação de uma ferramenta ou de uma forma rápida e menos traumática para essa conversão. Obrigado! Sds, Romario -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Close desprepara a query?
While... do Begin Try SQLQuery1.Close; SQLQuery1.Clear; SQLQuery1.SQL.ADD(...); SQLQuery1.ParamByName(..).AsString; SQLQuery1.Open; Except on E: Exception do ShowMessage(E.Message); End; End; Sds, Romario Paulo Geloramo escreveu: Ola Pessoal, Delphi 7 DBExpress Uma query vai ser preparada para ser executadas varias vezes, entao teremos: Try SQLQuery1.Close; SQLQuery1.Clear; SQLQuery1.SQL.ADD(...); SQLQuery1.Prepared := True; While... do begin SQLQuery1.Close; {este Close desprepara a Query??} SQLQuery1.ParamByName(..).AsString; SQLQuery1.Open; end; if SQLQuery1.Prepared then Message('Query1 continua preparada'); SQLQuery1.Close; finally SQLQuery1.Prepared := False; end; O Close do loop desprepara a query? Alguma sugestão melhor para montar esta query? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Somatorios em rave reports
Cristiano, Existe uma lista só de usuários do Rave Reports que poderá te auxiliar muito mais nas suas dúvidas. Se achar conveniente, inscreva-se lá. Link no Yahoo Grupos: http://br.groups.yahoo.com/group/rave-reports/ Para inscrever-se no grupo através de e-mail: [EMAIL PROTECTED] Sds, Romario Cristiano Bonini escreveu: Caros, Necessito de ajuda com o Rave Reports. Tenho um relatório em que preciso fazer um somatório valores de componentes calctexto. Alguem sabe como posso fazer isso? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Caminho do Banco na Rede
Senhores(as), Estou tentanto fazer com que minha aplicação se conecte ao banco de dados na rede e não estou conseguindo. Alguém poderia me dizer se estou fazendo alguma besteira no preenchimento do TSQLCOnnection através de dados de um arquivo INI? { } Procedure Tdtm_base.cnn_conexaoBeforeConnect(Sender: TObject); Var Ini: TIniFile; Begin Ini := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'Teste.ini'); With cnn_conexao do Begin Try Params.Clear; Params.Values['DriverName'] := Ini.ReadString('Borracha', 'DriverName', 'Interbase'); Params.Values['Database'] := Ini.ReadString('Borracha', 'Database', '..\Database\borracha.fdb'); Params.Values['RoleName'] := Ini.ReadString('Borracha', 'RoleName', 'RoleName'); Params.Values['User_Name'] := Ini.ReadString('Borracha', 'User_Name', 'sysdba'); Params.Values['Password'] := Ini.ReadString('Borracha', 'Password', 'masterkey'); Params.Values['ServerCharSet'] := Ini.ReadString('Borracha', 'ServerCharSet', 'WIN1252'); Params.Values['SQLDialect'] := Ini.ReadString('Borracha', 'SQLDialect', '3'); Params.Values['ErrorResourceFile'] := Ini.ReadString('Borracha', 'ErrorResourceFile', ''); Params.Values['LocaleCode'] := Ini.ReadString('Borracha', 'LocaleCode', ''); Params.Values['BlobSize'] := Ini.ReadString('Borracha', 'BlobSize', '-1'); Params.Values['CommitRetain'] := Ini.ReadString('Borracha', 'CommitRetain', 'False'); Params.Values['WaitOnLocks'] := Ini.ReadString('Borracha', 'WaitOnLocks', 'True'); Params.Values['Interbase TransIsolation'] := Ini.ReadString('Borracha', 'Interbase TransIsolation', 'ReadCommited'); Params.Values['Trim Char'] := Ini.ReadString('Borracha', 'Trim Char', 'False'); Finally Ini.Free; End; End; End; { } Também tentei dessa outra forma e não obtive êxito. Procedure Tdtm_base.cnn_conexaoBeforeConnect(Sender: TObject); Var Ini: TIniFile; Begin Ini := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'Teste.ini'); With cnn_conexao do Begin Try Params.Clear; Params.Add('DriverName:=' + Ini.ReadString('Borracha', 'DriverName', 'Interbase')); Params.Add('Database:=' + Ini.ReadString('Borracha', 'Database', '..\Database\borracha.fdb')); Params.Add('RoleName:=' + Ini.ReadString('Borracha', 'RoleName', 'RoleName')); Params.Add('User_Name:=' + Ini.ReadString('Borracha', 'User_Name', 'sysdba')); Params.Add('Password:=' + Ini.ReadString('Borracha', 'Password', 'masterkey')); Params.Add('ServerCharSet:=' + Ini.ReadString('Borracha', 'ServerCharSet', 'WIN1252')); Params.Add('SQLDialect:=' + Ini.ReadString('Borracha', 'SQLDialect', '3')); Params.Add('ErrorResourceFile:=' + Ini.ReadString('Borracha', 'ErrorResourceFile', '')); Params.Add('LocaleCode:=' + Ini.ReadString('Borracha', 'LocaleCode', '')); Params.Add('BlobSize:=' + Ini.ReadString('Borracha', 'BlobSize', '-1')); Params.Add('CommitRetain:=' + Ini.ReadString('Borracha', 'CommitRetain', 'False')); Params.Add('WaitOnLocks:=' + Ini.ReadString('Borracha', 'WaitOnLocks', 'True')); Params.Add('Interbase TransIsolation:=' + Ini.ReadString('Borracha', 'Interbase TransIsolation', 'ReadCommited')); Params.Add('Trim Char:=' + Ini.ReadString('Borracha', 'Trim Char', 'False')); Finally Ini.Free; End; End; End; { } Meu arquivo INI está da seguinte forma: [Borracha] DriverName=Interbase Database=RBR:C:\Documents and Settings\All Users\Documentos\Borracha\Database\borracha.fdb RoleName=RoleName User_Name=sysdba Password=masterkey ServerCharSet=WIN1252 SQLDialect=3 ErrorResourceFile= LocaleCode= BlobSize=-1 CommitRetain=False WaitOnLocks=True Interbase TransIsolation=ReadCommited Trim Char=False { } Agradeço qualquer dica, exemplo, ou link que me ajude a solucionar esse problema. Sds, Romario -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Caminho do Banco na Rede
Eduardo, Obrigado por tentar ajudar! Nas máquinas que estou fazendo o teste não tem IP setado. Estou tendo que buscar pelo nome da máquina servidora. Elas se enxergam na rede e a pasta está compartilhada, mas em runtime não funciona nem à tapa. Fiz um teste setando o caminho diretamente no TSQLConnection e quando altero a propriedade Connected para True ele funciona, mas em runtime volta a dar erro. Mesmo com a aplicação rodando no servidor, não estou conseguindo acessar o banco de dados fora da pasta onde foi criado o projeto. Se tiver mais alguma dica... Sds, Romario Eduardo Ledo escreveu: Salve Romario,,, Outra coisa pode estar relacionado com a pasta onde esta o SGBD. Como se trata do XP devemos todos ter acesso a essa pasta. Melhor seria criar um pasta exclusiva e compartilha-la com toda a rede. [[]] Eduardo Ledo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Conexão do Banco na Rede
Senhores(as), Preciso entregar o sistema funcionando até amanhã pela manhã e não estou conseguindo me conectar ao banco de dados no servidor. Setei o caminho do banco no arquivo ini e apesar de ler corretamente o arquivo, o banco de dados não está sendo visto pela aplicação. A linha que especifica o caminho do banco está da seguinte forma: Database=GERENTE:C:\Projeto\Database\Testedb.fdb Existe alguma aplicação Cliente do Firebird que devo instalar? A única DLL que a aplicação solicitou foi a qtintf70.dll. Existe mais alguma DLL a ser transportada junto com a aplicação? Agradeço a ajuda dos nobres colegas. Sds, Romario -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Constructor de Classe
Luiz Eduardo, Porque ACep é do tipo TEndereco? ACep ao meu ver deveria ser do tipo TCep (dependendo do nº de atributos) ou um atributo (do tipo String) da classe TEndereco. Ex.: Endereco := TEndereco.Create; Endereco.Cep := edtCep.Text; De que forma você criou a sua classe TEndereco? Quanto ao objeto de conexão, não acho que você deveria tratá-lo dentro da classe. Porque não cria um DataModule só para ele ou o coloca no seu DataModule base (de onde serão herdados os demais DataModules)? Dessa forma, você não precisaria enviá-lo como parâmetro. Bastaria uma chamada ao ancestral no momento em que for preciso comunicar-se com o banco de dados. Ex.: Inherited AbreConexao; Bem, espero não ter aumentado ainda mais as suas dúvidas. Sds, Romario Luiz Eduardo Araujo - TI escreveu: Srs, bom dia. Criei uma classe cujo o constructor recebe dois parâmetros: Uma string e um objeto TADOConnection. Dentro desse mesmo constructor, possuo um objeto TADOQuery declarado, que após a criação, recebe na propriedade Connection o objeto TADOConnection que passe como parâmetro, porem, nesse momento o sistema apresenta um erro de Access Violation. Segue uma parte do código fonte: //Formulário var ACep : TEndereco; begin conEndereco.Connected := True; ACep := TEndereco.Create(edtCep.Text,conEndereco); //Classe Constructor TEndereco.Create(pCep: String; var pConexao: TADOConnection); var AdoQuery : TADOQuery; begin AdoQuery := TADOQuery(Self); AdoQuery.Close; AdoQuery.Connection := pConexao; Na linha em negrito, o sistema apresenta o erro. Alguém saberia me dizer o que está ocorrendo? Agradeço qualquer ajuda. Atenciosamente, Luiz Eduardo de Araujo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: RES: [delphi-br] Edit ou DBEdit
Filipe, Compre o livro que indiquei. Você não se arrependerá. Título : Desenvolvendo Aplicações com Uml 2.0 Autor : Ana Cristina Melo Editora : Brasport Edição : 2/2004 ISBN: 8574521752 Páginas : 284 Obs.: Vou começar a cobrar da autora e da Editora pelas propagandas que estou fazendo. (hehe) Sds, Romario Filipe escreveu: Alguem poderia dar um exemplo de como usar os edits para os leigos da lista??? Ou um link com alguma apostila sobre isso... Obrigado. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: RES: [delphi-br] Edit ou DBEdit
Na Classe você teria: Function TEmpresa.SalvaEmpresa: Boolean; Begin Result := dtm_empresa.SalvaEmpresa(Self); End; == No DataModule você teria: (isso é só parte do código) Function Tdtm_empresa.SalvaEmpresa(oEmpresa: TEmpresa): Boolean; Begin Result := False; With dtm_empresa.cds_empresa do Begin Try ... FieldByName('RazaoSocial' ).AsString := oEmpresa.RazaoSocial; FieldByName('NomeFantasia').AsString := oEmpresa.NomeFantasia; FieldByName('CNPJ').AsString := oEmpresa.CNPJ; FieldByName('InscEstadual').AsString := oEmpresa.InscEstadual; Post; If ApplyUpdates(0) = 0 Then Result := True; Except on E: Exception do ShowMessage(E.Message); End; End; End; == Fiz de cabeça diretamente no corpo do e-mail. Pode ser que haja erro. Espero ter ajudado na compreensão. Uma ótima referência é o livro: Título : Desenvolvendo Aplicações com Uml 2.0 Autor : Ana Cristina Melo Editora : Brasport Edição : 2/2004 ISBN: 8574521752 Páginas : 284 Sds, Romario Cícerot escreveu: Desculpe a ignorancia e já concordando (óbvio por isso minha pergunta), o que se faz depois de criado o empresa.salvaempresa. Já que ficou tao bonito... me diga como continuar com o salvaempresa (assumo que sou um desses que voce falou) mais eu chego lá -Mensagem original- De: Romario (Delphi) [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 23 de setembro de 2004 18:18 Para: [EMAIL PROTECTED] Assunto: Re: RES: [delphi-br] Edit ou DBEdit O problema é que dessa forma você chutou a orientação a objetos para bem longe da sua aplicação. As ferramentas RAD induzem o programador a trabalhar de uma forma não muito orientada a objetos. Criamos funções e procedimentos, utilizamos vários dos eventos que a ferramenta nos disponibiliza e fechamos os olhos para enxergar o futuro que virá pela frente. Quando damos ênfase à orientação a objetos e trabalhamos de uma forma a reusar nossos objetos no futuro, estamos evitando ser comparados com aqueles que alguns chamam de meros pregadores de botão. Aí você diz: a minha função é reusável, mas será que você pensou que ela poderia ser um objeto? Que ela poderia ter atributos e métodos próprios? Que poderia ao invés de receber vários componentes, receber apenas as informações necessárias? Ex. do código na Interface: Empresa:= TEmpresa.Create; Empresa.RazaoSocial := edt_razao.Text; Empresa.NomeFantasia := edt_nome.Text; Empresa.CNPJ := edt_cnpj.Text; Empresa.InscricaoEstadual := edt_inscricao.Text; Empresa.SalvaEmpresa; Lembre-se que programar qualquer um pode, mas desenvolver com excelência são poucos os que conseguem. Espero que um dia eu consiga chegar lá. Sds, Romario -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Edit ou DBEdit
Eu faço a leitura na tabela e populo o TComboBox com os objetos retornados. Ex.: Function TEmpresa.BuscaEmpresas: TList; Var lstEmpresas: TList; oEmpresa: TEmpresa; Begin lstEmpresas := TList.Create; dtm_empresa.BuscaEmpresas; With dtm_empresa.cds_empresa do Begin Try If RecordCount 0 Then Begin First; While Not EOF do Begin oEmpresa := TEmpresa.Create; oEmpresa.RazaoSocial := FieldByName('RazaoSocial' ).AsString; oEmpresa.NomeFantasia := FieldByName('NomeFantasia').AsString; oEmpresa.CNPJ := FieldByName('CNPJ').AsString; oEmpresa.InscEstadual := FieldByName('InscEstadual').AsString; lstEmpresas.Add(oEmpresa); Next; End; End; Except on E: Exception do ShowMessage(E.Message); End; End; Result := lstEmpresas; End; { } Populando o TComboBox: Procedure Tfrm_empresa.ListaEmpresas; Var i: Integer; Begin lstEmpresas := Empresa.BuscaEmpresas; If lstEmpresas.Count 0 Then Begin For i := 0 to lstEmpresas.Count - 1 do Begin Empresa := lstEmpresas[i]; grd_empresa.Cells[0, i + 1] := Empresa.RazaoSocial; grd_empresa.Cells[1, i + 1] := Empresa.NomeFantasia; grd_empresa.Cells[2, i + 1] := Empresa.CNPJ; grd_empresa.Cells[3, i + 1] := Empresa.InscEstadual; End; End; End; { } Espero ter ajudado na compreensão. Sds, Romario Willian Jerônymo - Yahoo escreveu: Programando dessa maneiro (sem componentes Data Ware) como faço com os meus DBLookupComboBoxs ? Esse componente é uma mãe em nossas aplicações... Alguém tem alguma dica ? Willian -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componentes data-aware, usar ou nao usar?
Segue abaixo a resposta do Demian quando fiz essa pergunta à ele. Em teoria, isolar a apresentação de dados em datasets e permitir sua edição em controles data-aware é possível. Em teoria. Na prática, é improvável que a visão relacional e a visão OO dos modelos de dados sejam as mesmas. Para complicar, é comum que as interface de dados oferecidas aos clientes não representam exatamente os modelos de dados no SGBD subjacente, mas uma variação, uma visão particularizada desse modelo. Quando quebramos o paradigma de persistência em camadas, é comum acabarmos com objetos de dados, utilizados por objetos de negócios, passados para controladores de visão que, por sua vez, definem a interface visual a usar para editar os dados de negócios. Esses dados são retornados ao longo das camadas até dispararem alterações em um ou mais objetos de dados. Essa é a situação vista genericamente. Se o modelo de aplicativo é simples o suficiente para que as camadas de dados e negócios se fundam, é possível utilizar uma só família de objetos para representar os dados (classe genérica de negócios). Se, esses objetos forem mapeados (ida-e-volta) aos dados de um TDataSet residente em memória (memory table), passa a ser possível editar os dados dos objetos usando controles data-aware. Importante, como eu mostro aqui, é que para ter isso OO você tem que resolver um problema relacionado com a lacuna semântica que existe entre o modelo relacional (registros, campos) e o modelo de objetos através de um mapeamento. Essa abordagem pode ser estendida para as situações onde os dados oferecidos nas interfaces com o usuário são obtidos da camada de negócios. Na ida, fica assim: SGBD - objetos DAO - objetos de negócios - mapeamento para TDataSet - UI com controles data-aware e na volta: TDataSet alterado - mapeamento para objetos de negócios - objetos DAO - SGBD Quando objetos DAO e de negócios se fundem numa só camada (padrão Active Record), o modelo fica mais simples. Como se vê, basta que sua camada de apresentação resolva o problema para você. Usar controles data-aware per se não é ruim. É até bacana. Desde que se saiba o que se está fazendo. Isto é, desde que seja apenas uma questão de APRESENTAÇÃO. Os mapeamentos entre o dataset e os objetos de negócios ou dados terão que existir, caso contrário, a abordagem será qualquer coisa, menos programação OO. Sds, Romario Marcos Antonio escreveu: Caros Colegas, estou tendo um trabalhao para substituir os comp. data-aware em meu sistema. DBEdit - Edit, mas estou com grande dificuldade para incluir/mostrar registros em DBGrids e agora talvez StringGrid, que sao detalhes de outros registros. Qual é o mais aconselhavel para este caso? Abracos. Marcos Antonio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Uso do UPDATE nos componentes DBExpress.
Cristiano, Com o conjunto TSQLDataSet + TDataSetProvider + TClientDataSet basta você efetuar a atualização diretamente no ClientDataSet e depois efetuar um Post seguido do ApplyUpdates. Ex.: With SeuDataModule.SeuClientDataSet do Begin Try FieldByName('nome').AsString := Cliente.Nome; FieldByName('endereco').AsString := Cliente.Endereco; FieldByName('datanasc').AsDateTime := Cliente.DataDeNascimento; Post; ApplyUpdates(0); Except on E: Exception do ShowMessage(E.Message); End; End; Espero ter ajudado. Sds, Romario Cristiano do Amaral escreveu: Olá pessoal, Estou com um probleminha: Não estou conseguindo executar o exemplo abaixo nos componentes TSQLDataSet + TDataSetProvider + TClientDataSet ou no SQLQuery ou no TSQLClientDataSet. Testei em cada um deles e sem sucesso. :( Exemplo executado: UPDATE produtos SET preco_custo = 23.35 WHERE cd_produto BETWEEN '2' AND '3' Está dando essa mensagem de erro: DataSet1: Cursor not returned from Query. Desde já, muito obrigado. Abraços, Cristiano do Amaral Oliveira. BAMPETRO/ON - Tecnologia da Informação Site: http://www.bampetro.org Email: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Edit ou DBEdit
O problema é que dessa forma você chutou a orientação a objetos para bem longe da sua aplicação. As ferramentas RAD induzem o programador a trabalhar de uma forma não muito orientada a objetos. Criamos funções e procedimentos, utilizamos vários dos eventos que a ferramenta nos disponibiliza e fechamos os olhos para enxergar o futuro que virá pela frente. Quando damos ênfase à orientação a objetos e trabalhamos de uma forma a reusar nossos objetos no futuro, estamos evitando ser comparados com aqueles que alguns chamam de meros pregadores de botão. Aí você diz: a minha função é reusável, mas será que você pensou que ela poderia ser um objeto? Que ela poderia ter atributos e métodos próprios? Que poderia ao invés de receber vários componentes, receber apenas as informações necessárias? Ex. do código na Interface: Empresa:= TEmpresa.Create; Empresa.RazaoSocial := edt_razao.Text; Empresa.NomeFantasia := edt_nome.Text; Empresa.CNPJ := edt_cnpj.Text; Empresa.InscricaoEstadual := edt_inscricao.Text; Empresa.SalvaEmpresa; Lembre-se que programar qualquer um pode, mas desenvolver com excelência são poucos os que conseguem. Espero que um dia eu consiga chegar lá. Sds, Romario Alisson escreveu: Eu, particularmente prefiro usar Edit e outros components não Data Aware. Geralmente componentes muito automatizados são mais difíceis de controlar. Inicialmente você pode pensar que terá muito trabalho com eles, mas se você for criativo você poderá desenvolver functions e procedures que te auxiliarão muito. Por exemplo, eu desenvolvi functions que geram o código SQL para inclusão, exclusão, alteração e consulta. Eu apenas passo os componentes como parâmetros e a function faz o resto. O exemplo abaixo seria a chamada da função que faz a inclusão de um registro em uma tabela. Ela gera o codigo SQL, verifica os campos que são requeridos, o tipo dos campos e faz a inserção. Inclusao('Config', 'Empresa',[edtEmpresa, edtEndEmp, edtBairroEmp, edtCidadeEmp, cbbEstadoEmp, edtTelEmp, edtCodCliente, edtMsgPed, edtNumViasPV, rdgHabDesCGeral,edtFigRel, chbContChCx]); - Original Message - From: Romario (Delphi) To: [EMAIL PROTECTED] Sent: Thursday, September 23, 2004 11:09 AM Subject: Re: RES: [delphi-br] Edit ou DBEdit Não querendo criar polêmica, mas já criando: - Se você quer aprender mais, ter mais dor de cabeça e pensa em migrar seus aplicativos para multicamadas, utilize componentes NÃO data-aware. - Se você quer aprender menos, ter menos dor de cabeça e não pretende migrar seus aplicativos para multicamadas, utilize componentes data-aware. Acredito que as dificuldades que você encontra tendo que fazer as coisas na unha, auxilia e muito no seu conhecimento. Use e abuse da Orientação a Objetos. ;-) Sds, Romario -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componentes data-aware, usar ou nao usar?
Artur, O Demian não respondeu à essa pergunta feita pelo colega. Eu apenas utilizei uma resposta que ele deu para uma outra pergunta que fiz à ele. Como achei que tinha uma boa explicação falando da possibilidade, mesmo que remota, na utilização de camadas com componentes data-aware, eu postei a mensagem dele. Acho que a mensagem que enviei ficaria melhor apresentada no tópico Edit ou DBEdit discutida antes desse tópico. Ela sim tinha tomado um rumo que levaria à essa resposta. Sds, Romario Artur Anjos escreveu: Romario, O Demian respondeu bem acertado, mas dentro do contexto de um modelo OO. A pergunta não foi bem essa: foi a de usar ou não componentes data-aware. Esta resposta do Demian é muito válida, mas fora do contexto da discussão. Componentes DBAware podem poupar imenso trabalho, e existem milhares de casos que uma aproximação OO é matar mosquito com canhão. Os próprios componentes DB-aware não são todos iguais, e é dificil de os generalizar. A pergunta é válida. Mas, na minha modesta opinião, é como perguntar qual a melhor linguagem de programação. Dentro de um contexto, - como o demian respondeu muito bem - é possível a tentativa de uma análise. Genericamente, é casa sem pão: todos ralham e ninguém tem razão. Faz lembrar porque é que existe uma versão Classic e uma SuperServer do Firebird: se uma das opções fosse claramente superior à outra, você acha que se perdia tempo a desenvolver as duas ? :-))) Artur -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Encontrar Objeto no ComboBox
Senhores(as), Tenho uma grade na minha aplicação onde listo todos os funcionários da empresa que utilizam uma determinada linha de transporte. Quando clico na grade, eu recupero o objeto (Funcionário) contido nessa linha e preciso encontrar esse funcionário dentro de um ComboBox onde estão listados todos os Funcionários da Empresa. Já tentei utilizar o função IndexOfObject, mas ela só retorna -1. Criei uma StringList com os mesmos objetos do ComboBox para recuperar o índice desse objeto e setá-lo no ComboBox, mas também não obtive exito. Alguém já conseguiu fazer algo assim e poderia me dar umas dicas? Obrigado! P.S.: Peço desculpas aos que participam de mais de uma lista e que estarão recebendo minha mensagem nas demais. Só o fiz porque estou com a corda no pescoço por não ter entregue esse sistema ontem (fim do prazo). Sds, Romario -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Encontrar Objeto no ComboBox
Henrique, Obrigado por responder! Na verdade, os objetos são diferentes. Os objetos da grade possuem uma instância do objeto funcionário dentro da classe e no ComboBox, os objetos vem diretamente da classe TFuncionario. Sds, Romario Henrique Meira escreveu: Tenho uma grade na minha aplicação onde listo todos os funcionários da empresa que utilizam uma determinada linha de transporte. Quando clico na grade, eu recupero o objeto (Funcionário) contido nessa linha e preciso encontrar esse funcionário dentro de um ComboBox onde estão listados todos os Funcionários da Empresa. Já tentei utilizar o função IndexOfObject, mas ela só retorna -1. Criei uma StringList com os mesmos objetos do ComboBox para recuperar o índice desse objeto e setá-lo no ComboBox, mas também não obtive exito. Alguém já conseguiu fazer algo assim e poderia me dar umas dicas? Vc, tem certeza absoluta de que o objeto contido na grade é o mesmo contido no combobox? Quero dizer, o endereço do objeto é o mesmo? Faça um teste, capture o endereço do objeto apontado na grade e tente liste os endereços apontados no combobox, veja se existe algum semelhante. Provavelmente, penso eu, vc está adicionando referencias trocadas. Quando adicionar os objetos aos containers, procure inserir o endereço do objeto. Consulte os operadores ^ e . Agora não me lembro da sintaxe correta para você fazer esta referencia, mas é algo como: combobox.item.addobject(MeuObjeto); desculpe, realmente não me lembro. E este mesmo modelo vc aplicaria à grade, assim teria a referencia do objeto corretamente. henrique. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Encontrar Objeto no ComboBox
Senhores(as), Resolvi o problema com a seguinte gambiarra: 1) Populei uma StringList com os mesmos objetos do ComboBox. 2) Recuperei o código no objeto funcionário selecionado na grade. 3) Percorri a StringList procurando qual dos objetos tinha o código. 4) Recuperei o índice. 5) Setei o índice no ComboBox. Com certeza não é a melhor forma de se fazer, mas temporariamente vai manter a corda bem longe do meu pescoço. Obrigado à todos que tentaram ajudar! Sds, Romario Henrique Meira escreveu: Tenho uma grade na minha aplicação onde listo todos os funcionários da empresa que utilizam uma determinada linha de transporte. Quando clico na grade, eu recupero o objeto (Funcionário) contido nessa linha e preciso encontrar esse funcionário dentro de um ComboBox onde estão listados todos os Funcionários da Empresa. Já tentei utilizar o função IndexOfObject, mas ela só retorna -1. Criei uma StringList com os mesmos objetos do ComboBox para recuperar o índice desse objeto e setá-lo no ComboBox, mas também não obtive exito. Alguém já conseguiu fazer algo assim e poderia me dar umas dicas? Vc, tem certeza absoluta de que o objeto contido na grade é o mesmo contido no combobox? Quero dizer, o endereço do objeto é o mesmo? Faça um teste, capture o endereço do objeto apontado na grade e tente liste os endereços apontados no combobox, veja se existe algum semelhante. Provavelmente, penso eu, vc está adicionando referencias trocadas. Quando adicionar os objetos aos containers, procure inserir o endereço do objeto. Consulte os operadores ^ e . Agora não me lembro da sintaxe correta para você fazer esta referencia, mas é algo como: combobox.item.addobject(MeuObjeto); desculpe, realmente não me lembro. E este mesmo modelo vc aplicaria à grade, assim teria a referencia do objeto corretamente. henrique. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html