大家帮我看看这个指针数组怎么用错了？

2005-04-17 08:42:01 215 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C语言指针数组与数组指针：内存模型、核心区别与实战应用在C语言编程中，指针是理解和操作内存的核心概念。指针本质上是一个存储内存地址的变量，通过指针可以直接访问和修改特定内存位置的数据，这为动态内存管理、数据结构构建和函数间高效数据传递提供了基础。理解指针的运算、多级间接寻址及其与数组的关系，是掌握C语言底层能力的关键。指针数组和数组指针正是这一原理的典型应用，它们分别代表了两种不同的数据组织方式：指针数组本质上是数组，其元素均为指针，常用于管理一组长度可变的数据（如字符串表或动态数据块）；数组指针则是一个指向整个数组的指针，其步进以整个数组长度为单元，特别适用阅读详情

type //定义指针变量
pReorder=^recordQQ;
recordQQ=record
Xuhao:integer;
next:pReorder;
end;
-------------------------
var
ReorderArray:array of pReorder;//定义指针数组链表
MaxEnter:integer;
-------------------------
procedure TForm1.QQspeakNum;
var
i:integer;
begin
setlength(ReorderArray,MaxEnter+1);
for i:= 0 to MaxEnter do //首先初始化指针数组链表；
begin
new(ReorderArray[i]);
ReorderArray[i]^.next:=nil;
end;
for i:=0 to QQcount -1 do //为指针数组链表赋值
begin
new(ReorderArray[i]^.next);
ReorderArray[i]:=ReorderArray[i]^.next;
ReorderArray[i]^.Xuhao:=i;
ReorderArray[i]^.next :=nil;
end;
end;
------------------------------
for i:= MaxEnter downto 0 do
begin
while ReorderArray[i].next <> nil do
begin
//这中间的语句竟然没有执行。？？？？？？？？？
end;
end;
------------------------------
for i:= 0 to MaxEnter do //FormDestroy中释放内存
begin
while ReorderArray[i]^.next <> nil do
begin
dispose(ReorderArray[i]);
ReorderArray[i]:=ReorderArray[i]^.next;
end;
end;

不知道以上代码错在哪里？望高手指正，谢谢。

...全文

BrepNet实战：5分钟搞定三维CAD模型的加工特征识别（附Python代码）本文详细介绍了BrepNet在三维CAD模型加工特征识别中的实战应用，通过Python代码演示了从环境搭建到模型训练的全流程。BrepNet基于边界表示（BRep）的深度学习框架，能够高效识别加工特征，显著提升工业设计和智能制造领域的效率。文章还提供了性能优化和部署建议，帮助开发者快速实现AI驱动的几何特征识别。阅读详情

Allblus

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

Delphi1985 2005-04-19

打赏
举报

MaxEnter+1的值是多少啊?

Allblus 2005-04-18

打赏
举报

只是我用new分配指针内容后没有释放，不过程序也没有出错。
这样释放指针数组链表为什么错了：
var
i:integer;
begin
for i:= 0 to MaxEnter do
begin
Refi:=ReorderArray[i]^.next ;
while Refi <> nil do
begin
ReorderArray[i]:=Refi^.next;
dispose(Refi);
Refi:=ReorderArray[i]^.next; ////这里错了？？？？
end;
dispose(ReorderArray[i]);
end;
end;

Allblus 2005-04-18

打赏
举报

搞定了：P

addua 2005-04-18

打赏
举报

没必要用指针吧，

Allblus 2005-04-18

打赏
举报

UP
new分配指针内容后不释放可以嗎？

herman~~ 2005-04-17

打赏
举报

学习

Rail100 2005-04-17

打赏
举报

废话，语句1执行了才怪。
既然你的数组ReorderArray[i].next一直为nil，那么while ReorderArray[i].next <> nil do一执行就跳出循环

ntn115 2005-04-17

打赏
举报

mark

g961681 2005-04-17

打赏
举报

释放的问题，我没去解决了

Allblus 2005-04-17

打赏
举报

調用了new可以不調用dispose嗎？

Allblus 2005-04-17

打赏
举报

