swap交换两个

过默

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. procedure Button1Click(Sender: TObject);
    
15. procedure Swap_fun(var str_a:String; var str_b:String);
    
16. private
    
17. { Private declarations }
    
18. public
    
19. { Public declarations }
    
20. end;
    
21. 
    
22. var
    
23. Form1: TForm1;
    
24. 
    
25. implementation
    
26. 
    
27. {$R *.dfm}
    
28. 
    
29. procedure TForm1.Button1Click(Sender: TObject);
    
30. var
    
31. str1: String;
    
32. str2: String;
    
33. temp: String;
    
34. begin
    
35. str1:= Edit1.Text;
    
36. str2:= Edit2.Text;
    
37. 
    
38. Swap_fun(str1, str2);
    
39. 
    
40. Edit1.Text:= str1;
    
41. Edit2.Text:= str2;
    
42. end;
    
43. 
    
44. procedure TForm1.Swap_fun(var str_a:String ; var str_b:String);
    
45. var
    
46. temp: String;
    
47. begin
    
48. temp:= str_a;
    
49. str_a:= str_b;
    
50. str_b:= temp;
    
51. 
    
52. end;
    
53. 
    
54. end.

复制代码

comeheres

wh1003665041 发表于 2013-8-8 16:54

                               
登录/注册后可看大图

大哥 就是交换一下 用Delphi  需要些这么多的代码吗??

他贴的是整个工程文件的代码，交换的核心代码也就是
temp:= str_a;
str_a:= str_b;
str_b:= temp;

牡丹花下死做鬼

  表示内怎么看懂