Arquivo Texto

Delphi

25/10/2004

Como dou um while em um arquivo texto para que seja lido uma linha de cada vez? obrigado...


Foxcyber

Foxcyber

Curtidas 0

Respostas

Rodolpho123

Rodolpho123

25/10/2004

Vc pode usar o [b:c132f226f6]for - to - do[/b:c132f226f6] em vez de [b:c132f226f6]while[/b:c132f226f6]. Carrege seu arquivo txt para um Memo, por exemplo, e faça assim:
var
i: intger;
LinhaEmFoco: string;

  begin
     for i := 1 to Memo1.Lines.Count do begin
       LinhaEmFoco := Memo1.Lines.Strings[i];
     end;
  end;



GOSTEI 0
Foxcyber

Foxcyber

25/10/2004

E como eu carregaria ele linha a linha em um memo????


GOSTEI 0
Foxcyber

Foxcyber

25/10/2004

Não entendi essa solução não.


GOSTEI 0
Marcio.theis

Marcio.theis

25/10/2004

você pode fazer o seguinte:

var
txt: TextFile;
str: string;
begin
//txt -> variável do tipo texto;

//carrega o arquivo para o txt.
AssignFile(txt, caminhodoarquivo);
//vai para a primeira linha.
{$I-}
Reset(txt);
{$I+}
//verifica se esta ou não corrompido.
if IOResult = 0 then
begin
while not Eof(txt) do
//carrega a linha para a variavel auxiliar str.
Readln(txt, str);
end;
CloseFile(txt);
end;

qualquer dúvida entre em contato.

espero ter ajudado.


GOSTEI 0
Foxcyber

Foxcyber

25/10/2004

Valeu é isso mesmo que queria. obrigado


GOSTEI 0
Rodolpho123

Rodolpho123

25/10/2004

Vc pode usar o [b:fbb377bad6]for - to - do[/b:fbb377bad6] em vez de [b:fbb377bad6]while[/b:fbb377bad6]. Carrege seu arquivo txt para um Memo, por exemplo, e faça assim: 
var
i: intger;
LinhaEmFoco: string;

  begin
     for i := 1 to Memo1.Lines.Count do begin
       LinhaEmFoco := Memo1.Lines.Strings[i];
     end;
  end;


A variável ´i´ é o número corrente do loop que está sendo executado. Como aqui é feito um loop nas linhas do seu arquivo, é passado para o Memo ler a linha referente ao loop. Ex:

Seu texto:
A
B
C
D

Quatro linhas, correto? Então o [b:fbb377bad6]for[/b:fbb377bad6] vai fazer 4 loop´s.
Dentro do bloco, é passado para a variável ´LinhaEmFoco´ o valor de ´i´. No primeiro loop, i = 1 e o Memo lê a linha 1;
Segundo loop, i = 2 e o Memo lê a linha 2, e assim por diante...


GOSTEI 0
Rjun

Rjun

25/10/2004

Use TStringList.


GOSTEI 0
POSTAR