Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi

Войти
Регистрация
Восстановить пароль
 
sergeu90
27 / 28 / 3
Регистрация: 17.10.2009
Сообщений: 739
#1

удаление первого элемента в кольцевом односвязном списке - Delphi

10.05.2013, 22:01. Просмотров 501. Ответов 0
Метки нет (Все метки)

удаление работает когда 1 элемент в списке работает когда много,а вот когда много элементов я не могу удалить первый что бы последний уже ссылался на второй помогите как сделать вот код
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
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
unit TBank;
 
interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMan, StdCtrls, ComCtrls, Grids, ExtCtrls;
 //ÑòðóêòóðГ* îäГ*îñâÿçГ*îãî êîëüöåâîãî Г±ГЇГЁГ±ГЄГ* Г°Г*áîòû Г± ГЎГ*Г*êîì
 Type
  TPElem = ^TBank1;
  TBank1=record
    Number:1..9999;//Г*îìåð îòäåëåГ*ГЁГї ГЎГ*Г*ГЄГ*
    City:string[50];//ãîðîä. Ãäå Г*Г*õîäèòñÿ îòäåëåГ*ГЁГҐ
    Addres:string[50];//Г*äðåñ îòäåëåГ*ГЁГї
    NameFront:string[50];//Г*Г*çâГ*Г*ГЁГҐ îòäåëåГ*ГЁГї
    Cod:1..999;//êîä îòäåëåГ*ГЁГї (3-õçГ*Г*Г·Г*îå ÷èñëî)
    next:TPElem;
  end;
    TList = record
    PFirst : TPElem;
    PLast : TPElem;
  end;
 
 
  Type  //ГЄГ«Г*Г±Г± ГЎГ*Г*ГЄГ*
  Tbank_class = class
  procedure createfile(filename:string);
  procedure readfile(filename:string;StringGrid1: TStringGrid);
  procedure ListFree(var aList : TList);
  procedure AddL(var aList : TList; const aPElem : TPElem;const head:TPElem);
  procedure appendfile(filename:string; Edit1: TLabeledEdit;Edit2: TLabeledEdit;Edit3: TLabeledEdit;Edit4: TLabeledEdit;Edit5: TLabeledEdit;stringgrid1:Tstringgrid);
  procedure replacezapis(filename:string; Edit1: TLabeledEdit;Edit2: TLabeledEdit;Edit3: TLabeledEdit;Edit4: TLabeledEdit;Edit5: TLabeledEdit;number:integer;stringgrid1:tstringgrid);
  function GetByNum(const aList : TList; const aI : Longword) : TPElem;
  procedure DelByNum(var aList : TList; const aI : Longword)  ;
  Procedure DelElem(var spis1:TList;tmp:TPElem);
  procedure deletezapis(filename:string;number:integer);
  end;
implementation
var
 
count:integer;
SaveF:  File of TBank1;
List : TList;
PElemsave,PElemload,PElemappend,PNewElem,Head,PElemload1: TPElem;
  tmpi:TPelem;
      //CîçäГ*Г*ГЁГҐ ГґГ*éëГ* ГЎГ*Г*ГЄГ*
      procedure Tbank_class.createfile(filename:string);  //ñîçäГ*Г*ГЁГҐ ГґГ*éëГ*
begin
    AssignFile(SaveF,filename);
    rewrite(SaveF);
    if FileExists('BANK.dat') then
    begin
    ShowMessage('Г”Г*éë ГіГ±ГЇГҐГёГ*Г® ñîçäГ*ëñÿ');
    end;
    count:=0;
end;
 
//ГЋГ·ГЁГ±ГІГЄГ* Г±ГЇГЁГ±ГЄГ*
procedure Tbank_class.ListFree(var aList : TList);
var
  PNext, PDel : TPElem;
begin
  if aList.PFirst = nil then Exit;
 
  PNext := aList.PFirst;
  while PNext <> alist.PFirst do begin
    PDel := PNext;
    PNext := PNext^.next;
    Dispose(PDel);
  end;
  aList.PFirst := nil;
  aList.PLast := nil;
end;
    //ÔîðìèðîâГ*Г*ГЁГҐ Г±ГЇГЁГ±ГЄГ*
  procedure Tbank_class.AddL(var aList : TList; const aPElem : TPElem;const head:TPElem);
begin
  if aPElem = nil then Exit;
 
  aPElem^.next := head;
  if aList.PFirst = nil then begin
    aList.PFirst := aPElem;
    aList.PLast :=  aPElem;
  end else begin
    aList.PLast^.next := aPElem;
    aList.PLast := aPElem;
  end;
