Question

delphi分隔字符串的问题

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
list:tstringlist;
begin
s:='about :#delphi; #hello,person';
list:=tstringlist.Create;
extractstrings([';',',',':'],['#',' '],pchar(s),list);
memo1.Text:=(list.Text);
end;

end.

希望大家主要给我讲解下begin-end的内容
谢谢了

Answer 1

我还是一楼的那个,
extractstrings([';',',',':'],['#',' '],pchar(s),list);
注意看这个函数.他是截取字符串的,
首先第一个参数[';',',',':'],这个是分别用"; , , , :"来把字符串分段,
第2个参数['#',' ']这个参数是用来忽略掉被分割后的子字符串的开头,
意思是说:'about : #delphi'这句被":"分割成2个了,对把,
然后把#delphi前面的"#"忽略掉.
简而言之,' '这个空格,也是忽略掉子字符串的开头部分不记.
第三个参数很简单,就是你的字符串,第四个是个StringList对象,
至于StringList是什么,这个你可以去百度一下,他是个集合.
最后将被分割放在集合里的字符串显示在Memo上面,完毕

给你个例子:
var
S: string;
SL: TStringList;
begin
S := '#123,456,789';
SL := TStringList.Create;
// 分割成3段,用逗号分开,忽略#字符, 放在SL中
ExtractStrings([','],['#'],PChar(S),SL);
ShowMessage(SL.Text); // 弹出
SL.Free;
end;
试试看就明白了

Answer 2

function ExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;