TStringList还有这功能呀
以为会用TStringList保存对象指针,就算是会TStringList的高级应用了呢,今天看到它还有这样两个属性:
Delimiter
DelimitedText
它的功能是把一个字符串分解TStringList类型,如字符串:'aa,bb,cc' 分解后TstringList[0]为'aa' ,TstringList[1]为'bb',TstringList[2]为'cc';
DelimitedText指定要分解的字符串,Delimiter 指定分解分解符,如','
如下是我的实验后的代码:
procedure TForm1.Button1Click(Sender: TObject);
var
list: TStringList;
i : Integer;
begin
list := TStringList.Create;
list.Delimiter := ',';
list.DelimitedText := 'aa,bb,cc';
for i := 0 to List.Count - 1 do
ListBox1.Items.Add(list[i]);
end;
var
list: TStringList;
i : Integer;
begin
list := TStringList.Create;
list.Delimiter := ',';
list.DelimitedText := 'aa,bb,cc';
for i := 0 to List.Count - 1 do
ListBox1.Items.Add(list[i]);
end;