| 订阅 | 在线投稿
分享
 
 
 

在delphi把字符串分割成一维数组

来源:互联网网民  宽屏版  评论
2008-06-01 01:15:15

字符串的处理,往往是很多地方都要用到的。对于一个字符串,可以用以下方法来完成。

type userarray=array of string;

function tform1.split(s:string;dot:char):userarray;

var

str:userarray;

i,j:integer;

begin

i:=1;

j:=0;

SetLength(str, 255);

while Pos(dot, s) > 0 do

begin

str[j]:=copy(s,i,pos(dot,s)-i);

i:=pos(dot,s)+1;

s[i-1] := chr(ord(dot)+1);

j:=j+1;

end;

str[j]:=copy(s,i,strlen(pchar(s))-i+1);

result:=str;

end;

你可以改造一下,让它来达到你需要的结果。

 
特别声明:以上内容(如有图片或视频亦包括在内)为网络用户发布,本站仅提供信息存储服务。
 
字符串的处理,往往是很多地方都要用到的。对于一个字符串,可以用以下方法来完成。 type userarray=array of string; function tform1.split(s:string;dot:char):userarray; var str:userarray; i,j:integer; begin i:=1; j:=0; SetLength(str, 255); while Pos(dot, s) > 0 do begin str[j]:=copy(s,i,pos(dot,s)-i); i:=pos(dot,s)+1; s[i-1] := chr(ord(dot)+1); j:=j+1; end; str[j]:=copy(s,i,strlen(pchar(s))-i+1); result:=str; end; 你可以改造一下,让它来达到你需要的结果。
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有