Fórum Dúvida no RicheEdit Urgente! #150431

29/03/2003

0

Delphi

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

Responder

Posts

29/03/2003

Anonymous

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;



Responder

Gostei + 0

29/03/2003

Aroldo Zanela

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.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar