delphi编程问题

langhua_778899 2018-12-11 09:15:25

anghua_778899： if ByteType(s,i) = mbSingleByte then 在delphi7中好用，但在delphi2010中不好用，是什么问题

...全文

161 2 打赏收藏举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

堕落恶魔_Delphi 2018-12-11

打赏
举报

SB-CSDN 回复没法编辑上面有句说错了 unicode下最小单位是1字符(2字节), 不是2字符

堕落恶魔_Delphi 2018-12-11

打赏
举报

因为D7的string是ansistring 而2010的string是unicodestring(类似于D7中的widestring) ansi下一个中文需要2个字节存储, 而ansistring最小单位字符是1字节, 所以会出现遍历到半个中文字的情况, 所以需要判断是否SingleByte 而unicode下最小单位是2个字符, 也就是说一个中文和一个英文或一个数字都占一个字符(2字节), 也就不会出现读取半个中文字的情况, 所以无需这么判断了而ByteType这个函数似乎是为了unicode兼容本地ansi字符保留下来的(以前delphi说明文档上见过这么一句)

1.不支持继承2.不能从接口获得实现类，如:ITest = interface...end;TTest = class(TObject, ITest)...end;...var tmpITest: ITest; tmpTTest: TTest; tmpTTest2: TTest;... tmpITest := tmpTTest;//正确... TTest(tmpITest).xx

1、在程序里TEdit不能复制粘贴解：查一下你的edit的OnKeyPress,看看是否有屏蔽ctrl-C/-V的内容

// 标示最大值坐标 label18.Caption:=res[0];出现 “List Out of Bound” 的错误。后，实在找不到解决方法，就，添加一个label，将值赋给那个就正常了，怪。

var TMPFORM : Tform ; begin Try application.CreateForm(TFdecoform,TMPFORM) ; TMPFORM.Name:=TNAME; TMPFORM.Show; Except ON E:EXCEPTION DO Application.MessageBox

我的程序是用delphi编程向步进电机发脉冲，每个发脉冲的过程都是一个耗时的循环，每个循环都是由按钮点击事件来触发，在循环中我用了application.ProcessMessages ;因为如果不用这个语句，当一个循环运行时，则不会任何别的操作，可问题是现在只能有一个循环运行，多个发脉冲的循环不能同时运行，我先点击一个按钮来触发第一个循环的。也就是一个循环正在运行时，点击触发第二个循环的按钮，则