Arquivo Texto

Question

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

Rodolpho123 · Answer

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;

Foxcyber · Answer

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

Foxcyber · Answer

N�o entendi essa solu��o n�o....

Marcio.theis · Answer

voc� pode fazer o seguinte:vartxt: 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....

Foxcyber · Answer

Valeu � isso mesmo que queria. obrigado...

Rodolpho123 · Answer

[quote:fbb377bad6=�Rodolpho123�]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:[code:1:fbb377bad6]vari: intger;LinhaEmFoco: string;  begin     for i := 1 to Memo1.Lines.Count do begin       LinhaEmFoco := Memo1.Lines.Strings&#91;i&93;;     end;  end;  [/code:1:fbb377bad6][/quote:fbb377bad6]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    DQuatro 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......

Rjun · Answer

Use TStringList....

F�rum Arquivo Texto #255935