Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 13.03.2016
Сообщений: 7
1

Динамический однонаправленный список

10.04.2016, 19:01. Показов 1466. Ответов 3
Метки нет (Все метки)
Доброго времени суток. Делаю список, и нужно удалить звено в списке. Посмотрел много примеров, да и по логике делаю, вроде бы, правильно, но не могу поменять ссылку, чтобы перескочить удаляемое звено. Присваиваю нужную ссылку, а список все равно как шел через то звено, так и идет, подскажите, пожалуйста, как изменить ссылку. Проблема в procedure TList.Delete(pos:integer)
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

unit Unit1;
 
interface
type
 
PZveno = ^Zveno;
Zveno = Record
  Inf : byte;
  Next: PZveno;
end;
 
TList=class
Private
  First: PZveno;
  FCount : Integer;
  function NewZveno(a : byte) : PZveno;
  function GetZveno(pos: integer): PZveno;
public
  constructor Create;
  Destructor Destroy; override;
  Procedure Add(a: byte);
  Procedure Insert(pos:integer; a:byte);
  Procedure Delete(pos:integer);
  procedure Print;
end;
 
implementation
 
 
{ TList }
 
procedure TList.Add(a: byte);
var
  P : PZveno;
begin
  if FCount = 0 then
  begin
    First := NewZveno(a);
    FCount := 1;
    Exit;
  end;
  P := GetZveno(FCount - 1);
  P^.Next := NewZveno(a);
  Inc(FCount);
end;
 
constructor TList.Create;
begin
  First := nil;
  FCount := 0;
end;
 
procedure TList.Delete(pos: integer);
var
  P,P2:PZveno;
begin
  FCount:=FCount-1;
  p:=GetZveno(pos-2); //ссылка на элемент перед удаляемым
  P2:=P^.Next;        //удаляемый элемент
  p:=p^.Next^.Next;   //следующий за удаляемым
  dispose(p2);
end;
 
Destructor TList.Destroy;
begin
  Dispose(First);
  inherited;
end;
 
function TList.GetZveno(pos: integer): PZveno;
var
  p : PZveno;
  i : integer;
begin
  p:=first;
  for i:=1 to pos do
    p:=p^.Next;
  Result:=p;
end;
 
procedure TList.Insert(pos: integer; a: byte);
begin
 
end;
 
function TList.NewZveno(a: byte): PZveno;
var
  P : PZveno;
begin
  new(P);
  P^.Inf := a;
  P^.Next := nil;
  Result := P;
end;
 
procedure TList.Print;
var
  P : PZveno;
  i:integer;
begin
  i:=0;
  P := First;
  While P <> Nil Do
  Begin
    inc(i);
    Writeln(P^.Inf:3,i:6);
    P := P^.Next;
  End;
end;
 
Var
  list:TList;
  i:integer;
begin
  list:=TList.Create;
  for i:=0 to 100 do
    list.Add(i);
  list.Delete(5);
  list.Print;
  list.Destroy;
  readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 10.04.2016, 19:01
Ответы с готовыми решениями:

Динамический однонаправленный список. Удаление элементов из списка.
входные данные : 3 ---количество студентов Ivan Roman Yura Yura ...

Однонаправленный список
подскажите как передать как параметр-ссылку в процедуру однонаправленный список , никак не...

Однонаправленный список
Дан текстовый файл целых чисел , по заданному файлу создать однонаправленный список , а затем по...

Однонаправленный список
Готовлюсь к экзамену по программированию, столкнулась с вопросами, которые мы не проходили, и в...

3
5498 / 4293 / 1379
Регистрация: 14.04.2014
Сообщений: 19,285
Записей в блоге: 19
11.04.2016, 08:07 2
Лучший ответ Сообщение было отмечено Caxapok как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

function TList.GetZveno(pos: integer): PZveno;
var
  i : integer;
begin
  if pos>=FCount then
  begin
    result:=NIL;
    exit;
  end;
 
  result:=first;
  i:=0;
  while (i<>pos) do
  begin
    Result:=Result.next;
    inc(i);
  end;
end;
 
procedure TList.Add(a: byte);
var
  n,P : PZveno;
begin
  n:=NewZveno(a);
 
  if FCount = 0 then
    First := n
  else
  begin
    P := GetZveno(FCount - 1);
    P^.Next := N;
  end;
 
  Inc(FCount);
end;
 
 
procedure TList.Delete(pos: integer);
var
  P,P1:PZveno;
begin
  if pos<FCount then exit;
 
  if pos=0 then
  begin
    p:=First; //удаляемый элемент
    first:=First.next;
  end
  else
  begin
    p1:=GetZveno(pos-1); //ссылка на элемент перед удаляемым
    p:=p1.next;               //удаляемый элемент
    p1.Next:=p.Next;       //следующий за удаляемым
  end;
  dispose(p);
  dec(FCount);
