将c盘下的1.htm内容读入一个memo

解决方案 »

  1.   

    用文件流filestream的方法来实现memo1中显示c:\1.htm文件内容
      

  2.   

    中间的语句能解释一下么?thanks
      

  3.   

    这段语句谁能解释一下,多谢了                         if  (bock  =  0)  and  (MLen  <  >    0)  then
                                  begin
                                      Dec(BP,  MLen);
                                      Memo  :=  '';
                                      for  m  :=  1  to  MLen  do
                                          begin
                                              if  (BP^<  >  #13)  and  (BP^<  >  #10)  and  (BP^<  >  #32)  then  Memo  :=  Memo  +  BP^;  //去掉回车换行、空格带来的影响
                                              Inc(bp);
                                          end;
      
                                      if  OP  then
                                          begin
                                              memo1.Lines.Add(TiTle  +  memo);
                                              OP  :=  not  (OP);
                                          end
                                      else
                                          if  Pos(Memo,  Signal)  <  >    0  then
                                              begin
                                                  TiTle  :=  Memo;
                                                  OP  :=  not  (OP);
                                              end;
                                  end;
      
                              MLen  :=  0;
                              inc(bock);
                          end;