faz assim ó
var:
wslAux : TStringList
wVar : string;
begin
wslAux := TStringList.Create
try
wslAux.LoadFromFile('Arq.txt');
wVar := wslAux.Text;
{
ou
wVar := wslAux.commatext;
ou
wVar := '';
for x1:=0 to wslAux.count-1 do
wVar := wVar + wslAux[x1]
}
finally
wslAux.Free;
end;
end
Jean Barreiros escreveu:
>
> 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] <mailto:jean%40comerciofsa.com.br>
> e-mail: [EMAIL PROTECTED] <mailto:delphijean%40gmail.com>
>
> ----- Mensagem original ----
> De: Filippe Maymone <[EMAIL PROTECTED]
> <mailto:filippe_info%40globo.com>>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Cc: [EMAIL PROTECTED]
> <mailto:lista-delphi%40yahoogrupos.com.br>
> 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/ <http://br.mail.yahoo.com/>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
