O jeito mais fácil
var Arquivo: TStrings; begin Arquivo := TStringList.Create; Arquivo.LoadFromFile('c:\teste.txt'); ... Arquivo.Free; end; Atenciosamente, Bráulio Figueiredo Pinto [EMAIL PROTECTED] www.brauliofigueiredo.com.br Certificado por CA Cert Signing Authority (este e-mail só pode ser considerado autêntico se assinado digitalmente) ----- Original Message ----- From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 14, 2006 3:53 PM Subject: Re: [delphi-br] Ler arquivo TXT. var f : textfile; cod : integer; nome : string; s : string; begin if opendialog1.execute then begin assignfile(f,opendialog1.filename); reset(f); while not eof(f) do begin readln(f,s); if s <> '' then begin cod := strtoint(copy(s,1,pos(',',s)-1)); nome := copy(s,pos(',',s)+1,length(s)); table1.append; table1.fieldbyname('cod').asinteger := cod; table1.fieldbyname('nome').asstring := nome; table1.post; end; end; closefile(f); showmessage('Pronto') end; end; ----- Original Message ----- From: barblo25 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, November 14, 2006 4:10 PM Subject: [delphi-br] Ler arquivo TXT. Galera, Eu tenho um arquivo txt como o seguinte layout: 1, JOSE ANTONIO 2, MARCOS 3, PEDRO 4, MANOEL TEnho um banco no firebird com a tabela de cliente com os campos codigo (integer) e nome (vachar), queria uma rotina (funcao ou procedimento) que pudesse ler o txt e incluir esses dados na tabela. Alguem poderia me ajudar. Desde ja Agradeco Leonardo Anselmo __________ Informação do NOD32 1865 (20061114) __________ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]