将WordWrap属性设为了True没有用啊
解决方案 »
- ADOCommand:Missing CommandText property
- 请问这个??
- 关于GroupBox 和 PageControl 控件的菜鸟问题
- dbgrid的字段自动求和问题求助
- ★★★★ lxpbuaa(桂枝香在故国晚秋) ★★★★申请作基础类版主,请大家支持
- ExtractFilePath是什莫意思?在线等?
- 关于netbios编程
- 新手问题:在按钮中(BITBTN)除了使用BMP图片外,能使用图标ICON方式吗?如何解决呢?谢谢
- sqlserver7如何清空日志?日志在哪里可以看到?
- 各位大哥那有Delphi 5中文手册包括(四本/套)的下载网址
- 辞职了。。。散分中。。。
- 如何禁止鼠标拖动文本?(在线等待,急)
var
i:Integer;
temp:WideString;
begin
i:=1;
temp:=Memo1.Lines.Text;
if Pos(#10,temp)>0 then temp:=StringReplace(temp,#10,'',[rfReplaceAll]);
if Pos(#13,temp)>0 then temp:=StringReplace(temp,#13,'',[rfReplaceAll]);
if Length(temp)>40 then begin
while i<(Length(temp) div 40)+1 do begin
Insert(#13,temp,i*40);
i:=i+1;
end;//end while
end;//end if
Memo1.Lines.Text:=temp;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
这个是40个字符换行,你看看....
还有一个属性AutoStrech好像也是这个功能,但是把它设为True后也不起作用。
qrdbtext那樣可以直接和數據庫聯接,打印時能自動將表中的多條記錄打印出來。請各位大俠棒棒忙。
AutoStrech設為 True就ok啦