//TStringList 常用方法與屬性:
var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
List.Add('Strings1'); {添加}
List.Add('Strings2');
List.Exchange(0,1); {置換}
List.Insert(0,'Strings3'); {插入}
i := List.IndexOf('Strings1'); {第一次出現的位置}
List.Sort; {排序}
List.Sorted := True; {指定排序}
List.Count; {總數}
List.Text; {文本集合}
List.Delete(0); {刪除, 0是第一個數據}
List.LoadFromFile('c:\tmp.txt');{打開}
List.SaveToFile('c:\tmp.txt'); {保存}
List.Clear; {清空}
List.Free; {釋放}
end;
//讀入字符串
var
List: TStringList;
begin
List := TStringList.Create;
List.CommaText := 'aaa,bbb,ccc,ddd';
//相當於: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';
ShowMessage(IntToStr(List.Count)); //4
ShowMessage(List[0]); //aaa
List.Free;
end;
//置換分隔符
var
List: TStringList;
begin
List := TStringList.Create;
List.Delimiter := '|';
List.DelimitedText := 'aaa|bbb|ccc|ddd';
ShowMessage(IntToStr(List.Count)); //4
ShowMessage(List[0]); //aaa
List.Free;
end;
//類似的哈希表操作法
var
List: TStringList;
begin
List := TStringList.Create;
List.Add('aaa=111');
List.Add('bbb=222');
List.Add('ccc=333');
List.Add('ddd=444');
ShowMessage(List.Names[1]); //bbb
ShowMessage(List.ValueFromIndex[1]); //222
ShowMessage(List.Values['bbb']); //222
//ValueFromIndex 可以賦值:
List.ValueFromIndex[1] := '2';
ShowMessage(List[1]); //bbb=2
//可以通過 Values 賦值:
List.Values['bbb'] := '22';
ShowMessage(List[1]); //bbb=22
List.Free;
end;
//避免重複值
var
List: TStringList;
begin
List := TStringList.Create;
List.Add('aaa');
List.Sorted := True; //需要先指定排序
List.Duplicates := dupIgnore; //如有重複值則放棄
List.Add('aaa');
ShowMessage(List.Text); //aaa
//Duplicates 有3個可選值:
//dupIgnore: 放棄;
//dupAccept: 結束;
//dupError: 提示錯誤.
List.Free;
end;
//排序與倒排序
{排序函數}
functionDescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := -AnsiCompareText(List[Index1], List[Index2]);
end;
procedureTForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List := TStringList.Create;
List.Add('bbb');
List.Add('ccc');
List.Add('aaa');
//未排序
ShowMessage(List.Text); //bbb ccc aaa
//排序
List.Sort;
ShowMessage(List.Text); //aaa bbb ccc
//倒排序
List.CustomSort(DescCompareStrings); //調用排序函數
ShowMessage(List.Text); //ccc bbb aaa
//假如:
List.Sorted := True;
List.Add('999');
List.Add('000');
List.Add('zzz');
ShowMessage(List.Text); //000 999 aaa bbb ccc zzz
end;
//高級應用
Delphi中stringlist分割字符串的用法
TStrings是一個抽象類,在實際開發中,是除了基本類型外,應用得最多的。
常規的用法大家都知道,現在來討論它的一些高級的用法。
1、CommaText
2、Delimiter &DelimitedText
3、Names &Values &ValueFromIndex
先看第一個:CommaText。怎麼用呢?
const
constr :String = 'aaa,bbb,ccc,ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.CommaText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;
執行了這段代碼後,可以看到ShowMessage顯示出來的分別是:aaa bbb ccc ddd。
也就是說,strs.CommaText := constr這一句的作用,
就是把一個字符串以','爲分割符,分段添加到TStrings中。
那麼如果不是以','來分割,又該怎麼做呢?現在看第二個例子。使用Delimiter和DelimitedText。
const
constr :String = 'aaa\bbb\ccc\ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;
可以看到, 顯示的效果和第一個例子是一模一樣的。解釋一下:
Delimiter爲分隔符,默認爲:','。DelimitedText就是按Delimiter爲分隔符的一個串,
得到賦值後回把這個字符串按Delimiter的字符添加到TStrings中。
說到這裏,有想起一個屬性,QuoteChar。其默認值爲:'"'(不包括單引號)
有何用呢?看例子:
const
constr :String = '"aaa"\"bbb"\"ccc"\"ddd"';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;
顯示出來的仍然是aaa bbb ccc ddd。爲什麼不是:"aaa" "bbb" "ccc" "ddd"呢?
再來看一個例子:
const
constr :String = '|aaa|\|bbb|\|ccc|\|ddd|';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
strs.QuoteChar := '|';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;
顯示出來的又是aaa bbb ccc ddd。對比一下,應該不難明白吧?這個就不多說了,用得也不多。
但是還要多說一句,當Delimiter爲:','而QuoteChar爲:'"'時,
DelimitedText和CommaText是同等的。
最後要說的三個是:Names &Values &ValueFromIndex。
看看下面的代碼:
const
constr :String = '0=aaa,1=bbb,2=ccc,3=ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.CommaText := constr;
for i := 0 to strs.Count-1 do
begin
ShowMessage(strs.Names[i]);
ShowMessage(strs.Values[strs.Names[i]]);
ShowMessage(strs.ValueFromIndex[i]);
end;
end;
通過這個例子不難看出:
這個時候strs中的內容是:
0=aaa
1=bbb
2=ccc
3=ddd
而Names中則是:
0
1
2
3
在Values中則是:
aaa
bbb
ccc
ddd