社区
Delphi
帖子详情
请问在Delphi中如何获得一个字符串的左边几个字符,也就是相当于VB中的left
xiuxiu
2000-12-14 09:16:00
...全文
326
9
打赏
收藏
请问在Delphi中如何获得一个字符串的左边几个字符,也就是相当于VB中的left
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
jingpingyi
2000-12-14
打赏
举报
回复
copy(s,1,count);
frankguo
2000-12-14
打赏
举报
回复
copy('abcdefg',1,4)结果是‘abcd’;
mini_fx
2000-12-14
打赏
举报
回复
我以为我很懒了,原来还有.....
hong_tian
2000-12-14
打赏
举报
回复
懒惰极了
atuchina
2000-12-14
打赏
举报
回复
哦,错了!
yp
2000-12-14
打赏
举报
回复
也并不一定是懒,可能与我一样刚开始学,而E又不怎样好。
atuchina
2000-12-14
打赏
举报
回复
mid
imhere_l
2000-12-14
打赏
举报
回复
xiuxiu:你是个懒惰的程序员,看到你的三个问题,都在HELP里可以找到帮助。
Hank
2000-12-14
打赏
举报
回复
function Copy(S; Index, Count: Integer): string;
具体看帮助!
实现类似Office助手的小精灵
Agent技术的应用 ---- Microsoft Agent是微软公司于1997年9月发布的一项代理软件开发技术, 而后被集成到Internet Explorer 4.0 Plus及更高版本
中
,目前版本为2.0,支持简体
中
文。 作为一种软件代理工具,Agent以其强大的交互功能、鲜明的人性特点、优美的操作界面和 简便统一的编程方法,对由菜单、按钮、提示框等组成的传统人机交互方式产生了很大影响, 在多媒体创作、Web应用、教育软件、软件帮助系统和辅助工具制作等方面,具有广阔的应用前景。 一、 Microsoft Agent技术简介 ---- Agent一词的
中
文意思是“代理”,故名思意,这类代理软件的主要作用是提供一种 易于理解和使用的操作界面,接受用户的指令、代替用户完成某些复杂繁琐的工作、或为用户 提供帮助。科学研究表明:从人机工程的角度考虑,赋予电脑或程序更多人性化色彩,如支持 语音合成输出信息、语音识别输入指令、智能提示、动画等,能够充分提高人机交互的有效性 和易用性。 ---- 我们知道,在Office 97帮助系统
中
有一种叫作Office助手的代理软件,其
中
幽默风趣的 动画人物,如“大眼夹”,能够根据用户的操作步骤“智能化”地提出一些建议或帮助信息。 与Office助手相比,Agent功能更加丰富强大,表现在: Office助手沿用传统的不透明矩形窗口,窗口后面的背景被完全挡住;Agent动画人物本身是
一个
“AlwaysOnTop”窗口,只有人物身体部分挡住背景,其余部分透明。 Office助手只允许Office 97的各个组件调用,Agent动画人物可由任何Windows程序调用; Agent支持文字气球和输入提示条,在输出语音的同时把文字输出至
一个
卡通式文字气球
中
。 如果电脑系统
中
安装有Agent语音识别引擎,当用户按住输入键,如Scroll Lock键,在Agent 人物下方出现
一个
输入命令窗口,表示它正在“聆听”用户的语音命令。 Agent提供Genie、Merlin、Bobby和Peedy等动画人物,不仅具有优美诙谐的动作,而且可以 通过声卡、麦克风与用户交谈。 二、 Microsoft Agent安装方法 ---- Agent是一种ActiveX控件,其服务器程序(C:WINDOWSMSAGENTAgentsvr.exe)运行 在Win95/98/NT操作平台上,为其它调用Agent的客户程序提供服务。客户程序可以是利用
VB
、 C++、
Delphi
、VFP、PB等开发的应用软件,也可以是HTML文件
中
的Visual Script、Java Script 脚本语言代码。 安装Agent核心组件Msagent.exe。 安装Lernout & Hauspie TruVoice Text-to-Speech Engine(完成从文字合成语音的工作, 目前版本只支持英语)Cgram.exe。 安装Microsoft Command and Control Speech Engine(提供语音识别功能,目前版本只支持 英语)Actcnc.exe。 Agent动画人物人物数据文件。Agent支持单结构角色文件(.acs,角色数据与动画数据存于同
一个
文件), 也支持分离结构角色文件(.acf,角色数据存于.acf
中
,动画数据存于.aca
中
)。基于本地硬盘和网络的 应用程序可采用.acs文件,基于Web页面的HTML文件在浏览器
中
访问时会自动调用,习惯上多使用.acs文件。 ---- 上述文件可从 http://www.microsoft.com//workshop/imedia/agent/default.asp下载。 三、 Microsoft Agent编程要点 ---- 1、 在
Delphi
中
添加Agent控件 ---- 在
Delphi
IDE
中
选择菜单Component,Import ActiveX Control??在Import ActiveX 下的列表框
中
选择Microsoft Agent Control 2.0(Version 2.0),点击按钮Install??在 Install对话框
中
点击按钮OK??在Confirm对话框
中
点击按钮Yes??在对话框
中
点击按钮OK。 至此,Agent控件被添加到
Delphi
组件板ActiveX页上。 ---- 2、 在
Delphi
中
调用Agent控件 ---- ⑴、在
Delphi
IDE
中
新建Project1(包含Form1),在Form1上放置Agent1 (Name属性为MyAgent)、Button1。 ---- ⑵、定义变量。 Var Peedy: IagentCtlCharacterEx; Request1,Request2: IagentCtlRequest; ---- ⑶Agent主要属性、方法、事件。 ---- ①Characters属性与Load、Unload方法:初始化Agent,加载动画数据,卸载动画人物 ---- Request1 := MyAgent.Characters.Load( Peedy , C:WindowsSystemPeedy.acs ); ---- Peedy := MyAgent.Characters.Character( Peedy ); ---- MyAgent.Characters.Unload( Peedy ); ---- ②Show与Hide方法:显示、隐藏Agent动画人物。参数Fast表示动画人物显示、隐藏的 速度。Fast为0表示Agent飞入、飞出,Fast为1表示Agent直接出现、消失,没有动画过程。 ---- Peedy.Show(0); ---- Peedy.Hide(1); ---- ③StopAll、Stop方法:停止所有动作。 ---- Peedy.StopAll( ); ---- Peedy.Stop(Request); ---- ④Connected属性:Agent是否与Microsoft Agent服务器连接。 ---- MyAgent.Connected := True; ---- ⑤Get_Height、Get_Width、Set_Height、Set_Width方法:
获得
、设置Agent动画人物的高度、宽度。 AgentHight := Peedy.Get_Height; AgentWidth := Peedy.Get_Width; Peedy.Set_Height( round(AgentHeight / 2 )); Peedy.Set_Width( round( AgentWidth / 2 )); ---- ⑥MoveTo方法:参数x,y表示Agent动画人物移动到的坐标,参数Speed表示移动的速度。 ---- Peedy.MoveTo( (Screen.Width-Peedy.Get_Width) Div 2, (Screen.Height-Peedy.Get_Height) Div 2, 2 ); ---- ⑦Interrupt方法:
中
断指定角色的动画。在几十种动画动作
中
,有一类后缀名为“ing” 的动作 比较特殊,如“processing”、“searching”、“reading”、“writing”,一旦执行就必须通过调用 另外
一个
动画人物的Interrupt方法才能
中
断 。角色不能
中
断自身的动作,否则会导致异常。 Request1 := Robby.Play( reading ); Peedy.Interrupt(Request1); ---- ⑧Wait方法:在多个不同动画人物之间协调动画动作,如等待sRobby的当前动作执行完毕后, Peedy做另外
一个
动作。 Request1 := Robby.Play( read ); Peedy.Wait(Request1); Peedy.Play( search ) ---- ⑨Play方法:执行指定的动画动作,参数Animation为一常量,表示动画类型。 Agent提供了几十种预定义动作,开发软件时只需直接调用这些常量即可。下面简要 介绍其
中
常用的一些常量仅供编程参考。 ---- 动作类型
中
文含意 动作类型
中
文含意 动作类型
中
文含意 Acknowledge 承认 LookDown 向下看 Sad 悲伤 Alert 警告 LookDownBlink 向下看眨眼 Search 寻找 Announce 声明 LookUp 向上看 StartListening 开始聆听 Blink 眨眼 LookUpBlink 向下看眨眼 StopListening 停止聆听 Confused 迷惑 Look
Left
向左看 Suggest 建议 Congratulate 祝贺 Look
Left
Blink 向左看眨眼 Surprised 吃惊 Decline 拒绝 LookRight 向右看 Think 思考 DontRecognize 不承认 LookRightBlink 向右看眨眼 Wave 挥动 Explain 解释 MoveDown 向下移动 Write 书写 GestureDown 向下姿势 MoveUp向上移动 Processing 计算…… GestureUp 向上姿势 MoveRight 向右移动 Reading 阅读…… Gesture
Left
向左姿势 Move
Left
向左移动 Searching 寻找…… GestureRight 向右姿势 Pleased 高兴 Writing 书写…… GetAttention
获得
注意 Read 阅读 Greet 问候 RestPose 恢复初始状态 Request := peedy.Play( search ); ---- ⑩Speak方法:Agent通过调用语音合成引擎,支持英语的语音合成输出功能,只需 输入英文
字符
串
,Agent就能通过声卡、音箱“说话”。Agent的当前版本尚不具备支持
中
文语音合成功能,所以只能以.wav文件的形式播放
中
文。使用时可以将想要说的
中
文 句子预先录好,以.wav形式存储,在程序
中
调用即可。参数Text表示文字气球
中
显示的 文字,参数url表示.wav文件的路径。 ---- Peedy.speak( 嗨,朋友们,你们好,现在由我为您提供帮助! , C:新建文件夹Help.wav ); ---- Peedy.Speak( Do you like my help? If so, Please send me an email! Thank you! , ); ---- ⑾Commands.Add方法:在Button1Click事件
中
为Agent添加自定义语音识别命令,参数 const Name表示语音命令的标识,参数Caption表示该命令在输入命令窗口
中
的显示标题, 参数Voice表示该命令对应的语句。当用户通过麦克风向动画人物发出语音命令时,触发 Agent的Command事件,因此我们可以另外编写
一个
过程完成语音识别功能。 procedure TForm1.Button1Click(Sender: TObject); begin Peedy.Commands.Add(
Delphi
, Run
Delphi
,
Delphi
,True,True); Peedy.Commands.Add( Visual Basic , Run
VB
,
VB
,True,True); Peedy.Show(0); Peedy.Speak( What can I do for you, sir? , ); end; ---- ⑷、按F9运行程序。以上程序在
Delphi
3.0/4.0、Windows95/98/NT简体
中
文版环境下调试通过。 话题672376的标题是: 天缘,把MS Agent在网页
中
调用的所有动作的
中
文说明贴出来吧!我给你200分 (200分) 分类:前沿技术 神.NET (2001-10-14 17:54:00) skylove,把MS Agent在网页
中
调用的所有动作的
中
文说明贴出来吧!我给你200分 还有如果不介意的话,请告诉我你的电子邮件地址和你的QQ号码 YB_unique (2001-10-14 22:33:00) 这就是他所说的VRGirl。 VRGirl GUID: {30FDBBE2-A424-11D4-AEB3-00E0295F8599} 59 Animations: Acknowledge Alert Announce Blink Confused Congratulate Decline DoMagic1 DoMagic2 DontRecognize Explain GestureDown Gesture
Left
GestureRight GestureUp GetAttention GetAttentionContinued GetAttentionReturn Greet Hearing_1 Hearing_2 Hide Idle1_1 Idle1_2 Idle2_1 Idle2_2 Idle3_1 Idle3_2 LookDown Look
Left
LookRight LookUp MoveDown Move
Left
MoveRight MoveUp Pleased Process Processing Read ReadContinued Reading ReadReturn RestPose Sad Search Searching Show StartListening StopListening Suggest Surprised Think Uncertain Wave Write WriteContinued WriteReturn Writing skylove (2001-10-16 0:48:00) 使用play方式来完成的动作如下:在
vb
中
用agent.play "xxx"的方式,js
中
用agent.play("xxx");的方式 Acknowledge //点头表示答谢(可用) Alert //警惕(可用) Announce //宣布(可用) Blink //眨眼睛,一般用在说完话以后. (可用) Confused //抓头,用在无法解答的时候,表示烦恼。 (可用) Congratulate //表示成功,并传递值yes (可用) Decline //摇着头,表示不知道的时候用。(可用) DoMagic1 //施放魔法动作1 (可用) DoMagic2 //施放魔法动作2 (单独可用,也可1,2连用) DontRecognize //抓耳朵,当精灵不懂用户的意思的时候 Explain //双手探开,耸肩,表示无可解释 GestureDown //向下的手势,表示等你回应什么事情时 Gesture
Left
//精灵用左手做手势,手指向右方(因为其面朝我们),表示右方有事物时 GestureRight //精灵用右手做手势,手指向左方,表示左方有事物时 GestureUp //向上的手势 GetAttention //表示要人注意的姿势 Greet //问候,在刚开始的时候使用 Hearing_1 //倾听1 (可用)向上听 Hearing_2 //倾听2 (可用)头向屏幕右偏听 Hearing_3 //倾听3 (可用)向屏幕左听 Hearing_4 //倾听4 (可用)向屏幕右听 (一听就是连续状态,必须要用解除命令) Note: This animation loops to some intermediate frame that occurs after the character moves to an appropriate position. Idle1_1 //空闲状态1-1(可用),升起一点 Idle1_2 //空闲状态1-2(可用),朝屏幕
左边
看 Idle2_1 //空闲状态1-2(可用),身躯左右扭一下 Idle2_2 //空闲状态2-2(可用),拿本书出来看 Idle3_1 //空闲状态3-1(可用),打呵欠 Idle3_2 //空闲状态3-2(可用),闭目养神,打呼 Note: This animation loops to some intermediate frame that occurs after the character moves to an appropriate position. LookDown //往下看(可用) Look
Left
//往左看(可用) LookRight //往右看(可用) LookUp //往上看(可用) MoveDown //要向下移动的准备(可用),后面
一个
动作可跟moveto方法来确实移动 Move
Left
//要向左移动的准备(可用) MoveRight //要向右移动的准备(可用) MoveUp //要向上移动的准备(可用) Pleased //邀请的动作,面带微笑(可用) Process //类似于表演的动作,可以看看。如转圈等等 Processing //跟上面的动作一样,不过是一直持续不停 (连续状态,必须要用解除命令) Read //拿本书出来看,眼睛看着使用者 (可用) ReadContinued //继续读,眼睛看着使用者 (可用,可接上
一个
用) ReadReturn //当完成了上面两个动作时候用,可回到标准状态 (接上两个
中
的
一个
用) Reading //一直认真地读,连续状态 (可用) Note: This animation loops to some intermediate frame(s) that occurs after the character moves to an appropriate position. RestPose //休息状态,身体放松,但是依旧专心。 (可用) Sad //当精灵对读者的选择失望的时候的表情 (可用) Search //找寻东西的样子 (可用) Searching //找东西,持续不停(可用) Note: This animation loops to some intermediate frame(s) that occurs after the character moves to an appropriate position. Show //精灵出现(可用) Hide //精灵隐藏 (可用) StartListening //右手搭在右耳上,倾听屏幕
左边
的声音(可用,非持续) StopListening //捂住耳朵不听的状态(可用,非持续) Suggest //提出一些tips给你,表示建议的时候用(可用) Surprised //对使用者的行为表示惊讶,睁大眼睛,张开嘴巴(可用) Think //表示思考,精灵用手支撑着自己的头向上望着 (可用) Uncertain //对你的回答表示试探性的确认,如同“are you sure”吗(可用) Wave //离开系统的时候,精灵挥手告别(可用) Write //取出纸和笔来,写下一行(可用) WriteContinued //继续根据使用者的意见写,写完后,看着使用者(可用) WriteReturn //上一行为完成后,使用此,返回标准状态(可用) Writing //一直写(可用,连续状态) Note: This animation loops. 下面这些是常用的method方法 show //显示,是method Hide //隐藏,是method Think //思考,是method stop方法,stopall方法 moveto x,y,s//表示移动到何处去之后跟 横坐标,纵坐标,移动速度,都是数字变量 绝对是我自己辛苦翻译的也,记得给分!!! 神.NET (2001-10-22 9:51:00) 接受答案了. 神.NET (2001-10-22 9:53:00) 谢谢两位。 skylove的回答最终被接受。
sql语句生成与分析器.rar
1、支持绝大部分数据库,包括 大型数据库Oracle(包括Oracle Lite),Sybase(包括SQL AnyWhere),DB2,MS_SQL
中
型数据库MS_Access,MySQL 桌面型数据库Paradox,DBF系列数据库,MS_Execl,Text 其他支持SQL 92标准的数据库 2、数据库的连接采用ADO连接,因此无需安装和卸载 3、支持SQL查询语句绝大部分语法 3.1 选择字段 3.1.1 Select [All] [Distinct]; 3.1.2 特殊语法,记录条数限定Top(MS_SQL),Rownum(Oracle), Limit(MySQL),Set RowCount(Sybase)) 3.1.3 字段表达式或者计算字段 3.2 选择表 (From) 3.3 条件筛选 (Where) 3.4 分组 (Group By) 3.5 组内条件 (Having) 3.6 排序 (Order By) 3.7 数据表的内连接、外连接 3.7.1 SQL 92 标准:Inner Join、
Left
Join、Right Join、Full Join, 3.7.2 特殊语法:*=、=*、*=*(MS_SQL,Sybase),(+)(Oracle) 3.8 联合 (Union [All],Minus,Intersect) 3.9 字段别名,数据表别名 3.10 SQL子查询表,内嵌SQL子句 4、粘贴字段、系统函数 5、SQL查询语句反向分析, 无论多么复杂的语句,都能分析得出来 包括上面提到的所有SQL语法 6、SQL文件拖放,然后反向分析 7、数据库视图创建和重建(目前仅支持Oracle,Sybase,MS_SQL) 8、附加
Delphi
5和
Delphi
6的控件包,支持
Delphi
5,6开发环境 9、SQL语句智能换行 10、多语言版本 11、其他功能 11.1 SQL文件保存、打开 11.2 支持多个数据库连接 11.3 SQL语句关键词高亮度显示 11.4 简单SQL查询语句转换为Delete,Update,Insert语句 11.5 复制为
字符
串
(支持对Java、C#、
Delphi
、
VB
、PowerBuilder开发语言的支持) 11.6 灵活的拖放功能 11.7 在线版本更新 11.8 查询结果输出为SQL脚本文件及Excel文件
浅议
VB
6字节数组和
字符
串
的相互转换[转]
一、 前言 数据类型转换在编程
中
经常用到,
VB
6提供了一整套类型转换的函数。但是,在进行类型转换时,有时候仅仅依靠
VB
提供的函数是不能达到自己的目的的。因此,需要考虑用其他的方法来完成数据类型转换。本文仅谈
VB
6
中
字节数组和
字符
串
的相互转换过程
中
应注意的问题及其解决办法。 在Visual Basic
中
使用Byte数组主要是为了32位API函数的参数传递和函数的返回。...
二维数组,
字符
串
,结构体
二维数组,
字符
串
,结构体
VB
中
MSComm串口操作控件使用详解
原文地址:点击打开链接 MSComm控件使用详解 MSComm 控件通过串行端口传输和接收数据,为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便,程序员不必去花时间去了解较为复杂的API函数, 而且在VC、
VB
、
Delphi
等语言
中
均可使用。 Micro
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章