Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Image5.Hide;

Image6.Hide;

Button18.Enabled := False;

Button19.Enabled := False;

Button20.Enabled := False;

StatusBar1.Panels[1].Text := 'Дек пуст'; end;
Image5.Left := Round(DeckBeginPos * 7); end;

procedure TForm1.FormCreate(Sender: TObject); begin
Windows.SetFocus(Button21.Handle); end;

procedure TForm1.Button19Click(Sender: TObject); var i, a: Integer; s: string; begin
StatusBar1.Panels[0].Text := '';
GetDeckEnd(DeckEnd); if DeckEnd nil then begin while Edit5.Text[DeckEndPos] ' ' do Dec(DeckEndPos);

Dec(DeckEndPos); s := Edit5.Text; for i := DeckEndPosition downto DeckEndPos + 1 do if s[i] ' ' then s[i] := ' ';

Edit5.Text := s;

//удаляем все пробелы конце строки s := ''; i := Length(Edit5.Text) - 1; while Edit5.Text[i] = ' ' do Dec(i); for a := 1 to i do s := s + Edit5.Text[a];

Edit5.Text := s; end; if (DeckEnd = nil) and (DeckBegin = DeckEnd) then begin

ShowMessage('Дек пуст');

Edit5.Text := '';

Image5.Hide;

Image6.Hide;

Button19.Enabled := False;

Button20.Enabled := False;

StatusBar1.Panels[1].Text := 'Дек пуст'; end;
Image6.Left := Round(DeckEndPos * 7 - 9); end;

procedure TForm1.Button5Click(Sender: TObject); begin

Form5.Show; end;

procedure TForm1.Button2Click(Sender: TObject); begin
DeleteFromList(ListPos);
DoNewEditList; end;

procedure TForm1.Button6Click(Sender: TObject); begin
DeleteFromListTwo(ListTwoPos);
DoNewEditListTwo; end;

procedure TForm1.Button10Click(Sender: TObject); var i, a: Integer; s1, s2: string; begin
GetQueue(QueueBegin); if QueueBegin nil then begin i := QueuePos; while (Edit3.Text[i] ' ') and (i " служат для перемещения курсора по списку.');
Memo1.Lines.Add(' а) Переместитесь влево до 3, 5 и последнего элемента;');
Memo1.Lines.Add(' б) Переместитесь вправо до первого элемента (см. коментарии);');
Memo1.Lines.Add(' Кнопка "Добавить" служит для добавления элемента в список.');
Memo1.Lines.Add(' а) Добавьте после 3, 5, 7 элемента цифру 33 в обоих списках;');
Memo1.Lines.Add(' б) Добавте 1-м и 3-м элементом цифру 55 в двунаправленном списке;');
Memo1.Lines.Add(' Кнопка "Удалить" служит для удаления элемента из списка.');
Memo1.Lines.Add(' а) Удалите 3, 5, 7 элементы в однонаправленном списке;');
Memo1.Lines.Add(' б) Удалите последний, 1 и 3 элементы в двунаправленном;');
Memo1.Lines.Add('');
Memo1.Lines.Add('3. На листе формата А4, опишите ход проделанной работы.');
Memo1.Lines.Add(' Ответьте на поставленные вопросы:');
Memo1.Lines.Add(' 1) Обратите внимание как перемещается курсор?');
Memo1.Lines.Add(' 2) Чем отличается однонаправленный и двунаправленный списки?');
Memo1.Lines.Add(' 3) Можно ли добавить элемент в любое место списка?');
Memo1.Lines.Add(' 4) Можно ли удалить любой элемент из списка?'); end;

procedure TForm1.N31Click(Sender: TObject); begin
Memo1.Clear;
Memo1.Lines.Add(' Лабораторная работа №3.');
Memo1.Lines.Add(' "Циклический список"');

Рекомендуем скачать другие рефераты по теме: гигиена реферат, курсовик.





Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата