用Delphi如何识别EDIT1的最后几个字母

sy0116 2003-08-21 12:32:32

以前用VB有个left、right函数，可以识别文本框的左、右两端是什么字符，比如文本框左边开头的桑蛾子腐蚀abc、右边结尾的字母是.txt，我想Delphi应该也有类似的函数吧，那位高手能介绍一下怎么用？或是用别的方法实现相同的功能

...全文

36 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

shockjoy 2003-08-21

打赏
举报

upup

sy0116 2003-08-21

打赏
举报

能写个具体的例子吗

IwantFlay 2003-08-21

打赏
举报

copy也是可以的

奔跑9999 2003-08-21

打赏
举报

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);