1.TStringList分解字符串
在编程中我们经常需要分解某个字符串,比如“abc,123,334,akl”,把上述字符串根据逗号分解成4个字符串。
procedure TForm1.btnTestClick(Sender: TObject);
var
v_TestList: TStringList;
v_Index: Integer;
begin
v_TestList := TStringList.Create;
try
{采用CommaText}
v_TestList.CommaText := 'abc,123,334,akl';
{采用Delimiter & DelimitedText,可以根据需要调整Delimiter,应用比较灵活
v_TestList.Delimiter := ',';
v_TestList.DelimitedText := 'abc,123,334,akl';}
for v_Index := 0 to v_TestList.Count - 1 do
begin
ShowMessage(v_TestList[v_Index]);
end;
finally
FreeAndNil(v_TestList);
end;
end;
<