Dúvida no RicheEdit Urgente!

Delphi

29/03/2003

Olá boa tarde!
Estou abrindo um arquivo txt dentro do richeedit, e estou fazendo uma
condição for para ler esse arquivo dentro do richeedit gostaria de saber como fasso para eu ler linha a linha desse arquivo dentro do richeedit?

Obrigado


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

29/03/2003

Olá boa tarde! Estou abrindo um arquivo txt dentro do richeedit, e estou fazendo uma condição for para ler esse arquivo dentro do richeedit gostaria de saber como fasso para eu ler linha a linha desse arquivo dentro do richeedit? Obrigado


Segue um pequeno exemplo entre outras alternativas:

procedure TForm1.FormCreate(Sender: TObject);
var nI, nLinhas: Integer;
begin
RichEdit1.Lines.Clear;
  RichEdit1.Lines.LoadFromFile(´c:\autoexec.bat´);
nLinhas := RichEdit1.Lines.Count;
  ShowMessage(IntToStr(nLinhas));
  For nI := 0 To nLinhas-1 do
  begin
  TratarLinha(RichEdit1.Lines.Strings[nI]);
  end;
end;

procedure TForm1.TratarLinha(Linha: String);
begin
ShowMessage(Linha);
end;



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

29/03/2003

procedure TForm1.FormCreate(Sender: TObject);
var nI, nLinhas: Integer;
begin
RichEdit1.Lines.Clear;
RichEdit1.Lines.LoadFromFile(´c:\autoexec.bat´);
nLinhas := RichEdit1.Lines.Count;
ShowMessage(IntToStr(nLinhas));
For nI := 0 To nLinhas-1 do
begin
TratarLinha(RichEdit1.Lines.Strings[nI]);
end;
end;

procedure TForm1.TratarLinha(Linha: String);
begin
ShowMessage(Linha);
end;

Só ratificando, pois não estava logado.


GOSTEI 0
POSTAR