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(Strin..