Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Нужна помощь по Delphi
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
kot.polosat kot.polosat вне форума
Member
 
Аватар для kot.polosat
 
Сообщений: 25
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.08.2011
Question Нужна помощь по Delphi - 05.12.2011, 22:39

Помогите разобраться с ошибкой!!!
delphi Код:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; x,y: integer);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
    a:integer;
    x0,y0:integer;
implementation
{$R *.dfm}
  procedure GetTotal;
    begin
    Form2.Brush.Color:=clRed;
    Form2.Brush.Style:=bsSolid;
    case a of
    1:
      begin
        Form2.Label2.Caption:='Указанная точка находится в 1-ой четверти окружности';
        Form2.Canvas.Pie(x0-100,y0-100,x0+100,y0+100,x0+100,y0,x0,y0-100);
      end;
    2:
      begin
        Form2.Label2.Caption:='Указанная точка находится во 2-ой четверти окружности';
        Form2.Canvas.Pie(x0-100,y0-100,x0+100,y0+100,x0,y0-100,x0-100,y0);
      end;
    3:
      begin
        Form2.Label2.Caption:='Указанная точка находится в 3-ей четверти окружности';
        Form2.Canvas.Pie(x0-100,y0-100,x0+100,y0+100,x0-100,y0,x0,y0+100);
      end;
    4:
      begin
        Form2.Label2.Caption:='Указанная точка находится в 4-ой четверти окружности';
        Form2.Canvas.Pie(x0-100,y0-100,x0+100,y0+100,x0,y0+100,x0+100,y0);
      end;
    5: Form2.Label2.Caption:='Указанная точка не входит в окружность';
    6:
      begin
        Form2.Label2.Caption:='Указанная точка лежит на координатной оси';
        with Form2.Canvas do
          begin
            MoveTo(x0-150,y0);LineTo(x0+150,y0); //ось х
            MoveTo(x0,y0-150);LineTo(x0,y0+150); //ось y
          end;
      end;
    else Form2.Label2.Caption:='Error a'+IntToStr(a)
    end;
  procedure TForm2.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; x,y: integer);
    begin
      if Button=mbLeft
      then
        begin
          a:=0;
          if((x>x0)and(y<y0)and(x<=x0+100)and(y<=y0-100))
          then a:=1;//занчение a указывает номер четверти против часовой стрелки
          if((x<x0)and(y<y0)and(x<=x0-100)and(y<=y0+100))
          then a:=2;
          if((x<x0)and(y>y0)and(x<=x0-100)and(y>=y0+100))
          then a:=3;
          if((x>x0)and(y>y0)and(x<=x0+100)and(y>=y0+100))
          then a:=4;
          if((x<x0-100)or(x>x0+100)or(y<y0-100)or(y>y0+100))
          then a:=5;//вне окружности
          if((x=x0)or(y=y0))
          then a:=6;//на оси
        end;
      GetTotal;
    end;
procedure TForm2.Button2Click(Sender: TObject);
var
  x,y:real;
begin
  x:=StrToFloat(Form2.Edit1.Text);
  y:=StrtoFloat(Form2.Edit2.Text);
  a:=0;
  if((x>0)and(y>0)and(x<=1)and(y<=1))
  then a:=1;//занчение a указывает номер четверти против часовой стрелки
  if((x<0)and(y>0)and(x<=-1)and(y<=1))
  then a:=2;
  if((x<0)and(y<0)and(x>=-1)and(y>=-1))
  then a:=3;
  if((x>0)and(y<0)and(x<=1)and(y>=-1))
  then a:=4;
  if((x>1)or(x<-1)or(y>1)or(y<-1))
  then a:=5;//вне окружности
  if((x=0)or(y=0))
  then a:=6;//на оси
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
  with Form2.Canvas do
      begin
        x0:=200;
        y0:=200;
        Brush.Color:=clGray;
        Brush.Style:=bsSolid;
        Ellipse(x0-100,y0-100,x0+100,y0+100);
        MoveTo(x0-150,y0);LineTo(x0+150,y0); //ось х
        MoveTo(x0,y0-150);LineTo(x0,y0+150); //ось y
        Brush.Style:=bsClear;
        Font.Size:=10;
        TextOut(x0+5,y0-150,'y');
        TextOut(x0+5,y0-120,'1');
        TextOut(x0+5,y0+110,'-1');
        TextOut(x0+135,y0,'x');
        TextOut(x0+105,y0,'1');
        TextOut(x0-115,y0,'-1');
      end;
    end;
end.
А ошибка собственно вот какая:
[Предупреждение] Unit2.pas(18): Method 'MouseDown' hides virtual method of base type 'TControl'
[Ошибка] Unit2.pas(70): Statement expected but 'PROCEDURE' found.
Пожалуйста помогите разобраться с этим!!! Очень запустить хочется!!!
Заранее спасибо!
Ответить с цитированием
  (#2 (permalink)) Старый
Alexiski Alexiski на форуме
Любитель давать советы
 
Сообщений: 4,274
Сказал(а) спасибо: 27
Поблагодарили 54 раз(а) в 54 сообщениях
Регистрация: 16.10.2005
По умолчанию 06.12.2011, 12:51

Проверьте соответствие begin-end
Ответить с цитированием
  (#3 (permalink)) Старый
kot.polosat kot.polosat вне форума
Member
 
Аватар для kot.polosat
 
Сообщений: 25
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.08.2011
По умолчанию 06.12.2011, 22:51

спасибо, не сразу но нашел!!!
Ответить с цитированием
Ads
Ответ

Метки
delphi , ошибка , помощь

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь Екатерина12345 Любые вопросы от новичков 3 20.02.2012 06:12
нужна помощь с заданием по Delphi Hunter7 Delphi 1 07.12.2011 10:52
Нужна помощь... lmn Техническая поддержка 18 06.08.2011 00:38
Нужна помощь! Тенищев Системный блок 3 27.05.2011 00:16
Нужна помощь shurik-2007 Windows 7 2 21.05.2011 18:25
нужна помощь vany_33 Любые вопросы от новичков 7 19.05.2011 20:05
База Данных Delphi и Paradox 7 нужна помощь с программой DimKa96 Delphi 0 06.12.2010 18:00
нужна помощь! очень нужна! ulana999i999 Prolog 0 17.04.2010 14:13
Нужна помощь! Alenka777 PHP 1 06.12.2009 18:18
Очень нужна нужна помощь в решении задачи NecroDevil Prolog 18 16.01.2009 14:22
Нужна помощь!!! astill Софт и программы 2 04.03.2008 13:25
срочно нужна помощь! delphi bufu Задания за деньги 2 15.02.2006 10:57



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов