论坛 › Delphi交流 › 022浅谈Delphi过程与函数03 - 零基础入门学习Delphi022

rongzhen123 发表于 2017-3-29 13:12:50

022浅谈Delphi过程与函数03 - 零基础入门学习Delphi022

视频最后那个小甲鱼的疑惑那个要怎么改

panyongyuan 发表于 2017-7-20 20:07:57

type
TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Swap_fun(var str_a,str_b:String);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
str1: String;
str2: String;
temp: String;
begin
str1:= Edit1.Text;
str2:= Edit2.Text;

Swap_fun(str1, str2);

Edit1.Text:= str1;
Edit2.Text:= str2;
end;




procedure TForm1.Swap_fun(var str_a,str_b:String);
var
temp:string;
begin
temp:= str_a;
str_a:= str_b;
str_b:= temp;
end;

end.

查看完整版本: 022浅谈Delphi过程与函数03 - 零基础入门学习Delphi022