движение кругов - Общие вопросы Delphi

lichking · 20.11.2016, 00:38

создаю программу для движения кругов а она выбивает ошибку

Код:

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
  Vcl.Buttons;


type
  TForm5 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Timer1: TTimer;
    BitBtn2: TBitBtn;
    procedure Button1Click(Sender: TObject);
    function TIME(Sender: TObject):TTimer;
    function circ(Sender: TObject):TShape;
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}
  var
  n,T:integer;
a: array of TShape;
b,d1: array of TTimer;
e:  TTimer;
C: TShape;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
form5.Timer1.Enabled:=true;
end;

procedure TForm5.Button1Click(Sender: TObject);

begin


N:=STRTOINT(Edit1.Text);
SetLength(a, n);
SetLength(b, n);
SetLength(d1, n);
for N := 0 to N do
begin
a[n]:=circ(C);
d1[N]:=TIME(E);
end;


end;

function TForm5.circ(Sender: TObject): TShape;
begin
C:=TShape.Create(Form5);
  C.Parent:=Form5;
  C.Left:=random(400);
  C.Top:=random(120);
  C.Width:=160;
  C.Height:=80;
  C.Shape:=stEllipse;
end;
function TForm5.TIME(Sender: TObject): TTimer;
begin
e:=TTimer.Create(Form5);

E.Interval:=1000;
e.Enabled:=TRUE;
E.OnTimer:=Timer1Timer;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin
C.Left:=random(400);
c.Top:=random(120);
end;

end.

Вадим Мошев · 20.11.2016, 00:42

Цитата:

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

а она выбивает ошибку

Какую? На какой строке?

type_Oleg · 20.11.2016, 01:28

Что это ?

Код:

b,d1: array of TTimer; // массив таймеров ??
// а потом:
 d1[N]:=TIME(E); //

Функция Time возвращает тип TDateTime, а не TTimer

northener · 20.11.2016, 01:50

Цитата:

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

Функция Time возвращает тип TDateTime, а не TTimer

А где ты раньше видел функцию Time с параметром?

type_Oleg · 20.11.2016, 02:05

Цитата:

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

А где ты раньше видел функцию Time с параметром?

А.. ну да.
Да еще и параметр типа TTimer

PS А вобще-то у него своя функция TForm5.TIME
Но все равно непонятно, зачем плодить таймеры.

Аватар · 20.11.2016, 09:15

Цитата:

А вобще-то у него своя функция TForm5.TIME

Которая вдобавок ко всему ни чего не возвращает. И вообще код zero

lichking · 20.11.2016, 10:28

Цитата:

Сообщение от Аватар

Которая вдобавок ко всему ни чего не возвращает. И вообще код zero

я пытался сначала двигать круги одним таймером на форме но получалось двигать токо один круг потом создал для массив чтобы каждый круг двигать 1-м таймером и в обработчик событий я присвоил событие таймера который на форме с уже написанной процедурой

перезагрузил делфи но двигает только один круг а если справить вот так:

Код:

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
  Vcl.Buttons;


type
  TForm5 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Timer1: TTimer;
    BitBtn2: TBitBtn;
    procedure Button1Click(Sender: TObject);
    function TIME(Sender: TObject):TTimer;
    function circ(Sender: TObject):TShape;
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
n,T:integer;
a: array of TShape;
b,d1: array of TTimer;
e:  TTimer;
C: TShape;
implementation

{$R *.dfm}


procedure TForm5.BitBtn1Click(Sender: TObject);
begin
form5.Timer1.Enabled:=true;
end;

procedure TForm5.Button1Click(Sender: TObject);

begin


N:=STRTOINT(Edit1.Text);
SetLength(a, n);
SetLength(b, n);
SetLength(d1, n);
for N := 0 to N do
begin
a[n]:=circ(C);
d1[N]:=TIME(E);
end;


end;

function TForm5.circ(Sender: TObject): TShape;
begin
C:=TShape.Create(Form5);
  C.Parent:=Form5;
  C.Left:=random(400);
  C.Top:=random(120);
  C.Width:=160;
  C.Height:=80;
  C.Shape:=stEllipse;
end;
function TForm5.TIME(Sender: TObject): TTimer;
begin
e:=TTimer.Create(Form5);

E.Interval:=1000;
e.Enabled:=TRUE;
E.OnTimer:=Timer1Timer;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
var
 f,i:integer;
begin
f:=random(400);
i:=random(120);

a[n].Left+f;
a[n].Top+i;

end;

end.

