Ejo. Mam problem z napisaniem aplikacji Kółko i krzyżyk. Korzystam z Delphi 7.0. Grę stworzyłem z pomocą "Delphi 5 dla początkujących"
Wszystko wyszło mi następująco.
unit kik;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons;
type
TMainForm = class(TForm)
b1: TSpeedButton;
b2: TSpeedButton;
b3: TSpeedButton;
b4: TSpeedButton;
b5: TSpeedButton;
b6: TSpeedButton;
b7: TSpeedButton;
b8: TSpeedButton;
b9: TSpeedButton;
Player1: TSpeedButton;
Player2: TSpeedButton;
procedure b1Click(Sender: TObject);
private
procedure CheckIt;
if (b1.Caption = 'X') and (b2.Caption = 'X') and
(b3.Caption = 'X') or (b1.Caption = 'O' and
(b2.Caption = 'O') and (b3.Caption = 'O') then
Winner;
if (b1.Caption = 'X') and (b5.Caption = 'X') and
(b9.Caption = 'X') or (b1.Caption = 'O' and
(b5.Caption = 'O') and (b3.Caption = 'O') then
Winner;
if (b1.Caption = 'X') and (b4.Caption = 'X') and
(b7.Caption = 'X') or (b1.Caption = 'O' and
(b4.Caption = 'O') and (b7.Caption = 'O') then
Winner;
if (b4.Caption = 'X') and (b5.Caption = 'X') and
(b6.Caption = 'X') or (b4.Caption = 'O' and
(b5.Caption = 'O') and (b6.Caption = 'O') then
Winner;
if (b7.Caption = 'X') and (b8.Caption = 'X') and
(b9.Caption = 'X') or (b7.Caption = 'O' and
(b8.Caption = 'O') and (b9.Caption = 'O') then
Winner;
if (b2.Caption = 'X') and (b5.Caption = 'X') and
(b8.Caption = 'X') or (b2.Caption = 'O' and
(b5.Caption = 'O') and (b8.Caption = 'O') then
Winner;
if (b3.Caption = 'X') and (b6.Caption = 'X') and
(b9.Caption = 'X') or (b3.Caption = 'O' and
(b6.Caption = 'O') and (b9.Caption = 'O') then
Winner;
if (b3.Caption = 'X') and (b5.Caption = 'X') and
(b7.Caption = 'X') or (b3.Caption = 'O' and
(b5.Caption = 'O') and (b7.Caption = 'O') then
Winner;
procedure Change;
if Player1.Down then //Jezeli wcisnięty jest klawisz Player1
Player2.Dwoan := True //Wcisniety klawisz Player2
else //Jezeli jest odwrotnie....
Player1.Down := True; //...wcisnij klawisz Player1
procedure Winne;
if Player1.Down then
ShowMessage(Format('Jestes zajebisty! Wygrał gracz %s', [Player1.Caption]))
else
ShowMessage(Format('Jestes zajebisty! Wygrał gracz %s', [Player2.Caption]));
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.b1Click(Sender: TObject);
if Player1.Down then
TSpeedButton(Sender).Caption := 'X'
else
TSpeedButton(Sender).Caption := 'O';
CheckIt;
Change;
begin
end;
end.
JEDNAK kiedy próbuję włączyć aplikacje skrótem F9 zaznacza mi się linijka:
if (b1.Caption = 'X') and (b2.Caption = 'X') and
A na dole pisze:
[Error] kik.dpr(26): 'END' expected but 'IF' found
[Error] kik.dpr(26): ',' or ':' expected but '=' found
[Error] kik.dpr(26): Identifier redeclared: 'b2'
[Error] kik.dpr(26): ',' or ':' expected but '=' found
[Error] kik.dpr(27): Identifier redeclared: 'b3'
[Error] kik.dpr(27): ',' or ':' expected but '=' found
[Error] kik.dpr(27): Identifier redeclared: 'b1'
[Error] kik.dpr(27): ',' or ':' expected but '=' found
[Error] kik.dpr(28): ',' or ')' expected but '.' found
[Error] kik.dpr(28): Incompatible types: 'Integer' and 'Char'
[Error] kik.dpr(28): ',' or ':' expected but '=' found
[Error] kik.dpr(29): ',' or ':' expected but ';' found
[Error] kik.dpr(30): ',' or ')' expected but '.' found
[Error] kik.dpr(30): Incompatible types: 'Integer' and 'Char'
[Error] kik.dpr(30): ',' or ':' expected but '=' found
[Error] kik.dpr(31): Identifier redeclared: 'b9'
[Error] kik.dpr(31): ',' or ':' expected but '=' found
[Error] kik.dpr(31): Identifier redeclared: 'b1'
[Error] kik.dpr(31): ',' or ':' expected but '=' found
[Error] kik.dpr(32): ',' or ')' expected but '.' found
[Error] kik.dpr(32): Incompatible types: 'Integer' and 'Char'
[Error] kik.dpr(32): ',' or ':' expected but '=' found
[Error] kik.dpr(33): Identifier redeclared: 'Winner'
[Error] kik.dpr(34): Identifier redeclared: 'b1'
[Error] kik.dpr(34): Incompatible types: 'Integer' and 'Char'
[Error] kik.dpr(34): ',' or ':' expected but '=' found
[Error] kik.dpr(35): Identifier redeclared: 'b7'
[Error] kik.dpr(35): ',' or ':' expected but '=' found
[Error] kik.dpr(35): Identifier redeclared: 'b1'
[Error] kik.dpr(35): ',' or ':' expected but '=' found
[Error] kik.dpr(36): ',' or ')' expected but '.' found
[Error] kik.dpr(36): Incompatible types: 'Integer' and 'Char'
[Error] kik.dpr(36): ',' or ':' expected but '=' found
[Error] kik.dpr(37): Identifier redeclared: 'Winner'
[Error] kik.dpr(38): Identifier redeclared: 'b4'
[Fatal Error] kik.dpr(38): Compilation terminated; too many errors
Z góry dziękuję za pomoc.