如何比较两个记录型变量的值：即不用比较记录里的每一个字段值？如：if a=b a,b为记录型变量。--希望能给出解决思路。

2002-07-25 03:23:26 105 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

10分钟训练你的AI歌手：RVC WebUI声音克隆保姆级教程本文提供了一份详细的RVC WebUI声音克隆保姆级教程，指导用户如何在10分钟内利用Retrieval-based-Voice-Conversion技术训练专属AI歌手。教程涵盖从环境配置、数据准备、模型训练到最终推理应用的全流程，即使是新手也能快速上手，实现高质量的声音克隆与歌曲生成。阅读详情

type
Myrecord=record
a1:integer;
a2:string;
end;
var
Rec1:Myrecord;
Rec2:Myrecord;
implementation
rec1.a1:=1;
rec1.a2:='1';

rec2:=rec1;
//change rec1
rec1.a1:=2;
if rec2=rec1 then domything;//这里不能通过；想解决的就是在rec1 级别进行判断。而不是去比较它们的每一个字段，再确定它们是否相等。

...全文

赴美参加学术会议办理流程有幸能在研究生阶段获得学校资助出国参加学术会议，首先要感谢学校的支持，以及学院和实验室的各位老师~ 接下来说下参会整个准备过程：本人在接到论文录用通知后，就开始办理相关手续。因为会议地点是美国夏威夷，而且录用通知时间与会议召开时间只隔两个月左右，所以接下来两个月时间要办好学校出国申请手续，赴美签证，因为专业原因，据说签证不好办，所以时间比较紧。学校出国申请和签证相关材料是并行进行的，赴美花费... 阅读详情

wangshaodong

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

iroi 2002-07-25

打赏
举报

function TForm1.CompareRec(a,b:Myrecord):boolean;
begin
Result := False;
Result := (a.a1=b.a1) and (a.a2 = b.a2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
rec1.a1:=1;
rec1.a2:='1';

rec2:=rec1;
//change rec1
rec1.a1:=2;
if CompareRec(rec1,rec2) then ShowMessage('=') else ShowMessage('<>');

end;

windofsun 2002-07-25

打赏
举报

为什么我和伴水帮主同时回复，我的就在后面？

Liujc 2002-07-25

打赏
举报

我不知道有没有直接记录比较函数。但是你可以通过记录变量对应的内存进行判断。

windofsun 2002-07-25

打赏
举报

用指针来判断
function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler;

王集鹄 2002-07-25

打赏
举报

//通过比较内存实现
//CompareMem()

procedure TForm1.Button1Click(Sender: TObject);
var
A, B: TRect;
begin
A := Rect(1, 2, 3, 4);
B := Rect(1, 2, 3, 4);
if CompareMem(@A, @B, SizeOf(TRect)) then
ShowMessage('No.1 相等')
else ShowMessage('No.1 不相等');

A := Rect(1, 2, 3, 4);
B := Rect(1, 2, 3, 5);
if CompareMem(@A, @B, SizeOf(TRect)) then
ShowMessage('No.2 相等')
else ShowMessage('No.2 不相等');
end;

procedure TForm1.Button2Click(Sender: TObject);
type
TMyRecord = record //记录类型大小必须固定
a1: Integer;
a2: ShortString; //不能用动态长度的类型//即：不能用string
end;
var
Rec1: TMyrecord;
Rec2: TMyrecord;
begin
Rec1.a1 := 1;
Rec1.a2 := '1';

Rec2 := rec1;
Rec1.a1 := 1;
if CompareMem(@Rec1, @Rec2, SizeOf(TMyRecord)) then
ShowMessage('No.3 相等')
else ShowMessage('No.3 不相等');
end;

王集鹄 2002-07-25

打赏
举报

Liujc 2002-07-25

打赏
举报

我不知道有没有直接记录比较函数。但是你可以通过记录变量对应的内存进行判断。

friendkey 2002-07-25

打赏
举报

只能一个一个字段判断，可以写个函数来判断每个字段是否相等，也不费事的。

如何比较两个 记录型变量的值：即不用比较记录里的每一个字段值？如：if a=b a,b为记录型变量。--希望能给出解决思路。

相关推荐

如何比较两个记录型变量的值：即不用比较记录里的每一个字段值？如：if a=b a,b为记录型变量。--希望能给出解决思路。