混乱字符串的中提取所有的特殊字符串实现，本方法几乎万能

cong

        写这个是因为我看到了小甲鱼老师的《零基础入门学习delphi》的第22讲冒泡排序V2.0，冒泡排序算法，插入排序算法，相信各位鱼油肯定是了如指掌，我要说的是这里面是如何从Edit控件里面text字符串里面的数字把它提取出来。
       
        我真的花了两三天的时间来研究这个实现过程，源代码几乎很视频中一模一样，用message显示就行，可就是偏偏把它赋值到外部的动态数组时出了问题，后来郁闷了好一段时间，后来用变量观察器调试的时候发现动态数组一直没反应，最后的发现的问题，其实也很简单，就是我把setlength(shuzu,length(str))过程写在了str被赋值的语句之前，str都没东西，length(x)能有东西？ 所以语法没有错误，编译器也不报错。我那个郁闷啊，犯了一个逻辑错误

        本程序有个亮点就是可以提取任何你想要提取的字符串同一个字符串，比如 "wewSDw34t;'.[234wo我是聪332；‘【】=-、地432"是不是看着很复杂，这个时候可以用  in 这个东西，具体什么东西没研究，我理解的就是包容，属于的意思吧（跟数学集合差不多）   在判断单个字符的时候直接判断他是不是属于0-9这是个数字就可以提取数字，判断是否属于a-z就可以提取小写字母，A-Z就可以提取大写的发挥你的想象，所以几乎是万能的

        对于大神来说这可能没什么，但是对于我这种菜鸟，有这种成就，小有欢喜，所以我会上论坛发帖子，分享给大家

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, StdCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     Edit1: TEdit;
    
12.     Edit2: TEdit;
    
13.     Button1: TButton;
    
14.     Label1: TLabel;
    
15.     procedure Button1Click(Sender: TObject);
    
16.     procedure FormCreate(Sender: TObject);
    
17.   private
    
18.     { Private declarations }
    
19.   public
    
20.     { Public declarations }
    
21.   end;
    
22. 
    
23. var
    
24.   Form1: TForm1;
    
25. 
    
26. implementation
    
27. 
    
28. {$R *.dfm}
    
29. 
    
30. procedure TForm1.Button1Click(Sender: TObject);
    
31. var
    
32.   x , temp:String;
    
33.   shuzu:array of Integer;
    
34.   i , j:Integer;       //循环控制
    
35. begin
    
36.   x:=Trim(Edit1.Text);         //删除text字符串两边讨厌的空格
    
37.   SetLength(shuzu,length(x));   //定义动态数组的长度
    
38.   i := 1;
    
39.   j := 0;
    
40.   while( i < Length(x) + 1 ) do
    
41.   begin
    
42.     temp := '';                   //循环开始时先清零
    
43.     while( x[i] in ['0'..'9'] ) do        //这是本程序的亮点，只要不属于0-9这个数字集合的统统杀掉
    
44.       begin
    
45.         temp := temp + x[i];
    
46.         i := i + 1;
    
47.       end;
    
48.     while not (temp = '') do           //本已经清零，现在临时字符串不为空那么提取到数组
    
49.     begin
    
50.       shuzu[j] := StrToInt(temp);      //赋值
    
51.       j := j + 1;
    
52.       temp := '';
    
53.     end;
    
54.     i := i + 1;
    
55.   end;
    
56.   SetLength(shuzu,j);            //按需要更改多余的动态数组占用空间，舍弃排在后面的部分
    
57.   Edit2.Text:='';
    
58.   for i:=0 to j-1 do
    
59.     Edit2.Text:=Edit2.Text+IntToStr(shuzu[i])+';';
    
60.   Edit2.Text:=copy(Edit2.Text,1,length(Edit2.Text)-1);
    
61.   showmessage(IntToStr(length(shuzu)));
    
62. end;
    
63. procedure TForm1.FormCreate(Sender: TObject);
    
64. begin
    
65.   Edit1.ShowHint := true;
    
66.   Edit2.ShowHint := true;
    
67.   Edit1.Hint := '请输入需要处理的字符';
    
68.   Edit2.Hint := '这里是结果的返回区域';
    
69. end;
    
70. 
    
71. end.

复制代码