delphi 字符串显示后5位


本文整理自网络,侵删。

 
function EndStr(const S: String; const Count: Integer): String;
var
  I: Integer;
  Index: Integer;
begin
  Result := '';
  for I := 1 to Count do
  begin
    Index := Length(S)-I+1;
    if Index > 0 then
      Result := S[Index] + Result;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=EndStr('12345678910',5);   //结果78910
end;

相关阅读 >>

Delphi ansicontainstext 是否包含子串

Delphi 暴力搜索api

Delphi反调试【初级】检测法

Delphi搜索字符串在流中的位置

Delphi 结构化文件存取

Delphi 调用相应程序打开网址

Delphi findwindow的一些用法

Delphi 记录鼠标点击坐标

Delphi copy 字符串函数

Delphi 判断奇数偶数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...