社区
Delphi
帖子详情
用Delphi如何识别EDIT1的最后几个字母
sy0116
2003-08-21 12:32:32
以前用VB有个left、right函数,可以识别文本框的左、右两端是什么字符,比如文本框左边开头的桑蛾子腐蚀abc、右边结尾的字母是.txt,我想Delphi应该也有类似的函数吧,那位高手能介绍一下怎么用?或是用别的方法实现相同的功能
...全文
37
6
打赏
收藏
用Delphi如何识别EDIT1的最后几个字母
以前用VB有个left、right函数,可以识别文本框的左、右两端是什么字符,比如文本框左边开头的桑蛾子腐蚀abc、右边结尾的字母是.txt,我想Delphi应该也有类似的函数吧,那位高手能介绍一下怎么用?或是用别的方法实现相同的功能
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shockjoy
2003-08-21
打赏
举报
回复
upup
sy0116
2003-08-21
打赏
举报
回复
能写个具体的例子吗
IwantFlay
2003-08-21
打赏
举报
回复
copy也是可以的
奔跑9999
2003-08-21
打赏
举报
回复
up
lxpbuaa
2003-08-21
打赏
举报
回复
uses StrUtils;
function LeftStr(const AText: string; ACount: Integer): string;
function RightStr(const AText: string; ACount: Integer): string;
—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
dabill
2003-08-21
打赏
举报
回复
首部 function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas
功能 返回字符串AText左边的ACount个字符
说明 LeftStr('123456', 3) = '123'
参考 function System.Copy
例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas
功能 返回字符串AText右边的ACount个字符
说明 RightStr('123456', 3) = '456'
参考 function System.Copy
例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas
功能 返回字符串AText从AStart开始的ACount个字符
说明 其实就是Copy
参考 function System.Copy
例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);
Delphi
开发技巧之-VCL
转换T
Edit
中每个词的首
字母
为大写 输出TStringGrid到TListView 运行时创建TButtons队列 运行时创建控件 运行时创建菜单项 运行时替换控件 返回TTreeView内字符串路径 防止在T
Edit
内剪贴、复制、粘贴 防止用户调整...
delphi
开发经验技巧宝典源码
0086 用回溯法找出n个自然数中取r个数的所有组合 58 0087 0~N位数的任意组合 59 0088 在数组中快速查找近似值 60 0089 实现直接插入法排序 61 第4章 函数应用 63 4.1 字符串处理函数 64 0090 使用...
DELPHI
文本整理器
n := StrToInt(InputBox('重新分行', '每行几个字符', '8')); ReLine(Memo1, n); end; } procedure TStringFunction.ReLine(Memo: TMemo; n: Integer); var s: string; i, j, k: Integer; L: TStringList; ...
delphi
开发经验技巧宝典源码06
0086 用回溯法找出n个自然数中取r个数的所有组合 58 0087 0~N位数的任意组合 59 0088 在数组中快速查找近似值 60 0089 实现直接插入法排序 61 第4章 函数应用 63 4.1 字符串处理函数 64 0090 使用...
绿色 Sql Server 原理及全新管理工具
最后
说一句,只要你能把几个Sql server版本的数据整理好(主要是系统数据库的路径问题(好像现在盒子已经有绿色企业版的文件了),DLL全部copy就OK了),都可以使用我的管理工具进行管理,呵呵,当然你也可以作出...
Delphi
5,392
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章