end;
   //ñ÷èòûâГ*Г*ГЁГҐ ГЁГ§ ГґГ*éëГ*
procedure Tbank_class.readfile(filename:string;StringGrid1: TStringGrid);
var
i:integer;
begin
//CloseFile(saveF);
AssignFile(SaveF,filename);
if FileExists(filename) then
reset(SaveF);
ListFree(List);//î÷èñòêГ* Г±ГЇГЁГ±ГЄГ*
For i:=0 to StringGrid1.RowCount-1 do
 StringGrid1.Rows[i].Clear;
For i:=0 to StringGrid1.ColCount-1 do
 StringGrid1.Cols[i].Clear;
 StringGrid1.Cells[0,0]:='В№';
 StringGrid1.Cells[1,0]:='Íîìåð îòäåëåГ*ГЁГї';
 StringGrid1.Cells[2,0]:='Ãîðîä';
 StringGrid1.Cells[3,0]:='Àäðåñ';
 StringGrid1.Cells[4,0]:='ГЌГ*èìåГ*îâГ*Г*ГЁГҐ îòäåëåГ*ГЁГї';
 StringGrid1.Cells[5,0]:='Êîä';
 
 //ÏðîâåðêГ* ñêîëüêî Г§Г*ГЇГЁГ±ГҐГ© Гў ГґГ*éëå
 count:=0;
 new(PElemload1) ;
 while(not eof(SaveF)) do
 begin
 read(SaveF,PElemload1^); //Г·ГЁГІГ*ГҐГ¬ Г§Г*ГЇГЁГ±ГЁ ГЁГ§ ГґГ*éëГ* Гў Г¬Г*Г±Г±ГЁГў
 inc(count);
 end;
  Dispose(PElemload1);
  seek(SaveF,0);
///////////////////////////////////////
for i:=0 to count-1 do
    begin
 new(PElemload);
 if (i=0) then
 head:=PElemload;
 read(SaveF,PElemload^); //Г·ГЁГІГ*ГҐГ¬ Г§Г*ГЇГЁГ±ГЁ ГЁГ§ ГґГ*éëГ* Гў Г¬Г*Г±Г±ГЁГў
 AddL(List, PElemload,head);
 Stringgrid1.RowCount:=count+1;
 StringGrid1.Cells[0,i+1]:=inttostr(i+1);
 StringGrid1.Cells[1,i+1]:=inttostr(PElemload^.Number);
 StringGrid1.Cells[2,i+1]:=PElemload^.City;
 StringGrid1.Cells[3,i+1]:=PElemload^.Addres;
 StringGrid1.Cells[4,i+1]:=PElemload^.NameFront;
 StringGrid1.Cells[5,i+1]:=inttostr(PElemload^.Cod);
    end;
end;
     procedure Tbank_class.appendfile(filename:string; Edit1: TLabeledEdit;Edit2: TLabeledEdit;Edit3: TLabeledEdit;Edit4: TLabeledEdit;Edit5: TLabeledEdit;stringgrid1:Tstringgrid);
begin
  seek(SaveF,count);
  inc(count);
  new(PElemload);
  PElemload^.Number:=strtoint(Edit1.Text);
  PElemload^.City:=Edit2.Text;
  PElemload^.Addres:=Edit3.Text;
  PElemload^.NameFront:=Edit4.Text;
  PElemload^.Cod:=strtoint(Edit5.Text);
  write(SaveF,PElemload^);
  showmessage('Г‡Г*ГЇГЁГ±Гј ГіГ±ГЇГҐГёГ*Г® Г§Г*ГЇГЁГ±Г*Г*Г* Гў ГґГ*éë');
end;
 
procedure Tbank_class.replacezapis(filename:string; Edit1: TLabeledEdit;Edit2: TLabeledEdit;Edit3: TLabeledEdit;Edit4: TLabeledEdit;Edit5: TLabeledEdit;number:integer;stringgrid1:tstringgrid);
begin
reset(SaveF);
PElemload:=GetByNum(List,number);
PElemload^.Number:=strtoint(Edit1.Text);
PElemload^.City:=Edit2.Text;
PElemload^.Addres:=Edit3.Text;
PElemload^.NameFront:=Edit4.Text;
PElemload^.Cod:=strtoint(Edit5.Text) ;
PElemload:= List.PFirst;
        repeat
        write(SaveF,PElemload^);
    PElemload := PElemload^.next;
        until PElemload = list.PFirst
