我有一个字段是TEXT类型的,我不知道内容长度,请问怎么打?
解决方案 »
- serersocket多线程重复接收数据,全天在线,急,急!!!
- qq界面怎样编写?
- 急!问一个打包软件的名字?
- 请大家谈一谈SOCKET的用法
- 急寻瘟98下的屏幕取词代码(VC,DELPHI)
- 请问TImageList的图标为什么不能透明啊???
- TcxDBComboBox控件中文输入问题
- 数据库是Access,如何以'日期/时间'类型字段的值作为条件来删除记录呢?
- 这个问题(Midas) 就这么难吗?
- 超酷构件,可惜没有注册码!
- http://expert.csdn.net/Expert/topic/1267/1267664.xml?temp=.574917
- 关于内存泄漏!欢迎大家展开讨论!
书上说将其autostretch 属性设为True即可实现自动拉绅,但实际并不总是如此,他只会在字符是半角时才会转换,头痛得很!
我是这样做的:
function CountSpc(strtext:string):integer;
begin
result:=length(strtext) div 30; //每隔n个字符插一个空格
end;
// 文本框内加空格函数
function AddSpace(var Strtext:string;IntCount:integer):String;
var x : integer;
begin
for x:=1 to IntCount do
insert(#32,strtext,30*x);
end;
procedure TCatagReport.Query1AfterOpen(DataSet: TDataSet);
var Tmp_field:string;
x,y:integer;
begin
for y:=0 to catagreport.Query1.RecordCount-1 do
begin
tmp_field:=catagreport.Query1.FieldByName('文件标题或事由').AsString ;
x:=CountSpc(tmp_field);
AddSpace(tmp_field,x);
catagreport.Query1.Next;
end;end;单步跟踪,事件确实触发了,但是报表显示still as before!
我有试验过数据库里字段值保持以上格式能够自动换行.
还有,同时会引发第二个问题
在insert 函数中,如果insert的位置>30的话,会插入乱码!
一波还未平息,一波又来侵袭.......