ver se isso te serve:
VarGlobal;
Linha: String;
procedure percorreArquivoTexto ( nomeDoArquivo: String );
var
arq: TextFile;
begin
AssignFile ( arq, nomeDoArquivo ); //Cria ou Carrega o arquivo;
Reset ( arq ); //Abre para somente leitura;
while not Eof ( arq ) do //Enquanto não for o fim do arquivo faça;
begin
Linha := Linha + ReadLn ( arq, linha ); //adiciona a var Linha o valor lido
na linha do arquivo;
end;
CloseFile ( arq ); //Fecha o Arquivo ao terminar;
end;
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]
----- Mensagem original ----
De: Filippe Maymone <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Cc: [EMAIL PROTECTED]
Enviadas: Quinta-feira, 29 de Maio de 2008 15:01:58
Assunto: [delphi-br] Fw: TXT para variavel
----- Original Message -----
From: Filippe Maymone
To: lista-delphi@ yahoogrupos. com.br ; [EMAIL PROTECTED] os.com.br
Sent: Tuesday, April 29, 2008 1:50 PM
Subject: TXT para variavel
GAlera boa tarde
Eu tenho um arquivo TXT com alguns codigos exemplo:
01,03,120,301, 359,623,700
Eu preciso pegar desse TXT esses codigos e jogar para uma variavel string.
Teria como fazer isso ??
Abraços,
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
