|
Вопрос # 2 906/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
вопрос по доработке кода: есть список из чисел, в который можно добавлять элементы, кнопочка чтоб отображать список в Label1, нужно доработать код штоб при нажатии на кнопку удолялся элемент списка который равен "0"-му значению.
Начало задачи прилогаю, а вот с удолением проблемы :(
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
- type
- TForm1 = class(TForm)
- Label1: TLabel;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure FormActivate(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-
- var
- Form1: TForm1;
- Type
- L1=^elem;
- data=integer;
- elem=record
- d:integer;
- link:L1;
- end;
- var F1,F2:L1;
- Pn,p:L1;
- implementation
-
- {$R *.dfm}
- procedure TForm1.Button1Click(Sender: TObject);
- Var i:integer;
- p1:L1;
- begin
- p1:=F1;
- i:=1;
- Label1.Caption:='';
- WHILE p1<>nil do begin
- Label1.Caption:=Label1.Caption+#13+floattostr(i)
-
-
-
- i:=i+1;
- end;
- end;
-
-
- procedure TForm1.Button2Click(Sender: TObject);
- begin
-
- if F1=nil then begin
-
-
- F1^.d:=random(0+5);
- F1^.link:=nil;
- p:=F1;
- end
- else begin
- new(F2);
- F2^.d:=random(0+5);
- F2^.link:=nil;
-
- p.link:=F2;
- p:=F2;
- end;
- end;
 |
Вопрос задала: Mania (статус: Посетитель)
Вопрос отправлен: 13 июня 2009, 11:46
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 14 июня 2009, 09:58; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 13 июня 2009, 16:08 [#1]:
Матерь божья!
Ну почему не воспользоваться классом TList?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Вадим К (статус: Академик), 13 июня 2009, 17:01 [#2]:
ВИдимо потому, что это задание в Вузе.
То Mania. Не надо дублировать вопросы. Я удалю предыдущий дубликат.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Mania (статус: Посетитель), 13 июня 2009, 17:27 [#3]:
Да Вы правы Вадим К,это вузовское задание, которое не получается и неккому обратиться с вопросами вот студенты и обращаются на форумы за помощью.
|
|
|
min@y™ (статус: Доктор наук), 14 июня 2009, 09:48 [#4]:
А как дословно это самое задание звучит?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Mania (статус: Посетитель), 14 июня 2009, 09:58 [#5]:
Спасибо всем за проявленое внимание к моему вопросу, в задаче разобралась сама 
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
