[델파이] 구분자로 String > TStringList, TArray로 분할하기

slTemp : TStringList;

• 첫번째
  • ExtractStrings([fvalue], [' '], PChar(strSplit), slTemp);
• 두번째
  • slTemp.Delimiter := 'fvalue';
  • slTemp.StrictDelimiter := True;
  • slTemp.DelimitedText := strSplit;

-------------------------------------------------------------------------------

ArrySeq : TArray<String>;

if strSplit.IndexOf('&') > 0 then begin

  ArrySeq := strSplit.Split(['&']);

end else begin

  SetLength( ArrySeq, 1 );

  ArrySeq[ 0 ] := strSplit;

end;