请如何实现字符串分割？(0分)

K

knifepj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #1

请如何实现字符串分割？
各位能告诉我一些字符串分割的函数吗？（就好注上参数和使用方法）

 

L

lldhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #2

什么意思？？
copy(i,j,k),i原字符串，j起始位置，k字符总数

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #3

pos
delete

 

K

knifepj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #4

Wlmmlw,给出它们的参数，好吗？
lldhz, 我想问的是，如何自动检查，然后分割！
如：S1＝‘my/driver/file';
怎么才能把它们一一分割出来！
让S2＝my s3=driver s4=file

 

C

cxz9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #5

//分割一个字符串，其中分割的标志是ch
function SplitString(const source,ch:string):tstrings;

function SplitString(const source,ch:string):tstrings;
var
temp:string;
i:integer;
begin
result:=tstringlist.Create;
temp:=source;
i:=pos(ch,source);
while i<>0 do
begin
result.Add(copy(temp,0,i-1));
delete(temp,1,i);
i:=pos(ch,temp);
end;
result.Add(temp);
end;

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #6

procedure TForm1.Button8Click(Sender: TObject);
var
temp : String ;
a_Stringlist :TStringList;
i:integer;
begin
a_Stringlist:=TStringList.Create;
temp:='0009|sssss|sfasfsd|fasdfsd|lll|fasfsd';
i:=pos('|', temp);
while i<>0 do begin
a_StringList.add(copy(temp, 1, i - 1));
temp := copy(temp, i + 1, length(temp) - i);
i:=pos('|', temp);
end;
end;

 

C

cslotus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #7

MidStr函数

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #8

aa:String;
aa:=copy('abcdef',2,2);
aa的值是'bc'

 

K

knifepj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #9

感谢大家的帮助！可惜我的积才20！
我想“大富翁”应该给我们这些不会的人多一点分，这样就可以让多一些来回答我的们的问题！