tem que trocar o ReWrite por append ou read .. algo assim.. de uma pesquisada no google, voce esta no caminho..
usando AssignFile é bem mais rapido. Att. MArcio. At 19:34 27/7/2009 -0300, you wrote: > > > >Pessoal, > >preciso gravar umas informaçoes em arquivo texto como um log. Como faço >para abrir o arquivo, posicionar o ponteiro no fim do arquivo, escrever as >informações, salvar e fechar o arquivo. Criei uma forma que cria sempre o >arquivo vazio, mas eu queria abri-lo e acrescentar a linha. > >var >F: TextFile; >S: String; >begin >AssignFile(F, 'driver.@@@'); >ReWrite(F); >S := frmMain.CDSDrivernumber.AsString + ',' + >frmMain.CDSDriverideal_lap.AsString; >WriteLn(F, S); >frmMain.CDSDriver.Next; >CloseFile(F); >end; > >Att, > >Marcos A. Ferreira >São Paulo - Brasil > >MSN: <mailto:maferreira%40hotmail.it>maferre...@hotmail.it >Google Talk: maf.decisiva >Skype: m_abreuferreira > >Esta mensagem pode conter informação confidencial e/ou privilegiada. Se >você não for o destinatário ou a pessoa autorizada a receber esta >mensagem, não pode usar, copiar, ou divulgar as informações nela contidas >ou tomar qualquer ação baseada nestas informações. Se você recebeu esta >mensagem por engano, por favor, avise imediatamente o remetente, >respondendo o email e em seguida, apague-o. >Agradecemos sua cooperação. > >This message may contain confidential and/or privileged information. If >you are not the addressee or authorized to receive this for the addressee, >you must not use, copy, disclose or take any action based on this message >or any information herein. If you have received this message in error, >please, advise the sender immediately by reply e-mail and delete this message. >Thank you for your cooperation. > >Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO >AMBIENTE. >ENVIRONMENT commitment and responsibility, think about Before Printing. > >[As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas]