delphi7输入代码时的提示框

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

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

输入一个字符或字串按一次“确定”按钮，满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

---