怎样LoadFromFile带{}的文本文件？

这是文本文件：  
  {  
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls,   ComCtrls,   DB,   ADODB,   Grids,   DBGrids;  
  }  
  type  
      TForm1   =   class(TForm)  
          ADOConnection1:   TADOConnection;  
          ADOQuery1:   TADOQuery;  
          TreeView1:   TTreeView;  
          ......  
   
  但是我在RichEdit中LoadFromFile()以后，RichEdit中显示的只有大括号中的字符：  
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls,   ComCtrls,   DB,   ADODB,   Grids,   DBGrids;  
   
  为什么LoadFromFile()只装入大括号中的字符呢？ 问题点数：20、回复次数：4Top

1 楼june_xia（腊月天）回复于 2004-09-04 11:09:21 得分 0

你换成Memo试试？Top

2 楼Tensionli（）回复于 2004-09-04 11:59:16 得分 10

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      temp_strlist   :   TStringList;  
  begin  
      try  
          temp_strlist   :=   TStringList.Create;  
          temp_strlist.LoadFromFile('c:\aaa.txt');  
          RichEdit1.Lines   :=   temp_strlist;  
      finally  
          temp_strlist.Free;  
      end;  
  end;  
  这样调一下吧  
  Top

3 楼june_xia（腊月天）回复于 2004-09-04 12:24:17 得分 10

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      Ms   :   TMemoryStream;  
  begin  
          Ms   :=   TMemory.Create;  
          Ms.LoadFromFile('c:\aaa.txt');  
          RichEdit1.Lines.LoadFromStream(Ms);  
          Ms.Free;  
      end;  
  end;  
   
  这样呢？  
  Top

4 楼wanngshj（Juris）回复于 2004-09-04 12:24:31 得分 0

Thank   you!Top

相关问题

• loadfromfile
• strlist
• richedit
• tform
• ms
• temp

• 帖主：wanngshj
• Tensionli
• june_xia

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载