zoukankan      html  css  js  c++  java
  • 自己收集的几个比较实用的Delphi字符串函数

    自己收集的几个比较实用的字符串函数(LeftStr,MidStr,RightStr,Reverse,LastPos)

    没什么可说的,自己看啦

    //从右边取
    function RightStr
        (Const Str: String; Size: Word): String;
    begin
      if Size > Length(Str) then Size := Length(Str) ;
      RightStr := Copy(Str, Length(Str)-Size+1, Size)
    end;
    //从中间取
    function MidStr
        (Const Str: String; From, Size: Word): String;
    begin
      MidStr := Copy(Str, From, Size)
    end;
    //从左边取
    function LeftStr
        (Const Str: String; Size: Word): String;
    begin
      LeftStr := Copy(Str, 1, Size)
    end;
    //翻转字符串
    Function Reverse(S : String): String;
    Var
       i : Integer;
    Begin
       Result := '';
       For i := Length(S) DownTo 1 Do
       Begin
         Result := Result + Copy(S,i,1) ;
       End;
    End;
    //取最后一个字串的位置
    function LastPos(const SubStr: String; const S: String): Integer;
    begin
       result := Pos(Reverse(SubStr), Reverse(S)) ;
    
       if (result <> 0) then
         result := ((Length(S) - Length(SubStr)) + 1) - result + 1;
    end; 
    好的代码像粥一样,都是用时间熬出来的
  • 相关阅读:
    SQL 多列合并一列
    jQuery Ajax post多个值传参
    jquery获取select选中的值
    js 事件对象
    有关cookie
    事件冒泡和事件捕获
    js事件监听
    阻止浏览器的默认行为
    鼠标拖拽效果
    自定义右键菜单
  • 原文地址:https://www.cnblogs.com/jijm123/p/13264399.html
Copyright © 2011-2022 走看看