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自动检测u盘插入、拔出及获取u盘盘符

Delphi 的异步方法

Delphi 如何将颜色值转换为灰度颜色值？

windows 编程 窗体生成的过程

建议大家使用fastmm

Delphi 判断是否为空('none', 'null', '')

Delphi实现文件的拖放功能

Delphi 使用google translate实现tts

Delphi isthisleapyear 判断闰年

Delphi 2009 泛型容器单元(generics.collections)[5]: tobject...<t> 系列

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

转载请注明出处：木庄网络博客 » delphi 字符串显示后5位