procedure TForm1.switch(a,b:integer);
var
m:integer;
begin
if a<b then
begin
m:=a;
a:=b;
b:=m;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
j,k:integer;
begin
j:=StrToInt(Edit1.Text);
k:=StrToInt(Edit2.Text);
switch(j,k);
Edit1.Text:=IntToStr(j);
Edit2.Text:=IntToStr(k);end;end.
[Hint] Unit1.pas(39): Value assigned to 'b' never used
[Hint] Unit1.pas(39): Value assigned to 'a' never used
[Hint] Unit1.pas(39): Value assigned to 'm' never used
程序运行结果无法实现j与k的值交换 提示 a,b,m没有被使用到
请教出在哪儿
var
m:integer;
begin
if a<b then
begin
m:=a;
a:=b;
b:=m;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
j,k:integer;
begin
j:=StrToInt(Edit1.Text);
k:=StrToInt(Edit2.Text);
switch(j,k);
Edit1.Text:=IntToStr(j);
Edit2.Text:=IntToStr(k);end;end.
[Hint] Unit1.pas(39): Value assigned to 'b' never used
[Hint] Unit1.pas(39): Value assigned to 'a' never used
[Hint] Unit1.pas(39): Value assigned to 'm' never used
程序运行结果无法实现j与k的值交换 提示 a,b,m没有被使用到
请教出在哪儿
改成
procedure TForm1.switch(var a,b:integer);传值 和 传指针 的区别,可以百度google一下