Preciso converter TEXT para STRING ?

Delphi

20/03/2003

 Como posso converte uma [color=red:a25be71464]string em uma text ? [/color:a25be71464]
Vou usar isso para abrir um txt num RichEdit1!

procedure TFrmEditor.Abrir1Click(Sender: TObject);
var
texto : TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(texto ,OpenDialog1.FileName);
reset(texto);
richedit1.Text := texto;


Porttime

Porttime

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

20/03/2003

 Como posso converte uma [color=red:db36e7346d]string em uma text ? [/color:db36e7346d] Vou usar isso para abrir um txt num RichEdit1! procedure TFrmEditor.Abrir1Click(Sender: TObject); var texto : TextFile; begin if OpenDialog1.Execute then begin AssignFile(texto ,OpenDialog1.FileName); reset(texto); richedit1.Text := texto;


Apaga tudo.
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);


GOSTEI 0
Dor_poa

Dor_poa

20/03/2003

opa... tem coisa errada ai...
o texto que vc. definiu não é um texto.. mas sim uma variavel indicando que é um arquivo...

O que vc. fez ali foi só utilizar o arquivo.. e mais nada..
se vc. quiser ler o conteudo dele é outra coisa.

vc. tera que usar o comando ReadLn
ReadLn ( texto, NºDaLinha );

Não tem outro jeito..

mas acho que o melhor no seu caso é..
richedit1.Lines.LoadFromFile(OpenDialog1.FileName);


GOSTEI 0
POSTAR