Preciso converter TEXT para STRING ?

Question

�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 : Tex...

Aroldo Zanela · Answer

[quote:db36e7346d=�porttime�]�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;[/quote:db36e7346d]Apaga tudo. RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);...

Dor_poa · Answer

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);