Delphi DelimitedText用法

var
  i: Integer;
  sList: TStringList;
begin
  stext := 'a|b|c|d';
  sList := TStringList.Create;
  try
    sList.Delimiter := '|';
    sList.DelimitedText := stext;

    for i := 0 to sList.Count - 1 do
    begin
      ShowMessage(sList[i]);
    end;
  finally
    sList.Free;
  end;     
end;

var  
  myList: TStringList;  
  myString: string;
begin  
  myList := TStringList.Create;  
  myList.Delimiter := ','; 
  myList.Add('value1');  
  myList.Add('value2');  
  myList.Add('value3');  // 将字符串列表转换为逗号分隔的字符串 
 
  myString := myList.DelimitedText;  // 显示结果  
  ShowMessage(myString);
end;