delphi7输入代码时的提示框

delphi7输入代码时的提示框,第1张

这源让磨叫代码自动完成功能,只要你前面各行的代码没有错误,一般来雹斗说打完组件名称,并打点之后,它的成员表就会显示出来.供程序员选择.我一直都是这么用的,没有注意有什么办法可以让它不显示,或者显示速度变慢.不过要注意的是滑游,只要你前面的代码(从代码编辑器的第一行开始)有错误,这个功能就被暂停了.待你把错误修复之后,这个功能就又有了.

过去没做仿盯拦过,觉得题目很有意思,一狠心放弃了一个饭局,现做了一个,见附件的源码。

输入一个字符或字串按一次“确定”按钮,满12个后,“确定”备胡按钮不再允许;按下“导出”按钮,按规定的位置导出到Excel表同时显示表格;按下“下一轮”按钮,重新开始。

建议其他朋友,按则消源码的处理思路,稍作改动或充实就能嵌入你自己的工程,会成为一个完整的有效应用。

直接判断有没有汉字啊,有槐粗圆就长度为2,没有就长度为1

//1,函数代码

{

判断字符串是否包含汉字

// judgeStr:要判断的字符串

//posInt:第一个汉字位置

}

function TForm2.IsHaveChinese(judgeStr: stringvar posInt: integer): boolean

var

p: PWideChar// 要判断的字符

count: integer// 包含汉字位置

isHave: boolean// 是否包含汉字返回值

begin

isHave := false// 是否包铅塌含汉字返回值默认为false

count := 1// 包含汉字位置默认为1

p := PWideChar(judgeStr)// 把要判断字符串转换

// 循环判断每个字符

while p^ <>#0 do

begin

case p^ of

#$4E00 .. #$9FA5:

begin

isHave := true// 设置是否包含汉凳蚂字返回值为true

posInt := count// 设置包含汉字位置

break// 退出循环

end

end

Inc(p)

Inc(count)// 包含汉字位置递增

end

result := isHave

end

//2,例子:

procedure TForm2.Button3Click(Sender: TObject)

var

testStr1, testStr2: string

posInt: integer

begin

testStr1 := '12345'

testStr2 := '123汉字45'

if self.IsHaveChinese(testStr1, posInt) = true then

begin

ShowMessage(testStr1 + ' 包含汉字 :' + inttostr(posInt))

end

else

begin

ShowMessage(testStr1 + ' 不包含汉字')

end

if self.IsHaveChinese(testStr2, posInt) = true then

begin

ShowMessage(testStr2 + ' 包含汉字 :' + inttostr(posInt))

end

else

begin

ShowMessage(testStr2 + ' 不包含汉字')

end

end


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11996145.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-20
下一篇 2023-05-20

发表评论

登录后才能评论

评论列表(0条)

保存