謝謝，我看看

g961681 2005-04-17

打赏
举报

在我这边调试通过。
大致的意思是，
在窗体创建的时候，创建链。
按button2，取链中所有XuHao数据。放到edit1中！

g961681 2005-04-17

打赏
举报

给你调试了一个非叔祖的qq链。你看看
unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
PQQRecord = ^TQQRecord;
TQQRecord = record
Xuhao: Integer;
Next: PQQRecord;
end;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
//ReorderArray: array of pReorder;//定义指针数组链表
FQQS: PQQRecord;
//MaxEnter: Integer;
QQCount: Integer;
public
procedure QQspeakNum;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.QQspeakNum;
var
i: Integer;
pQQ: PQQRecord;
pNewQQ: PQQRecord;
begin
//setlength(ReorderArray,MaxEnter+1);
//for i:= 0 to MaxEnter do //首先初始化指针数组链表；
//begin
// new(ReorderArray[i]);
// ReorderArray[i]^.next:=nil;
//end;
for i := 0 to QQcount -1 do //为指针数组链表赋值
begin
if FQQS = nil then
begin
New(FQQS);
FQQS.Xuhao := i;
FQQS.Next := nil;
Continue;
end;
pQQ := FQQS;
while (pQQ <> nil) and (pQQ.Next <> nil) do
pQQ := pQQ.Next;
new(pNewQQ);
pNewQQ.Xuhao := i;
pNewQQ.next := nil;
pQQ.Next := pNewQQ;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
//for i:= MaxEnter downto 0 do
//begin
// while ReorderArray[i].next <> nil do
// begin
// //这中间的语句竟然没有执行。？？？？？？？？？
// end;
//end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
p: PQQRecord;
begin
Edit1.Text := '';
p := FQQS;
while p <> nil do
begin
Edit1.Text := Edit1.Text + IntToStr(p^.Xuhao);
p := p^.next;
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
begin
//for i:= 0 to MaxEnter do //FormDestroy中释3;放内存
//begin
// while ReorderArray[i]^.next <> nil do
// begin
// dispose(ReorderArray[i]);
// ReorderArray[i]:=ReorderArray[i]^.next;
// end;
//end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//MaxEnter := 5;
QQCount := 3;
QQspeakNum;
end;

end.

Allblus 2005-04-17

打赏
举报

for i:= 0 to MaxEnter do //首先初始化指针数组链表；
begin
new(ReorderArray[i]); 这应该是必要的吧，定义的头节点
ReorderArray[i]^.next:=nil;
end;

for i:=0 to QQcount -1 do //为指针数组链表赋值
begin
new(ReorderArray[A[i]]^.next); 为数组的相应项添加链表这里错了吗？？？？
ReorderArray[A[i]]:=ReorderArray[A[i]]^.next;
ReorderArray[A[i]]^.Xuhao:=A[i];
ReorderArray[A[i]]^.next :=nil;
end;

g961681 2005-04-17

打赏
举报

两个new有问题！

Allblus 2005-04-17

打赏
举报

我的目的是用数组链表来排序例如：待排序的数组A[]

i 0 1 2 3 4 5 6

A[i] 2 3 3 5 2 4 1

找出A[i]中最大的即 MaxEnter：= 5

建立数组链表：setlength(ReorderArray,MaxEnter+1);
ReorderArray[2]--〉0--〉4--〉nil
ReorderArray[3]--〉1--〉2--〉nil
ReorderArray[5]--〉3--〉nil
ReorderArray[4]--〉5--〉nil
ReorderArray[1]--〉6--〉nil

ReorderArray[0]--〉nil
这样 for i:= MaxEnter downto 0 do
begin
while ReorderArray[i].next <> nil do
begin
语句1 //读取ReorderArray[i].Xuhao就把数组A[]中的元素排序出来了即：A[3] 〉A[5]……
end;
end;

这样对数组一次扫描就可以按升序或降序排出来了，时间复杂度为O(n)。应该算是快速排序吧。
我在弄数组链表时“语句1” 就没执行，不知道错在哪里？

大家帮我看看这个指针数组怎么用错了？

相关推荐