Será porque o comando edit.text := copy(Slinha,1,10);
está dentro do LOOP. Ele vai pegar somente a última linha(como nosso amigo Sedinei falou anteriormente). Se vc quer colocar tipo o compiler do Delphi não seria melhor ao invéz de usar o TEDit não usar um TMemo e ir adicionando as linhas dentro do LOOP?? Memo1.Lines.Add(copy(Slinha,1,10)); Abraços, Eduardo RC Neto Desenvolvimento de Sistemas ---------------------------------------------- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br -------Mensagem original------- De: Sedinei Oliveira Data: 11/16/04 16:44:41 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Duvida simples, acredito! Olá! Talvez tua última linha esteja em branco... por isso não aparece nada. Pode também tentar o seguinte: coloca um application.processmessages após setar o valor do edit. Abraços. On Tue, 16 Nov 2004 16:29:51 +0000, Fabiano Arndt <[EMAIL PROTECTED]> wrote: > > experimenta colocar um edit.Refresh após passar o texto pro edit. > isso deve resolver. > > Fabiano. > > AssignFile (TarqtblPr, edtArquivo.text); > Reset (TarqtblPr); > while not Eof (TarqtblPr) do > begin > ReadLn (TarqtblPr,Slinha); > edit.text := copy(Slinha,1,10); > edit.Refresh; > end; > > >From: "mds_rs" <[EMAIL PROTECTED]> > >Reply-To: [EMAIL PROTECTED] > >To: [EMAIL PROTECTED] > >Subject: [delphi-br] Duvida simples, acredito! > >Date: Tue, 16 Nov 2004 16:02:58 -0000 > > > > > > > >Olá, > > > >Estou tentando mostrar em um Tedit o resultado de um processamento > >(LOOP), porem nao estou conseguindo. > > > >O processo eh leitura de um arquivo texto > > AssignFile (TarqtblPr, edtArquivo.text); > > Reset (TarqtblPr); > > while not Eof (TarqtblPr) do > > begin > > ReadLn (TarqtblPr,Slinha); > > edit.text := copy(Slinha,1,10); > > end; > >Porém ele nao mostra no tEdit este conteudo, mas se eu debugar a > >aplicacao o text do TEdit tem o conteudo correto! > > > >Na verdade, oq eu gostaria de fazer era a mesma coisa que o compiler > >do delphi faz, onde mostra o programa que esta compilando, linhas, > >warnings etc... > >Grato, > >Márcio > > > > > > > > _________________________________________________________________ > MSN Messenger: converse com os seus amigos online. > http://messenger.msn.com.br > > > > > -- > <<<<< 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 > > > > > -- Sedinei K. Oliveira -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: 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 Termos do Serviço do Yahoo!. [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
