| 導購 | 订阅 | 在线投稿
分享
 
 
 

在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; 你可以改造一下,讓它來達到你需要的結果。
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
王朝網路微信公眾號
微信掃碼關註本站公眾號 wangchaonetcn
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有