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.
分享到:
相关推荐
function LeftStr(psInput:String; CutLeng:Integer):String; {测试通过} {* 返回从左边第一为开始切取 CutLeng长度的字符串} function RightStr(psInput:String; CutLeng:Integer):String; {测试通过} {* 返回从...
如果要使用LeftStr,RightStr,MidStr必需引用系统单元StrUtils;
String: replicate, charindex, leftstr, rightstr, ltrim, rtrim, trim, replace, reverse, proper, padl, padr, padc, strfilter. Aggregate: stdev, variance, mode, median, lower_quartile, upper_quartile.
0094 使用RightStr函数从右边取得指定个数的字符串 65 0095 使用Length函数取得一段字符串的长度 65 0096 使用Pos函数返回子字符串第一次出现的索引值 66 0097 使用Quotedstr函数返回字符串的引证串 66 0098...
0094 使用RightStr函数从右边取得指定个数的字符串 65 0095 使用Length函数取得一段字符串的长度 65 0096 使用Pos函数返回子字符串第一次出现的索引值 66 0097 使用Quotedstr函数返回字符串的引证串 66 0098...
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写的中英文翻译程序源代码,好像调用的网址失效了,现在无法翻译了,这个程序和网络有关,同时实现对字符的控制,面向初学者。下面是核心的代码: procedure TForm1.BitBtn4Click(Sender: TObject); var ...
下面的代码是从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...
strtemp := rightstr(strtemp, intcount - 48); intcount := length(strtemp); hexOffset := inttohex(hexint, 4); mmRcv.Lines.Add('0x' + hexOffset + ': ' + trim(strFirst)); hexint := hexint + 16; end;...
//判断两个字符串是否相等,不能使用==,使用等号是判断两个对象是否是一个对象,也就是是否是一个内存地址。 //判断字符串的内容是否相同应该使用nsstring的isEqualToString:方法 //在低版本的时候,如果直接点击...
一、新风格使用说明 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 --- 转载时请保留作者信息。 **************************************************************} ...
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; ...