end;
 
   (*ÂîçâðГ*Г№ГҐГ*ГЁГҐ ГіГЄГ*Г§Г*òåëÿ Г*Г* ýëåìåГ*ГІ ГЇГ® ГҐГЈГ® Г*îìåðó Гў Г±ГЇГЁГ±ГЄГҐ.
Åñëè ýëåìåГ*ГІГ* Г± Г§Г*Г¤Г*Г*Г*ûì Г*îìåðîì Г*ГҐ Г±ГіГ№ГҐГ±ГІГўГіГҐГІ, ГІГ® âîçâðГ*Г№Г*ГҐГІГ±Гї nil.*)
function Tbank_class.GetByNum(const aList : TList; const aI : Longword) : TPElem;
var
  i : Longword;
  PNext : TPElem;
begin
  Result := nil;
  i := 1;
  PNext := aList.PFirst;
repeat
                 if i = aI then
                 begin
                 Result := PNext;
                 Break;
                 end;
                 Inc(i);
                 PNext := PNext^.next;
until (i <= aI) and (PNext = aList.PFirst)
 
  end;
 
 
procedure Tbank_class.DelByNum(var aList : TList; const aI : Longword)  ;
var
  PElem : TPElem;
begin
  PElem := GetByNum(aList, aI);
  DelElem(aList, PElem);
end;
 
 
Procedure Tbank_class.DelElem(var spis1:TList;tmp:TPElem);
 
begin
  if (spis1.PFirst=nil) or (tmp=nil) then
    exit;
 { if (tmp=spis1.PFirst) and (spis1.PFirst.next<>tmp) then
  begin
 
  spis1.PLast^.next:=tmp.next;
  FreeMem(spis1.PFirst,SizeOf(tlist));
  exit;
 
  end;
  }
  if (tmp=spis1.PFirst) and (spis1.PFirst.next=tmp)  then
  begin
  ListFree(spis1);
  end
  else
  begin
    tmpi:=spis1.PFirst;
    while ((tmpi<>tmp) and (tmpi.next<>tmp)) do
      tmpi:=tmpi^.next;
    tmpi.next:=tmp^.next;
    FreeMem(tmp,sizeof(TPElem));
  end;
end;
 
 
 
procedure Tbank_class.deletezapis(filename:string;number:integer);
var
i:integer;
begin
rewrite(SaveF);
DelByNum(List,number);
PElemload:= List.PFirst;
if PElemload=nil then
exit;
repeat
    write(SaveF,PElemload^);
    PElemload := PElemload^.next;
until  PElemload =  List.PFirst  ;
dec(count);
 
end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2013, 22:01
Здравствуйте! Я подобрал для вас темы с ответами на вопрос удаление первого элемента в кольцевом односвязном списке (Delphi):

Удаление первого символа - Delphi
Как из label удалить первый символ в Caption?

Удаление записей с первого раза - Delphi БД
Ребят у меня такая проблема. Я вот хочу с одной таблицы на вторую отправить все товары, и чтобы в первоначальной откуда отправляю оно...

Реализовать функцию поиска элемента в односвязном списке - Delphi
function SearchInList (BegList: PElement; i: integer; var q: PElement): PElement; begin Result:=nil; q:= BegList; while...

удаление элемента в списке - Delphi
помогите с задачей Дан однонаправленный список L из элементов целого типа. Из каждой группы подряд идущих равных элементов оставить в...

Удаление элемента из списка. поиск элементов в списке - Delphi
Не знаю как к этому реализовать поиск и удаление элементов.Помогите пожалуйста.Заранее спасибо )) unit dinspisoc; interface ...

Удаление в линейном списке - Delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2013, 22:01
Привет! Вот еще темы с ответами:

Удаление одинаковых записей в списке структур - Delphi
В магазине формируется список лиц, записавшихся на покупку товара повышенного спроса. Каждая запись этого списка содержит: порядковый...

Поиск элемента в списке. - Delphi
Необходимо &quot;реализовать функцию поиска элемента е в односвязном списке L.&quot; что такое односвязный список?

Нахождение максимального элемента в списке - Delphi
Есть список TListBox. В него добавляются числа (вводятся в edit1 и нажимается кнопка добавить). При нажатии на кнопку &quot;узнать&quot; в Label1...

Удаление элемента в двусвязном кольцевом списке - C (СИ)
Добрый вечер! Сразу к телу: список двусвязный кольцевой. С помощью поиска нахожу нужный мне элемент. В функцию удаления я передаю номер...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru