문자열 파싱하기

procedure TForm1.Button1Click(Sender: TObject);
var
   StringList : TStringList;
   i : Integer;
begin
   StringList := TStringList.Create;
   try
      StringList.Delimiter       := ',';
      StringList.StrictDelimiter := True; // 이 부분을 빼면 빈공간도 구분해버린다.
      StringList.DelimitedText   := 'abc de ff asfas,afsb dfgfg';

      for i := StringList.Count-1 downto 0 do
      begin
         Memo1.Lines.Add(StringList.Strings[i]);
      end;

   finally
      FreeAndNil(StringList);
   end;
end;