频道分类

delphi 字符串显示后5位

作者:admin 来源: 日期:2020/4/6 22:33:51 人气: 标签:

 
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 TStrings 过滤空行下一篇:没有资料