Converte String em Text
20/03/2003
0
Como posso converte uma [color=red:cbc6d762ea][b:cbc6d762ea]string em uma text ?[/b:cbc6d762ea][/color:cbc6d762ea]
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;
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)