delphi截取指定字符空格或-符号前面 中间 后面字符串

var
  List: TStringList;
begin
  List := TStringList.Create;
  List.Delimiter := ‘-‘;
  List.DelimitedText :=Trim(Edit1.Text);
  ShowMessage(IntToStr(List.Count)); //2
  ShowMessage(List[0]); //abcd
  ShowMessage(List[1]); //12ab
  ShowMessage(List[2]); //12ab
 
  List.Free;
end;

原文：http://www.cnblogs.com/lantianhf/p/5698967.html