本文整理自网络,侵删。
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);beginCaption:=EndStr('12345678910',5); //结果78910end;
相关阅读 >>
Delphi 按字符串长度对tstringlist的元素进行排序
Delphi xe 使用savestate保存firemonkey状态的示例
Delphi 学习 sql 语句 - insert、update、delete
更多相关阅读请进入《Delphi》频道 >>