Пишу шахматы на делфи

[DeKot]

потом аи считает лучший ход

О уже АИ есть. Я бы посоветовал все таки вернуться к ШАШКАМ.
20 постов - одно ля-ля.Это разве шахматы?
Злой я сегодня.

[-COREY-]

Аи это так.Вообще есть функция AlphaBeta перебора,только без отсечения дерева

[-COREY-]

И у меня курсач по шахматам,а не шашкам

[Вадим Буренков]

Ну а зачем его не выключать?Человек выбрал фигуру,если ход верный,то включается таймер и делается перемещение,таймер выключается,потом аи считает лучший ход,когда находит включается таймер и делается ход,когда ход сделан таймер выключается и по новой.

И если таймер не выключать,то тогда какой лимит времени ему ставить?

Ну мне тогда не объяснить...
Любая игра представляет собой цикл, условием которого является выход из игры. Таким циклом и является таймер. Покажи мне структуру кода, при котором цикл вообще не используется (такое как раз когда таймер выключается).

[-COREY-]

а всё,теперь понял

[-COREY-]

Сделал по своему с отключением и включением таймера,фигуры пошли.Теперь проблема с генерацией ходов для чёрных фигур компа.Подкиньте пару идей,как это сделать можно.Свои генераторы я написал,но они наверное работают неправильно...Подскажите как быть

[-COREY-]

возникла такая проблема.Написал взятия...Изображения фигур выводятся на форму через canvas
например вот так,изображения в формате bmp и буффер типа TBitmap

Buffer.Canvas.Draw(WK.x+_LEFT,WK.y+_TOP,      WK.img);

когда съедается например пешка,то вызывается процедура free для объекта пешки,но потом когда я вызываю процедуру вывода фигур delphi зависает т.к. область память где хранится инфа о картинке удалена.Подскажите пожалуйста,как это исправить?

[DeKot]

Так не надо удалять объект методом Free. Достаточно перезаписывать в TBitMap(вывода) изображение новой фигуры и выводить на канву.А каждую фигуру хранить в своем TBitMap.

[-COREY-]

Спасибо,разобрался,теперь ещё вопрос.Мне надо чтобы listbox выводил порядок ходов.Вот кусок, который надо вывести.

str:=IntToStr(ListBox1.Count + 1) + '. ';
str:=str+letter[xforcell(o_cl)]+inttostr(8-yforcell(o_cl))+ '-'+
     letter[xforcell(n_cl)]+inttostr(8-yforcell(n_cl));
ListBox1.AddItem(Str, nil);

Куда его вписать подскажите пожалуйста

[-COREY-]

ещё одна трабла,есть такое правило,когда пешка доходит до последней линии противника то превращается в ферзя,требуется отключить изображение пешки от объекта и подключить ферзя,при обновлении доски delphi опять капризничает.
вот код действия

procedure TFigures.PawnPerform(cl:shortint);
begin
  if yforcell(cl)=0 then
  begin
    ft:=ftQueen;
    img.Destroy;
    img:=TBitmap.Create;
    img.LoadFromFile('\images\wq.bmp');
  end
else Exit;
end;