趣味题：考考你的Delphi基础

阿发伯 2009-10-27 08:29:42

加精

活跃一下D版的气氛，出个趣味只是题。

下面的代码中，定义了一个记录类型，定义了2个同名的方法（同不同名无所谓），v1和v2的x字段都初始化为10，分别调用2个方法后。提问：
1、v1.x与v2.x的值分别为多少？（要求不要在机上测试）
2、加入从记录定义中去掉y字段，v1.x与v2.x的值又分别为多少？（要求不要在机上测试）
3、为什么会是这样的结果？希望大家讨论。

type

  TTest = record

    x: Integer;

    y: Integer;

  end;



procedure IncX(var v: TTest); overload;

begin

  Inc(v.x);

end;



function IncX: TTest; overload;

begin

  Inc(Result.x);

end;



var

  v1, v2: TTest;

begin

  v1.x := 10;

  v2.x := 10;

  v1 := IncX;

  IncX(v2);

end;

...全文

2529 103 打赏收藏转发到动态举报

写回复

用AI写文章

103 条回复

切换为时间正序

请发表友善的回复…

发表回复

shangbenchun 2009-11-02

打赏
举报

不懂delphi，路过

luoyanqing119 2009-10-31

打赏
举报

把前100全部顶完。---------------不过加了PACKET,编译器以经做过了压缩处理，解开时不能按正常的字节处理

Harryfin 2009-10-30

打赏
举报

学习....

babycry627 2009-10-30

打赏
举报

不懂。。。

donil 2009-10-30

打赏
举报

阿发伯不用介意，这种帖子我喜欢，虽然我不太懂，不过看了总能学到不少东西。

zwzgood 2009-10-30

打赏
举报

建议大家学习一下汇编，这类问题就容易理解了。

xcplates 2009-10-30

打赏
举报

v1.x不确定，v2.x=11。
Inc(Result.x);相当于引用了一个没初始化的变量，其值应该不确定，以前遇到过。
IncX(v2); 这个传进来的是地址，函数内的操作将影响到函数外的变量。
第二种方法本人经常用到：
procedure ReagSrvInfo(var v:TSrvInfo);
var
IniFile:TiniFile;
CrFileName:string;
begin
CrFileName:=GetExePath+IniFileName;
try
IniFile:=TiniFile.Create(CrFileName);
v.IP:=IniFile.ReadString('SqlSrvInfo','IP','');
try
v.DBName:=IniFile.ReadString('SqlSrvInfo','DBName','');
if v.DBName<>'' then
v.DBName:=Decrypt(v.DBName,MyKey);
v.UserName:=IniFile.ReadString('SqlSrvInfo','UserName','');
if v.UserName<>'' then
v.UserName:=Decrypt(v.UserName,MyKey);
v.UserPWD:=IniFile.ReadString('SqlSrvInfo','UserPWD','');
if v.UserPWD<>'' then
v.UserPWD:=Decrypt(v.UserPWD,MyKey);
except
v.UserName:='';
v.UserPWD:='';
end;
finally
FreeAndNil(IniFile);
end;
end;