`

Delphi Leftstr,Rightstr函数应用

 
阅读更多

unit Unit1;

interface

uses
  Windows, StrUtils,Messages, SysUtils{要这个}, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s,s1,s2: string;
begin
  s:='0001000200030004';
  s1:= LeftStr(s,4);
  s2:= RightStr(s,4);
  ShowMessage('s1 leftstr:'+ s1 + '   '+ ' s2 rightstr:' + s2);
  s:='厦门市第一医院';
  s1:= LeftStr(s,4);
  s2:= RightStr(s,4);
  ShowMessage('s1 leftstr:'+ s1 + '   '+ ' s2 rightstr:' + s2);
  s1:=LeftBStr(s,4);
  s2:=RightBStr(s,4);
   ShowMessage('s1 leftstr:'+ s1 + '   '+ ' s2 rightstr:' + s2);
end;


end.

0
0
分享到:
评论

相关推荐

    delphi通用函数单元一

    function LeftStr(psInput:String; CutLeng:Integer):String; {测试通过} {* 返回从左边第一为开始切取 CutLeng长度的字符串} function RightStr(psInput:String; CutLeng:Integer):String; {测试通过} {* 返回从...

    delphi 字符串截取

    如果要使用LeftStr,RightStr,MidStr必需引用系统单元StrUtils;

    sqlite 扩展函数

    String: replicate, charindex, leftstr, rightstr, ltrim, rtrim, trim, replace, reverse, proper, padl, padr, padc, strfilter. Aggregate: stdev, variance, mode, median, lower_quartile, upper_quartile.

    delphi 开发经验技巧宝典源码

    0094 使用RightStr函数从右边取得指定个数的字符串 65 0095 使用Length函数取得一段字符串的长度 65 0096 使用Pos函数返回子字符串第一次出现的索引值 66 0097 使用Quotedstr函数返回字符串的引证串 66 0098...

    delphi 开发经验技巧宝典源码06

    0094 使用RightStr函数从右边取得指定个数的字符串 65 0095 使用Length函数取得一段字符串的长度 65 0096 使用Pos函数返回子字符串第一次出现的索引值 66 0097 使用Quotedstr函数返回字符串的引证串 66 0098...

    sqlite3-extension-function-windows

    String: replicate, charindex, leftstr, rightstr, ltrim, rtrim, trim, replace, reverse, proper, padl, padr, padc, strfilter. Aggregate: stdev, variance, mode, median, lower_quartile, upper_quartile. 等...

    Delphi写的中英文翻译程序源代码.rar

    Delphi写的中英文翻译程序源代码,好像调用的网址失效了,现在无法翻译了,这个程序和网络有关,同时实现对字符的控制,面向初学者。下面是核心的代码:  procedure TForm1.BitBtn4Click(Sender: TObject);  var ...

    ASP的URLDecode函数URLEncode解码函数

    下面的代码是从kesion系统扒下的,确实不错,支持utf8格式。 代码如下:‘================================================ ...char,i,butf8,pass Dim leftstr,rightstr,finalstr Dim b0,b1,bx,blength,position,

    批量修改文件、图片名称

    String leftstr = ""; String rightstr = ""; try { Pattern pattern = Pattern.compile("JPG|PNG"); //文件夹地址 imgPath = "C:\\Users\\paneland\\Desktop\\emo\\kr2"; File file = new File...

    UDP十六进制数据传输

    strtemp := rightstr(strtemp, intcount - 48); intcount := length(strtemp); hexOffset := inttohex(hexint, 4); mmRcv.Lines.Add('0x' + hexOffset + ': ' + trim(strFirst)); hexint := hexint + 16; end;...

    ios开发记录

    //判断两个字符串是否相等,不能使用==,使用等号是判断两个对象是否是一个对象,也就是是否是一个内存地址。 //判断字符串的内容是否相同应该使用nsstring的isEqualToString:方法 //在低版本的时候,如果直接点击...

    易想3.3-3.4升级程序

    一、新风格使用说明 a) 静态标签说明: Ø #YX_AY_Bottom#底部信息 Ø #YX_AY_Head#头部信息 Ø #YX_AY_Banner#导航信息 Ø #YX_AY_guanggao#广告信息(也可以将广告放入每个页面中) 注:以上...

    浅谈软件安全设计(一)

    code by 黑夜彩虹 & vxin with almost pure delphi 网站:http://soft.eastrise.net 2007-03-07 --- 转载时请保留作者信息。 **************************************************************} ...

    最新AES的CBC加解密dll

    sVector := PChar(leftstr(edit1.text, 16)); GetMem(tmpPchar, 1024); if AESCBCNew(256,PChar(edit2.text), sKey, sVector, tmpPchar) then begin edit3.text := tmpPchar; end; FreeMem(tmpPchar); end; ...

Global site tag (gtag.js) - Google Analytics