Проблема с созданием процедуры

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Проблема с созданием процедуры

Сообщение hokadva » 09.06.2022 17:13:03

Error:Forward declaration not solved clear;
Код: Выделить всё
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button10: TButton;
    Button11: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure clear();
  private

  public

  end;

var
  Form1: TForm1;
  x,vi1,vi2,vi3,vi4,vi5,vi6,vi7,vi8,vi9:string;
implementation

{$R *.lfm}

{ TForm1 }
procedure clear();
     begin
     if (vi1=vi2) and (vi1=vi3) and (vi1='x') or (vi1=vi4) and (vi1=vi7) and (vi4='x') or (vi7=vi8)
        and (vi8='x') and (vi7=vi9) or (vi3='x') and (vi6=vi9) and (vi9=vi3) or (vi4='x') and (vi5=vi6) and (vi4=vi6) or
        (vi1='x') and (vi1=vi9) and (vi5=vi9) or (vi7='x') and (vi5=vi3) and (vi3=vi7) then
        begin
          ShowMessage('победили крестики');
          form1.Button1.caption:='';
          form1.Button2.caption:='';
          form1.Button3.caption:='';
          form1.Button4.caption:='';
          form1.Button5.caption:='';
          form1.Button6.caption:='';
          form1.Button7.caption:='';
          form1.Button8.caption:='';
          form1.Button9.caption:='';
          vi1:='т';
          vi2:='т';
          vi3:='т';
          vi4:='т';
          vi5:='т';
          vi6:='т';
          vi7:='т';
          vi8:='т';
          vi9:='т';
        end;
     if (vi1=vi2) and (vi1=vi3) and (vi1='0') or (vi1=vi4) and (vi1=vi7) and (vi4='0') or (vi7=vi8)
        and (vi8='0') and (vi7=vi9) or (vi3='0') and (vi6=vi9) and (vi9=vi3) or (vi4='0') and (vi5=vi6) and (vi4=vi6) or
        (vi1='0') and (vi1=vi9) and (vi5=vi9) or (vi7='0') and (vi5=vi3) and (vi3=vi7) then
        begin
          ShowMessage('победили нолики');
          ShowMessage('победили крестики');
          form1.Button1.caption:='';
          form1.Button2.caption:='';
          form1.Button3.caption:='';
          form1.Button4.caption:='';
          form1.Button5.caption:='';
          form1.Button6.caption:='';
          form1.Button7.caption:='';
          form1.Button8.caption:='';
          form1.Button9.caption:='';
          vi1:='т';
          vi2:='т';
          vi3:='т';
          vi4:='т';
          vi5:='т';
          vi6:='т';
          vi7:='т';
          vi8:='т';
          vi9:='т';
        end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    vi1:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button1.Caption:=vi1;
    clear();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  vi2:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button2.Caption:=vi2;
    clear();
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  vi3:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button3.Caption:=vi3;
    clear();
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  vi4:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button4.Caption:=vi4;
    clear();
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  vi5:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    clear();
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  vi6:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button6.Caption:=vi6;
    clear();
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  vi7:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button7.Caption:=vi7;
    clear();
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  vi8:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button8.Caption:=vi8;
    clear();
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  vi9:=x;
    if x='x' then
       x:='0'
    else
        x:='x';
    form1.Button9.Caption:=vi9;
    clear();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  x:='x';
end;

end.
hokadva
незнакомец
 
Сообщения: 1
Зарегистрирован: 09.06.2022 17:10:38

Re: Проблема с созданием процедуры

Сообщение zub » 09.06.2022 21:07:05

Код: Выделить всё
procedure TForm1.clear();
zub
долгожитель
 
Сообщения: 2884
Зарегистрирован: 14.11.2005 23:51:26


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Google Adsense [Bot], Yandex [Bot] и гости: 29

Рейтинг@Mail.ru