本文實例講述了delphi字串分隔函數用法。分享給大家供大家參考。具體實作方法如下：
此實例可實現根據字串Separator的表示將字串s分隔為若干個字串，存入rs字串清單中，具體代碼如下：
複製程式碼如下:procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
AStr: string;
idx: Integer;
ASubStr: string;
begin
AStr := Trim(s);
while Pos(Separator, AStr) > 0 do
begin
idx := Pos(Separator, AStr);
ASubStr := Copy(AStr, 1, idx - 1);
rs.Add(ASubStr);
AStr := Copy(AStr, idx + 1, Length(AStr));
end;
if AStr+'a' <> 'a' then rs.Add(AStr); //如果存在剩餘的字串，則將其存入字串清單中
end;
希望本文所述對大家的Delphi程式設計有幫助。