本文整理自网络,侵删。
varS, D: string;beginS := ',A,B,C,D';D := copy(S, 2, length(S) - 1);showmessage('删除第一个字符的结果是:' + D);D := copy(S, 1, length(S) - 1);showmessage('删除第末个字符的结果是:' + D);end;
相关阅读 >>
Delphi让tedit控件的内容居中或右对齐,限制位数,仅允许输入数字
更多相关阅读请进入《Delphi》频道 >>