Вначале генерируются предметы случайным образом без повторов, но когда начинаешь щелкать на предметах на холсте мышкой, чтобы убрать их. Ново-созданные предметы в слотах начинают повторяться. Пример на картинке в прикрепленном файле.
Screenshot1.jpg (, : 13)
Потом следующее, если на холсте остается меньше 6 предметов, то в этом случае слоты должны освобождаться и быть пустыми, а вместо этого предметы никуда не деваются они также по прежнему заполнены в слотах. Также после завершения игры мы получаем сообщение о победе и слоты опять заполнены.
Screenshot2.jpg (, : 18)
Как исправить проблему повторов и наполненности слотов под конец игры, вот мой код?
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, AppEvnts;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
ApplicationEvents1: TApplicationEvents;
Label3: TLabel;
Memo1: TMemo;
Button2: TButton;
Label4: TLabel;
Button3: TButton;
Memo2: TMemo;
Memo3: TMemo;
procedure Timer1Timer(Sender: TObject);
procedure ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
procedure FormPaint(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TRect = class
private
x0, y0: Integer;
width, height: Integer;
str:String;
color : TColor;
dragok : Boolean;
Map_X, Map_Y: Integer;
id1:Integer;
public
constructor Create(_x0, _y0, _MapX, _MapY, w1, h1,_id1: Integer; _Color:TColor; _str:String; _dragok:Boolean);
Procedure Draw(Cs:TCanvas;x,y,id2,MapX,MapY:Integer); //Прорисовка
end;
TSlot = class
private
x0,y0:Integer;
width, height:Integer;
public
// ; _slot:TRect
constructor Create(_x0, _y0, _width, _height:Integer);
procedure DrawSlot(Cs:TCanvas;x,y,MapX,MapY:Integer); //Прорисовка
procedure DrawItem(Cs:TCanvas;rect:TRect); //Прорисовка
end;
var
Form1: TForm;
rightb, leftb, upb, downb : Boolean;
OldX, OldY : integer;
//dragok : Boolean;
dragok:Integer;
StartX:Integer;
StartY:Integer;
H1, W1,jj : Integer;
rect2: Array [0..19] Of TRect;
rect : Array [0..19] Of TRect;
slt: Array[0..5] of TSlot;
//12:45
//x , y
Position2: Array[0..19,1..2] of Integer;
Item1: Array[0..19] of String = ('Thread','Goblet','Stick','Doorknob','Loupe','Statuette','Ring',
'Crown','Vase','Gripsack','Book','Glove','Salver','Brush','Handbell','Cigarcase','Lantern','Card','Candy',
'Whisk');
//slot1:Array[0..5] of String = ('Goblet','Vase','Thread','Whisk','Stick','Handbell');
slot1:Array of String;
ItemColor: Array[0..19] of TColor = (clMaroon,clGreen,clOlive,clNavy,clPurple,clTeal,clGray,
clSilver,clRed,clLime,clYellow,clBlue,clFuchsia,clAqua,
//ЗАКОНЧИЛИСЬ ЦВЕТА ПРИШЛОСЬ ИСПОЛЬЗОВАТЬ СИСТЕМНЫЕ
clInactiveCaption,clActiveCaption,clBackground,
clInactiveCaptionText,clBtnShadow,clBtnFace);
var
tmpItem: array of String;
implementation
{$R *.dfm}
// _slot:TRect
constructor TSlot.Create(_x0, _y0, _width, _height:Integer);
begin
inherited Create;
x0 := _x0;
y0 := _y0;
width:= _width;
height:= _height;
// slot:=_slot;
end;
procedure SaveToFile(file1:string;str:string);
var
f:TextFile;
FileDir:String;
begin
FileDir:='c:\docum\'+file1;
AssignFile(f,FileDir);
if not FileExists(FileDir) then
begin
Rewrite(f);
CloseFile(f);
end;
Append(f);
Writeln(f,str);
Flush(f);
CloseFile(f);
end;
//Создание ячеек для слотов
procedure TSlot.DrawSlot(Cs:TCanvas;x,y,MapX,MapY:Integer);
begin
Form1.Canvas.Brush.Color:=clGray;
Cs.Rectangle(x0+MapX,y0+MapY,x0+width+MapX,y0+height+MapY);
end;
//Добавляем в слоты предметы
procedure TSlot.DrawItem(Cs:TCanvas;rect:TRect);
var newX,newY:Integer;
begin
newX := x0+5;
newY := y0+5;
rect.Draw(Form1.Canvas,newX,newY,rect.id1,0,0);
end;
constructor TRect.Create(_x0,_y0,_MapX,_MapY,w1,h1,_id1: Integer; _Color: TColor; _str:String; _dragok:Boolean);
begin
inherited Create;
x0 := _x0;
y0 := _y0;
str := _str;
width := w1;
height := h1;
color := _Color;
dragok := _dragok;
Map_X := _MapX;
Map_Y := _MapY;
id1:=_id1;
end;
//Создаем на холст предметы и пронумеруем их.
procedure TRect.Draw(Cs: TCanvas; x, y, id2, MapX, MapY: Integer);
begin
//x0 := x;
//y0 := y;
Map_X := MapX;
Map_Y := MapY;
Form1.Canvas.Brush.Color:=color;
Cs.Rectangle(x+Map_X,y+Map_Y,x+width+Map_X,y+height+Map_Y);
// with Form1.Canvas do
// begin
Cs.Font.Name:= 'Numeration';
Cs.Font.Size:= 18;
Cs.Font.Style:= [fsBold,fsItalic];
Cs.Font.Color:= clBlack;
//clWindowText
Cs.TextOut(x0, y0, IntToStr(id1));
Cs.Font.Color:= clBlack;
Cs.TextOut(x0, y0, IntToStr(id1));
//end;
end;
//Таймер для прорисовки предметов на холсте
procedure TForm1.Timer1Timer(Sender: TObject);
var i,j,k,aa:Integer;
begin
OldX := 0;
OldY := 0;
Form1.Canvas.Brush.Color:=clWhite;
Form1.Canvas.FillRect(Form1.ClientRect);
Memo1.Lines.Clear;
//Рисуем на холсте предметы, выбираем их из массива и только те у которых
//значение не равно empty.
for i := 0 to 19 do
begin
if Item1[i] <> 'empty' then
begin
rect[i].x0:=rect[i].x0;
rect[i].y0:=rect[i].y0;
rect[i].Draw(Form1.Canvas,Position2[i,1],Position2[i,2],i,0,0);
end;
end;
//Делаем проверку массива tmpItem, чтобы определить
//остались предметы на холссте. Выводим сообщение, что предметы найдены.
if High(tmpItem)=0 then
begin
Timer1.Enabled:=false;
ShowMessage('Вы нашли все предметы!');
end;
// tmpItem[aa]
Memo1.Clear;
for aa:=low(tmpItem) to high(tmpItem) do Memo1.Lines.Add(IntToStr(High(tmpItem)));
Memo2.Clear;
for j:=0 to 5 do
begin
slt[j]:=TSlot.Create(10+j*60,370,50,50);
slt[j].DrawSlot(Form1.Canvas,0,0,0,0);
//Сравниваем элементы
for k:=0 to 19 do
begin
//slot1 - где в слоты добавляются предметы
//rect[k].str - все элементы массива которые находятся на хостле
//Происходит сравнение двух массивов и если находятся совпадения
//то эти предметы добавляются в слот
if rect[k].str = slot1[j] then
begin
Memo2.Lines.Add(IntToStr(k));
rect2[j] := TRect.Create(10+j*60,370,0,0,40,40,k,ItemColor[k],Item1[j],false);
slt[j].DrawSlot(Form1.Canvas,0,0,0,0);
slt[j].DrawItem(Form1.Canvas,rect2[j]);
end;
// ShowMessage(rect[k].str);
end;
end;
end;
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
P : TPoint;
i,ii,b,t1: Integer;
begin
if Msg.message = WM_LBUTTONDOWN then
begin
jj:=0;
P:=Form1.ScreenToClient(Mouse.CursorPos);
for i := 0 to 19 do
begin
if (rect[i].x0 < P.X) and
(rect[i].x0+rect[i].width > P.X)
and (rect[i].y0 < P.Y) and
(rect[i].y0+rect[i].height > P.Y)
then
begin
t1:=1;
//Создается временный массив куда заносятся оставшиеся элементы которые
//еще не выбыли с холста.
//Перед созданием tmpItem проверяется, чтобы значение Item1 не было пустым
for b:=low(Item1) to high(Item1) do
if Item1[b]<>'empty' then begin
setLength(tmpItem, t1);
tmpItem[t1-1]:=Item1[b];
inc(t1);
end;
//При нажатии происходит сравнение всех предметов которые на холсте,
//с теми что в слотах и если совпадение найдено, предмет удаляется, а
//в массиве мы получаем пустое значение
for ii:=0 to 5 do
begin
if rect[i].str = slot1[ii] then
begin
slot1[ii]:=tmpItem[Random(Length(tmpItem))];
Item1[i]:='empty';
end;
end;
end;
end;
end;
if Msg.message = WM_LBUTTONUP then
begin
for i := 1 to 10 do
begin
rect[i].dragok:=false;
end;
end;
end;
procedure TForm1.FormPaint(Sender: TObject);
var i,j,k: Integer;
begin
//Стартовые позиции всех предметов
Position2[0,1]:=280;
Position2[1,1]:=420;
Position2[2,1]:=11;
Position2[3,1]:=85;
Position2[4,1]:=255;
Position2[5,1]:=180;
Position2[6,1]:=350;
Position2[7,1]:=120;
Position2[8,1]:=240;
Position2[9,1]:=170;
Position2[10,1]:=350;
Position2[11,1]:=120;
Position2[12,1]:=170;
Position2[13,1]:=50;
Position2[14,1]:=20;
Position2[15,1]:=300;
Position2[16,1]:=180;
Position2[17,1]:=80;
Position2[18,1]:=230;
Position2[19,1]:=50;
Position2[0,2]:=110;
Position2[1,2]:=44;
Position2[2,2]:=274;
Position2[3,2]:=300;
Position2[4,2]:=200;
Position2[5,2]:=200;
Position2[6,2]:=100;
Position2[7,2]:=150;
Position2[8,2]:=270;
Position2[9,2]:=300;
Position2[10,2]:=20;
Position2[11,2]:=210;
Position2[12,2]:=50;
Position2[13,2]:=100;
Position2[14,2]:=30;
Position2[15,2]:=270;
Position2[16,2]:=120;
Position2[17,2]:=40;
Position2[18,2]:=50;
Position2[19,2]:=170;
//Отрисовываем все предметы на холсте
for i := 0 to 19 do
begin
rect[i] := TRect.Create(Position2[i,1],Position2[i,2],0,0,40,40,i,ItemColor[i],Item1[i],false);
rect[i].Draw(Form1.Canvas,Position2[i,1],Position2[i,2],i,0,0);
end;
Memo1.Clear;
for j:=0 to 5 do
begin
slt[j]:=TSlot.Create(10+j*60,370,50,50);
slt[j].DrawSlot(Form1.Canvas,0,0,0,0);
//Сравниваем значение массивов со слотами, если название предметов совпадает рисуем их.
for k:=0 to 19 do
begin
if rect[k].str = slot1[j] then
begin
rect2[j] := TRect.Create(10+j*60,370,0,0,40,40,k,ItemColor[k],Item1[j],false);
//Создаем слоты
slt[j].DrawSlot(Form1.Canvas,0,0,0,0);
//Рисуем предметы
slt[j].DrawItem(Form1.Canvas,rect2[j]);
end;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:= 0 to 5 do
begin
//ShowMessage(slot1[i]);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var aa:Integer;
begin
for aa:=0 to High(slot1) do
begin
slot1[aa]:=Item1[aa];
Memo1.Lines.Add(slot1[aa])
end;
end;
procedure TForm1.FormShow(Sender: TObject);
var i,k1,j:Integer; s:String;
begin
//Создаем новый массив с шестью слотами
setLength(slot1,6);
//Перемещиваем предметы случайным образом и добавляем их в слоты
for i := High(Item1) downto 0 do
begin
j := Random(i + 1);
s := Item1[i];
Item1[i] := Item1[j];
Item1[j] := s;
end;
for k1:=0 to High(slot1) do
begin
slot1[k1]:=Item1[k1];
Memo3.Lines.Add(Item1[k1])
end;
slot1[0]:='Goblet';
slot1[1]:='Vase';
slot1[2]:='Thread';
slot1[3]:='Stick';
slot1[4]:='Handbell';
slot1[5]:='Whisk';
Timer1.Enabled:=True;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
end.
Это Ваше "заднее" слово?) 