то
Checking project dependencies...
Compiling Project2.dproj (Debug, Win32)
dcc32 command line for "Project2.dpr"
c:\program files (x86)\embarcadero\studio\18.0\bin\d cc32.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generi cs.Collections;
Generics.Defaults=System.Generics.D efaults;WinTypes=Winapi.Windows;Win Procs=Winapi.Windows;DbiTypes=BDE;D biProcs=BDE;DbiErrs=BDE -DDEBUG
-E.\Win32\Debug -I"c:\program files (x86)\embarcadero\studio\18.0\lib\W in32\debug";"c:\program files (x86)\embarcadero\studio\18.0\lib\W in32\release";
C:\Users\VV\Documents\Embarcadero\S tudio\18.0\Imports;"c:\program files (x86)\embarcadero\studio\18.0\Impor ts";
C:\Users\Public\Documents\Embarcade ro\Studio\18.0\Dcp;"c:\program files (x86)\embarcadero\studio\18.0\inclu de"
-LEC:\Users\Public\Documents\Embarca dero\Studio\18.0\Bpl -LNC:\Users\Public\Documents\Embarca dero\Studio\18.0\Dcp -NU.\Win32\Debug -NSWinapi;
System.Win;Data.Win;Datasnap.Win;We b.Win;Soap.Win;Xml.Win;Bde;System;X ml;Data;Datasnap;Web;Soap;Vcl;Vcl.I maging;Vcl.Touch;Vcl.Samples;Vcl.Sh ell;
-O"c:\program files (x86)\embarcadero\studio\18.0\lib\W in32\release";C:\Users\VV\Documents \Embarcadero\Studio\18.0\Imports;"c :\program files
(x86)\embarcadero\studio\18.0\Impor ts";C:\Users\Public\Documents\Embar cadero\Studio\18.0\Dcp;"c:\program files (x86)\embarcadero\studio\18.0\inclu de"
-R"c:\program files (x86)\embarcadero\studio\18.0\lib\W in32\release";C:\Users\VV\Documents \Embarcadero\Studio\18.0\Imports;"c :\program files
(x86)\embarcadero\studio\18.0\Impor ts";C:\Users\Public\Documents\Embar cadero\Studio\18.0\Dcp;"c:\program files (x86)\embarcadero\studio\18.0\inclu de"
-U"c:\program files (x86)\embarcadero\studio\18.0\lib\W in32\debug";"c:\program files (x86)\embarcadero\studio\18.0\lib\W in32\release";
C:\Users\VV\Documents\Embarcadero\S tudio\18.0\Imports;"c:\program files (x86)\embarcadero\studio\18.0\Impor ts";
C:\Users\Public\Documents\Embarcade ro\Studio\18.0\Dcp;"c:\program files (x86)\embarcadero\studio\18.0\inclu de" -V -VN
-NBC:\Users\Public\Documents\Embarca dero\Studio\18.0\Dcp -NHC:\Users\Public\Documents\Embarca dero\Studio\18.0\hpp\Win32 -NO.\Win32\Debug
Project2.dpr
[dcc32 Warning] Unit5.pas(55): W1019 For loop control variable must be simple local variable
[dcc32 Warning] Unit5.pas(73): W1035 Return value of function 'TForm5.circ' might be undefined
[dcc32 Warning] Unit5.pas(81): W1035 Return value of function 'TForm5.TIME' might be undefined
[dcc32 Error] Unit5.pas(90): E2014 Statement expected, but expression of type 'Integer' found
[dcc32 Error] Unit5.pas(91): E2014 Statement expected, but expression of type 'Integer' found
[dcc32 Fatal Error] Project2.dpr(5): F2063 Could not compile used unit 'Unit5.pas'

type_Oleg · 20.11.2016, 15:41

Ну нужны эти массивы таймеров. Я как-то сделал случайное движение пузырей. Не очень красиво, но работает. Можно взять за основу. Вот, смотрите:

20.11.2016, 01:28	#3
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,499	Что это ? Код: `b,d1: array of TTimer; // массив таймеров ?? // а потом: d1[N]:=TIME(E); //` Функция Time возвращает тип TDateTime, а не TTimer

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
c++ движение планеты в системе двойной звезды или движение трех тел	anpolol	Помощь студентам	4	10.06.2016 02:08
рисование кругов в делфи	Gal4onOK)))	Помощь студентам	0	15.02.2012 14:18
Пересечение кругов	courant D'AIR	Помощь студентам	7	05.10.2011 23:43
Нумерация кругов	Lifefine	Общие вопросы Delphi	13	05.02.2011 22:36
Pascal. Площадь пересечения кругов	TOSAgrk	Помощь студентам	1	05.02.2009 04:23