需要设置什么属性?我设了dataset和datafield
解决方案 »
- 字段值为空时的查询判断怎么写
- 请问哪里有李维的《inside VCL 架构剖析》电子版的下载地址啊?
- 请问怎样创建和调用DLL中的Form呢
- 我想编程控制随机数,但是没有思路,请大家指教,来者有分 !
- 谁知道数据库中根据日期得到星期几的函数
- 我为某字段设置 primary key 后, 当我在该字段输入了重复数据后 会触发什么“错误”
- 谁有 http , ftp下载程序的源代码,高分享用
- 出现错误:“帮助文件D:\program files\borland\delphit\help\delphi6.hlp是为此windows版本不支持的语言创建的”
- 还是word问题
- 如何在非当前窗体的状态下得到操作系统传递的消息
- 如何判断ListBox中的项有没有被选中?
- 如何使MessageDlg显示出的是中文?
var
i,j,k:integer;
somelist:TStringList;
begin
for i := 1 to (length(tmpstr) div tmpInt+1) do
//如果最后为汉字后半部分,那么i*tmpInt,否则i*tmpInt-1,以避免半个字符的出现
begin
k := 0;
for j := 1 to i*tmpInt do
if j <= length(tmpstr) then
if ord(tmpstr[j]) > 126 then k := k+1;
if (k mod 2 = 0)
then insert(#13#10,tmpstr,i*tmpInt-1)
else insert(#13#10,tmpstr,i*tmpInt);
end;
somelist:=TStringList.Create;
//somelist.Clear;
somelist.Add(tmpstr);
result:=somelist;
end;