鱼C论坛

 找回密码
 立即注册
查看: 2525|回复: 3

swap 交换

[复制链接]
发表于 2014-3-25 16:59:46 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
EDIT1.TEXT:='1';
EDIT2.TEXT:='2';
SWAP后应该是
EDIT1.TEXT:='2'
EDIT2.TEXT:='1'
根据给的源码结果总是
EDIT1.TEXT:='2'
EDIT2.TEXT:='2'
求解
源码如下 :
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Swap_fun(var str_a:String; 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:String;str_b:String);
var
temp:string;
begin
  temp:= str_a;
  str_a:= str_b;
  str_b:= temp;
end;
end.


想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-3-25 19:41:05 | 显示全部楼层
提问请发悬赏贴
暂时不给你答案,自己看下下面的知识点

QQ拼音截图未命名.png




想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2014-3-25 20:15:07 | 显示全部楼层
支持一下!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2014-10-23 07:10:25 | 显示全部楼层
每二个参数引用前边没有加VAR,或这样写:Var str_a ,str_b:String
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-12-23 09:00

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表