Вариант 01. Создать Приложение, позволяющее работать со списком: удалять из списка

  • ID: 01447 
  • 3 страницы
60 рубСкачать

антиплагиат в подарок

Project1.cfg

Project1.dof

Project1.dpr

Project1.exe

Project1.res

Unit1.dcu

Unit1.dfm

Unit1.pas

Контрольная работа.docx

Фрагмент работы:

Вариант 01

Задание[image]

Создать Приложение, позволяющее работать со списком: удалять из списка, добавлять в список. Для этого можно использовать компоненты TListBox и TButton.

Вид формы

Текст модуля

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Spin;

type

TForm1 = class(TForm)

ListBox1: TListBox;

ListBox2: TListBox;

Button1: TButton;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items.Add('Иванов');

ListBox1.Items.Add('Петров');

ListBox1.Items.Add('Сидоров');

ListBox1.Items.Add('Орлов');

ListBox1.Items.Add('Соколов');

end;

procedure TForm1.Button1Click(Sender: TObject);

var

i,k:integer;

begin

for i:=0 to ListBox1.Items.Count-1 do begin

If ListBox1.Selected[i] then begin

ListBox2.Items.Add(ListBox1.Items[i]);

k:=ListBox1.ItemIndex;

ListBox1.Items.Delete(k);

end;

end;//for

end;

procedure TForm1.Button2Click(Sender: TObject);

var

i,k:integer;

begin

for i:=0 to ListBox2.Items.Count-1 do begin

If ListBox2.Selected[i] then begin

ListBox1.Items.Add(ListBox2.Items[i]);

k:=ListBox2.ItemIndex;

ListBox2.Items.Delete(k);

end;

end;//for

end;

end.