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]
