问题出在:
memo1.Text:=PntItems;  改一下:   TBlobField *bf=query1->FieldByName("Memo");
   TBlobStream *bs= new TBlobStream(bf, bmRead);
   Memo1->Lines->LoadFromStream(bs);
   delete bs;
自行改成DEPHI了
   
  

解决方案 »

  1.   

    可是我的数据库那边是varchar,如果强制类型转换成把query1.fieldbyname('Memo')转换成TBlobFied当create TblobStream的时候就会出现错误。
    我认为是BDE在什么地方设置有错误,但是不知道怎么改。
      

  2.   

    在数据表设计时,建立一个自增量字段,保证唯一。在Query中返回不带Text属性的字段,一定要得到建立的自增量字段值,用另外一个Query通过自增量字段值获得Text。'SELECT text FROM database WHERE id = :id'。多了一步,当效果很好。