deliphi 字符串分割_delphi中拆分字符串的函数

delphi的字符截取函数LeftStr, MidStr, RightStr拆分字符串

这几个函数都包含在StrUtils中，所以需要uses StrUtils;

假设字符串是 Dstr := ’Delphi is the BEST’, 那么

LeftStr(Dstr, 5) := ’Delph’

MidStr(Dstr, 6, 7) := ’i is th’

RightStr(Dstr, 6) := ’e BEST’

~~~~~~~~~~~~~~~~~~~~~~~~~

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;

这几个函数经常结合Pos, Length, Copy使用

拆分字符串的函数 [2005-12-13]

delphi中没有提供此类函数，从大富翁找了一个

function split(src,dec : string):TStringList;

var

i : integer;

str : string;

begin

result := TStringList.Create;

repeat

i := pos(dec,src);

str := copy(src,1,i-1);

if (str='') and (i>0) then

begin

delete(src,1,length(dec));

continue;

end;

if i>0 then

begin

result.Add(str);

delete(src,1,i+length(dec)-1);

end;

until i<=0;

if src<>'' then

result.Add(src);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

ss : TStringList;

str,dec : string;

begin

str := '1111||2222||||3333|||4444||';

dec := '||';

ss := split(str,dec);

memo1.Lines.AddStrings(ss);

ss.Free;

end;

分享到：

2009-06-29 13:01

deliphi 字符串分割_delphi中拆分字符串的函数相关推荐

delphi中字符串拼接_Delphi中的字符串类型（Delphi适用于初学者）
delphi中字符串拼接 As with any programming language, in Delphi, variables are placeholders used to store v ...
deliphi 字符串分割_Delphi中分割字符串（两种方法）
对一个有分隔符的字符串如何分割成几个单一小字符串 1.使用CommaText Var Stl:TStringList; Const S:='20071018085500 155.30 220.6 ...
oracle sql字符拆分字符串函数,oracle-是否有在PL / SQL中拆分字符串的功能？
oracle-是否有在PL / SQL中拆分字符串的功能? 我需要编写一个过程来规范具有由一个字符连接的多个令牌的记录. 我需要获得这些令牌来分割字符串,并将每个令牌作为新记录插入表中. Oracle ...
python pandas 分割DataFrame中的字符串及元组
python pandas 分割DataFrame中的字符串类型数据的方法文章目录 1.使用str.split()方法 2.使用join()与split()方法结合 3. 使用apply方法分割元组 ...
如何在Python中拆分字符串
使用字符串时,常见的操作之一是使用给定的分隔符将字符串拆分为子字符串数组.在本文中,我们将讨论如何在Python中拆分字符串. PYthon学习企鹅裙:88198-2657 领取python自动化编程 ...
python把一个字符串拆分成多个字段_如何把一个字符串分割成多个字符串
展开全部下面两种方法均可以把一个62616964757a686964616fe58685e5aeb931333363393661字符串分割成多个字符串一.Java 知识补充String的split ...
MATLAB 存放字符串（循环中调用字符串）
MATLAB 存放字符串(循环中调用字符串) str=['asdfs';'sdadas';'qweqweqwe'];for i=1:3str(i,:) end 用分号隔开就可以调用了,比如在写图片标题 ...
oracle数据存储过程中的循环 for 拼接字符串,oracle存储过程中使用字符串拼接
1.使用拼接符号"||" v_sql := 'SELECT * FROM UserInfo WHERE ISDELETED = 0 AND ACCOUNT =''' || vAcc ...
字符串分割--java中String.split()用法
文章转自:http://yangzb.iteye.com/blog/1824761 在java.lang包中有String.split()方法,返回是一个数组. 1. "."和 ...

deliphi 字符串分割_delphi中拆分字符串的函数

deliphi 字符串分割_delphi中拆分字符串的函数相关推荐

最新文章

热门文章