Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit Town;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfrmTown = class(TForm)
btn2: TButton;
lbl2: TLabel;
lst1: TListBox;
lst2: TListBox;
btn4: TButton;
btn5: TButton;
btn6: TButton;
lbl3: TLabel;
btn1: TButton;
lbl1: TLabel;
lbl4: TLabel;
lbl5: TLabel;
procedure btn2Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmTown: TfrmTown;
implementation
{$R *.dfm}
procedure TfrmTown.btn2Click(Sender: TObject);
var
i:Integer;
begin
lbl1.Caption:=IntToStr(lst2.Items.Count);
lbl2.Caption:=IntToStr(lst1.Items.Count);
for i:=lst1.Items.Count-1 downto 0 do
if lst1.Selected[i] then
begin
lst2.Items.Add(lst1.Items[i]);
lst1.Items.Delete(i);
end;
end;
procedure TfrmTown.btn4Click(Sender: TObject);
var
i:Integer;
begin
lbl2.Caption:=IntToStr(lst2.Items.Count);
lbl1.Caption:=IntToStr(lst1.Items.Count);
for i:=lst2.Items.Count-1 downto 0 do
if lst2.Selected[i] then
begin
lst1.Items.Add(lst2.Items[i]);
lst2.Items.Delete(i);
end;
end;
procedure TfrmTown.btn6Click(Sender: TObject);
begin
Close;
end;
procedure TfrmTown.btn5Click(Sender: TObject);
begin
lbl3.Caption:=('Игра города');
end;
procedure TfrmTown.btn1Click(Sender: TObject);
begin
lbl3.Caption:=('Студент группы 1341ст, НУК Готовко Сергей');
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfrmTown = class(TForm)
btn2: TButton;
lbl2: TLabel;
lst1: TListBox;
lst2: TListBox;
btn4: TButton;
btn5: TButton;
btn6: TButton;
lbl3: TLabel;
btn1: TButton;
lbl1: TLabel;
lbl4: TLabel;
lbl5: TLabel;
procedure btn2Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmTown: TfrmTown;
implementation
{$R *.dfm}
procedure TfrmTown.btn2Click(Sender: TObject);
var
i:Integer;
begin
lbl1.Caption:=IntToStr(lst2.Items.Count);
lbl2.Caption:=IntToStr(lst1.Items.Count);
for i:=lst1.Items.Count-1 downto 0 do
if lst1.Selected[i] then
begin
lst2.Items.Add(lst1.Items[i]);
lst1.Items.Delete(i);
end;
end;
procedure TfrmTown.btn4Click(Sender: TObject);
var
i:Integer;
begin
lbl2.Caption:=IntToStr(lst2.Items.Count);
lbl1.Caption:=IntToStr(lst1.Items.Count);
for i:=lst2.Items.Count-1 downto 0 do
if lst2.Selected[i] then
begin
lst1.Items.Add(lst2.Items[i]);
lst2.Items.Delete(i);
end;
end;
procedure TfrmTown.btn6Click(Sender: TObject);
begin
Close;
end;
procedure TfrmTown.btn5Click(Sender: TObject);
begin
lbl3.Caption:=('Игра города');
end;
procedure TfrmTown.btn1Click(Sender: TObject);
begin
lbl3.Caption:=('Студент группы 1341ст, НУК Готовко Сергей');
end;
end.