例 abcdefg我想得到efg怎么做?
解决方案 »
- 深夜万分紧急问题:delphi7做如下类似的表格循环显示
- D2009安装DevExpress错误???
- combobox ,dbcombobox 怎么设置成 只有一下划线,后面加一个点,的样式??????
- 急,关于QuickRep:如何让QuickRep的preview随着Printer的设置而更新?(在线等候!)
- 文本数据中一条数据分为多行时不能正常恢复的问题!急急急!十万和急!
- 全网请教adoquery多表关联查询,单表更新的问题?
- 一个巨奇怪的问题,Image图象在Timage控件里面只要设定stretch:=true,图象就看不到了!!!
- 要在drawgrid的某一指定格里画图,怎么做
- 请问有关Delphi网络编程的书有那些?
- 刚刚买了本<<delphi5.x分布是多层应用>>心理感觉怪怪的!?
- 统计后将结果送入EDIT,但结果均为0,什么道理?在线!
- 在线电影有IP限制,如何搞定?
s := 'abcdefg';
Delete(s, 1, length(s)-3);
astr:string;
begin
Copy(astr,length(astr)-3,length(astr))
end;
var
astr:string;
begin
Copy(astr,length(astr)-3,3)
end;
S1 := RightStr(s, 3);
SS:string;
begin
SS:=Edit1.Text;
Edit2.Text:=copy(SS, length(SS)-2,3);
end;
uses IdGlobal吧
就可以了