Názory ke článku Delphi - 8. lekce – Programujte.com

Ahoj.V delphi nie som uplny zaciatocnik a myslim si ze tato hra je skvelim prikladom zaciatku programovania v delphi. Ak ste pozorne citali predchadzajuce lekcie tak mozete z toho spravit nadupany prvy program. programujte.com sa mi fakt paci

skoda ze chybaju obrazky

zrovna tenhle navod je trochu divmý a neprisla jsem na to kde delam chybu:undeclared identifer "zrout"

Reagoval na komentář od uživatele janahorova :
Zkus napsat Form1.zrout

Toto je výborný příklad pro začátečníky. Já jsem začátečník vytvořil jsem tuhle hru i s časovačem a laserem. Snažím se tam ale přidat protivníka, který vás honí (viz. úkol na konci) a nedaří se mi. Funkci INTERSECTRECT() jsem zvládl, na tomto způsobu mi funguje i laser. Nedaří se mi rozpohybovat protivníka tak, aby šel po částech za vámi, udělám třeba to, že po nějakém časovém limitu po vás skočí, ale já chci aby postupně se posouval. Už jsem z toho zoufalí, pokud někdo víte jak to udělat prosím nápovědu na email ondra.mares@email.cz  

zdar ve spolek by mě zajímalo jak otevřít tu jeho zracku v delphi7
mě to nejde a rád bych se podíval jak to má být.

ahojte, co tu mam prosim vas zle? (mail : timco.vanco@gmail.com)

unit Zrout;

interface

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

type
  TForm1 = class(TForm)
  pole = array[1..X] of TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    zrout: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    Timer1: TTimer;
    Timer2: TTimer;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  jedlo: pole;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zrout.Top := zrout.Top - 5;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
zrout.Top := zrout.Top + 5;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
zrout.Left := zrout.Left - 5;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
zrout.Left := zrout.Left + 5;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if zrout.Caption = '-' then
   zrout.Caption := '<'
else
   zrout.Caption :='-';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  jedlo[1] := RadioButton1;
  jedlo[2] := RadioButton2;
  jedlo[3] := RadioButton3;
  jedlo[4] := RadioButton4;
  jedlo[5] := RadioButton5;
  jedlo[6] := RadioButton6;
  jedlo[7] := RadioButton7;
  jedlo[8] := RadioButton8;
  jedlo[9] := RadioButton9;
  jedlo[10] := RadioButton10;
  jedlo[11] := RadioButton11;
  jedlo[12] := RadioButton12;
  jedlo[13] := RadioButton13;
end;

end.

procedure TForm1.zrani;
var
bod: Tpoint;
i: integer;
vysbiral: boolean;
begin
  vysbiral := True;
  for i := 1 to 13 do
    begin
      Bod.X := jidlo[i].Left + (jidlo[i].width div 2);
      Bod.Y := jidlo[i].Top + (jidlo[i].Height div 2);
 

      if PtInRect(zrout.BoundsRect,bod) then
        jidlo[i].Visible := false;

      if jidlo[i].Visible = True then
        vysbiral := False;
    end;
 

  if vysbiral = True then
Close();

end;