(原创)将字符串中所有非空的连续字符串列出来

procedure TForm1.DelimitStr(Str: String; var DeskString: TStrings);
var
  Temp: string;
  I, J, NoNull: Integer;
begin
  NoNull := 0;
  Temp := Str;
  if Str = '' then
    Exit;

  while NoNull <> Length(Temp) do
  begin
    NoNull := 0;
    for I := 1 to Length(Temp) do
    begin
      if (Ord(Temp[I]) = 32) then
      begin
        DeskString.Add(Copy(Temp, 1, I - 1));
        Temp := Trim(Copy(Temp, I, Length(Temp)));
        Break;
      end
      else
        Inc(NoNull);
      if NoNull = Length(Temp) then
      begin
        DeskString.Add(Temp);
        Break;
      end;
    end;
  end;

end;

转载于:https://www.cnblogs.com/chengxin1982/archive/2009/01/07/1370959.html