急，急，急--------100

我想将一个txt文本的内容付给Ttable控件的一个字段
例如：
...
 try
  fxrz.open;
  database1.open;
  table2.TableName := ExtractFilePath(Application.ExeName+'\imp\fxrz.txt';
  table2.Open;
 except
  table2.close;
  database1.Close;
  raise exception.Create (' 请检查.\imp\fxrz.txt是否存在');
 end;
 try
   table2.First;
   str2:='';
   str1:='';
   fxrz.Append;
   while not table2.Eof do
   begin
    str1:=table2.Fields[0].AsString;
    str2:=str2+str1;
    table2.next;
   end;
    fxrzrznr.value:=str2;
    fxrz.post;
    fxrz.close;
txt文本的内容很长，有400个汉字，但到数据库里只有44个汉字 rznr该字段在sql里定义为varchar(7000)

解决方案 »

  1.   

    也许要定义rznr为Text 类型等支持量更大的类型吧。
      

  2.   

    为什么发两张贴？
    ================================================================
    　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆ 下载地址：  
    　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe  
    　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]  
    功能简介：
    　　1、打开
    　　>>> 输入贴子号码。如：1017425
    　　>>> 输入连接地址。如：http://expert.csdn.net/Expert/TopicView1.asp?id=1009387
    　　2、给我提点
    　　　　>>> 这里可以填写您的建议意见和BUG报告！
    　　3、自动认识操作系统语言（简体与繁体自动切换，无需人工干预）
    　　4、其它：略！　　
      

  3.   

    为什么发两张贴？
    ================================================================
    　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆ 下载地址：  
    　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe  
    　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]  
    功能简介：
    　　1、打开
    　　>>> 输入贴子号码。如：1017425
    　　>>> 输入连接地址。如：http://expert.csdn.net/Expert/TopicView1.asp?id=1009387
    　　2、给我提点
    　　　　>>> 这里可以填写您的建议意见和BUG报告！
    　　3、自动认识操作系统语言（简体与繁体自动切换，无需人工干预）
    　　4、其它：略！　　
      

  4.   

    你是用什么连接数据库的?odbc吗?
      

  5.   

    我建议你把text的内容放到一个memo控件里，然后再去读，这样就不会出错了！我都是这样做的！
      

  6.   

    请您检查一下，在第44个汉字的位置是否存在特殊的字符
    比如空格、TAB等等
      

  7.   

    用TMEMO、PCHAR、Pointer都可以实现！！
    如果数据库中用VARCHAR不行，就用TBOLB
      

  8.   

    没有空格、TAB等等，str2的值是正确的但副给数据库字段就不正确了
      

  9.   

    你在bde的blob size设大一些