end;
1
0 / 0 / 0
Регистрация: 13.03.2016
Сообщений: 7
11.04.2016, 18:59  [ТС] 3
krapotkin, Ничего не поменялось, все так же не хочет удалять звенья ни в середине, ни вначале, ни в конце
0
5498 / 4293 / 1379
Регистрация: 14.04.2014
Сообщений: 19,285
Записей в блоге: 19
11.04.2016, 22:33 4
Лучший ответ Сообщение было отмечено Caxapok как решение

Решение

ну так 2 минуты в отладчике потратить совсем лень что-ли?

Delphi
1
2
3
4
5

procedure TList.Delete(pos: integer);
var
  P,P1:PZveno;
begin
  if pos<FCount then exit;
/// условие должно быть обратное
Delphi
1

  if pos>=FCount then exit;
вот код
из класса формы понятно, что на ней лежит
Кликните здесь для просмотра всего текста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181

PZveno = ^Zveno;
  Zveno = Record
    Inf : byte;
    Next: PZveno;
  end;
 
  TMyList=class
  Private
    First: PZveno;
    FCount : Integer;
    function NewZveno(a : byte) : PZveno;
    function GetZveno(pos: integer): PZveno;
  public
    constructor Create;
    Destructor Destroy; override;
    Procedure Add(a: byte);
    Procedure Insert(pos:integer; a:byte);
    Procedure Delete(pos:integer);
    procedure ToStrings(list:TStrings);
  end;
 
 
  TForm1 = class(TForm)
    m1: TMemo;
    b1: TButton;
    b2: TButton;
    e1: TEdit;
    ud1: TUpDown;
    procedure b1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure b2Click(Sender: TObject);
  private
    l:TMyList;
    procedure ShowList;
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
resourcestring
  sDivider = '----------------------';
 
{$R *.dfm}
 
function TMyList.GetZveno(pos: integer): PZveno;
var
  i : integer;
begin
  if pos>=FCount then
  begin
    result:=NIL;
    exit;
  end;
 
  result:=first;
  i:=0;
  while (i<>pos) do
  begin
    Result:=Result.next;
    inc(i);
  end;
end;
 
procedure TMyList.Insert(pos: integer; a: byte);
var p,t:PZveno;
begin
  p:=GetZveno(pos-1);
  if p<>NIL then
  begin
    t:=NewZveno(a);
    t.Next:=p.Next;
    p.Next:=t;
  end;
end;
 
function TMyList.NewZveno(a: byte): PZveno;
begin
  New(result);
  result.Inf := a;
end;
 
procedure TMyList.ToStrings(list: TStrings);
var p:PZveno;
begin
  p:=first;
  while p<>NIL do
  begin
    list.Add(IntToStr(p.Inf));
    p:=p.Next;
  end;
end;
 
procedure TMyList.Add(a: byte);
var
  n,P : PZveno;
begin
  n:=NewZveno(a);
 
  if FCount = 0 then
    First := n
  else
  begin
    P := GetZveno(FCount - 1);
    P^.Next := N;
  end;
 
  Inc(FCount);
end;
 
 
constructor TMyList.Create;
begin
  First := nil;
  FCount := 0;
end;
 
procedure TMyList.Delete(pos: integer);
var
  P,P1:PZveno;
begin
  if pos>=FCount then exit;
 
  if pos=0 then
  begin
    p:=First; //удаляемый элемент
    first:=First.next;
  end
  else
  begin
    p1:=GetZveno(pos-1); //ссылка на элемент перед удаляемым
    p:=p1.next;               //удаляемый элемент
    p1.Next:=p.Next;       //следующий за удаляемым
  end;
  dispose(p);
  dec(FCount);
end;
 
destructor TMyList.Destroy;
begin
  while FCount>0 do
    Delete(0);
  inherited;
end;
 
procedure TForm1.ShowList;
begin
  l.ToStrings(m1.Lines);
  m1.Lines.Add(sDivider);
end;
 
procedure TForm1.b1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 19 do
    l.Add(Random(100));
  ShowList;
end;
 
procedure TForm1.b2Click(Sender: TObject);
begin
  l.Delete(ud1.Position);
  ShowList;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  l:=TMyList.Create;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  l.Free;
end;
 
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 11.04.2016, 22:33
Помогаю со студенческими работами здесь

Линейный однонаправленный список
Можно ли выводить на печать элементы однонаправленного линейного списка? Если да, то пожалуйста...

Создать однонаправленный список
Сформировать однонаправленный список слов. Вывести его на экран. Ввести порядковый номер звена и...

Рекурсия. Однонаправленный список
program Project1; {$APPTYPE CONSOLE} uses SysUtils; type pointer=^link; link=record...

Однонаправленный список. Удаление
У меня вопрос. Есть однонаправленный (динамический) список. Как сделать так, чтобы по нажатию...

Очередь и однонаправленный список
Приветствую, вопрос такой, в чём различие и сходство между очередью и однонаправленным списком,...

Однонаправленный список, Memo
Можно ли сделать однонаправленный список из данных (чисел), которые вводятся в поле Memo? Каждое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru