Курсовая - пасьянс

[Achtung-Partizanen]

Вот сегодня дали наконец задание на курсовую: в Делфе написать пасьянс. Пасьянсы у всех разные, по 1 на двоих. Если интересно, то мне достался Can-Can. Так вот, я прошу совета: как делать? Насколько я понял, есть два пути. Первый - это насоздавать энное количество динамических списков, и в процессе игры просто перемещать карты-записи из одного в другой, ну а на игровом поле рисовать карту в зависимости от того, на какой элемент указывает старт списка. Но в этом случае я понятия не имею, как сделать перетаскивание карт... Ну а второй - сразу создавать список из графических объектов. Но опять же я не знаю, как выполнить перетаскивание, и к тому же с динамическим списком из графических объектов в прошлый раз у меня как-то не заладилось...

[bill]

Исользуйте image и пользуйтесь процедурами draganddrop и dragover- перетаскивание. Это легче чем заново все рисовать.
С записью примерно тоже самое.

[mutabor]

Лучше условно поделить код на логику и графику не зависящие друг от друга. В любой момент можно будет изменить графику не испортив всю программу.

Но в этом случае я понятия не имею, как сделать перетаскивание карт...

обрабатывая события мыши - Move, Down, Up.
держи пример

[Achtung-Partizanen]

Тут еще какая-то фигня фозникла... Я даже список оформить не успел...
В разделе Type:

type
TForm1 = class(TForm)


ukz=^card;
card=record
{ color:[red,black];
colour:[tref,pik,cherv,buben];}
next:ukz;
end;}
private
{ Private declarations }
public
{ Public declarations }
end;

Вот между двумя выделенными символами зачем-то двоеточие просит...

[Showy]

Просто поставь перед объявлением формы

type
ukz=^card;
card=record
{ color:[red,black];
colour:[tref,pik,cherv,buben];}
next:ukz;
end;
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

[Achtung-Partizanen]

О, точно!
Спасибо! Пойду дальше писать

[Achtung-Partizanen]

Опять проблема:
В строке if xcard=nullcard then continue; пишет: Incompatible types, хотя xcard и nullcard - объекты одного типа card - записи, при этом xcard'у присваивается значение элемента массива (того же типа), а у nullcard все поля пустые, я ее использую для случайного заполнения списков из массива (на место уже взятой карты ставится nullcard, и при следующем шаге цикла при попадании на nullcard шаг прерывается)

[Achtung-Partizanen]

Забудьте пару моих предыдущих постов.

Вопрос: как реализовать стопки - списком лучше или массивом? Какие потребуются методы и как их описывать?
Вот часть кода (с классами ТКарта и ТКолода, сейчас пытаюсь реализовать ТСписок):

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TCardNames = (CA,C2,C3,C4,C5,C6,C7,C8,C9,C10,CJ,CQ,CK); // номиналы
  TCardSuits = (Clubs,Spades,Diamonds,Hearts);            // масти (трефы, пики, бубны, червы)

const
  CardNamesCount = Ord(High(TCardNames))+1;       // количество карт в масти
  CardSuitsCount = Ord(High(TCardSuits))+1;       // количество мастей
  CardsCount     = CardNamesCount*CardSuitsCount; // количество карт в колоде

type
  TCard = class // тип данных для карты
  private
    FData : Integer; // идентификатор карты
    function GetName : TCardNames;
    function GetSuit : TCardSuits;
    function GetIsBlack : Boolean;
  public
    constructor Create(AData : Integer);
    property Name : TCardNames read GetName;    // возвращает номинал карты
    property Suit : TCardSuits read GetSuit;    // возвращает масть карты
    property IsBlack : Boolean read GetIsBlack; // возвращает true для черной карты
  end;

  TDeck = class // тип данных для колоды карт
  private
    FCards : array[0..(CardsCount-1)] of TCard; // массив карт
    function GetCards(Index : Integer) : TCard;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Shuffle;             // перемешивает колоду
    property Cards[Index : Integer] : TCard read GetCards; // возвращает карту, по порядковому номеру в колоде
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TCard }

constructor TCard.Create(AData : Integer);
begin
  FData:=AData;
end;

function TCard.GetName : TCardNames;
begin
  Result:=TCardNames(FData MOD CardNamesCount);
end;

function TCard.GetSuit : TCardSuits;
begin
  Result:=TCardSuits(FData DIV CardNamesCount);
end;

function TCard.GetIsBlack : Boolean;
begin
  Result:=(FData < (CardsCount DIV 2));
end;

{ TDeck }

constructor TDeck.Create;
var
  i : Integer;
begin
  for i:=0 to (CardsCount-1) do
    FCards[i]:=TCard.Create(i);
end;

destructor TDeck.Destroy;
var
  i : Integer;
begin
  for i:=0 to (CardsCount-1) do
    FCards[i].Free;
end;

function TDeck.GetCards(Index : Integer) : TCard;
begin
  Result:=FCards[Index];
end;

procedure TDeck.Shuffle;
var
  Rest : Integer; // количество еще не перемешанных карт
  i : Integer;
  Card : TCard;
begin
  Randomize;
  Rest:=CardsCount; // инициализируем суммарным количеством карт в колоде
  repeat
    i:=Random(Rest); // выбираем случайную карту из неперемешанных
    if i < (Rest-1)  // если это последняя карта из неперемешанных, то пропускаем
    then
      begin
      Card:=FCards[i]; // вытаскиваем выбранную карту
      Move(FCards[i+1],FCards[i],SizeOf(TCard)*(Rest-i-1)); // сдвигаем оставшиеся
      FCards[Rest-1]:=Card; // помещаем вытащенную карту после свдинутых
      end;
    Dec(Rest); // уменьшаем количество неперемешанных карт
  until Rest < 2; // если осталась последняя карта, выходим из цикла
end;

Класс списка пока предположительно выглядит вот так:

 TList = class //тип данных для списка
  type
   ukz=^zap;
   zap=record
    int: TCard;
    next: ukz;
   end;
  private

    function GetCards(Index : Integer) : TCard;
  public
   constructor Create;
   destructor Destroy; override;
   property Cards[Index : Integer] : TCard read GetCards;

 end;

[mutabor]

TList = class //тип данных для списка

в Дельфи уже есть класс TList

Вопрос: как реализовать стопки - списком лучше или массивом?

не вижу разницы, список это тоже массив

[pu4koff]

Сообщение от mutabor

не вижу разницы, список это тоже массив

если не видишь разницы, то учи мат. часть

А вот уважаемый автор вам виднее подойдет ли список и какой именно список или всеже массив нужен. Все зависит от того, что вы со стопками делать будете.
Допустим, если местами надо элементы менять, то массив ф топку