Ошибка [Error] Unit3.pas(33): Record, object or class type required в Делфи

@Антидепрессант · Регистрация: 04.04.2016

Студворк — интернет-сервис помощи студентам

Выдает ошибку
[Error] Unit3.pas(33): Record, object or class type required
[Error] Unit3.pas(34): Record, object or class type required
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit3.pas'

Полный текст

Delphi

unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm3 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
x0,y0,r: integer;
implementation
{$R *.dfm}
//вычерчивает звезду
procedure StarLine(x0,y0,r: integer; Canvas: TCanvas);
var   p: array [1..11] of Tpoint;
a,i:integer;
begin
a:= 18;
for i:=1 to 10 do begin
if (i mod 2=0) then begin // впадина
p[i].x:=x0+Round(r/2*cos(a*pi/180) ) ;
p[i].y:=y0-Round(r/2*sin(a*pi/180) ) ;
end
else
begin
[i].x:=x0+Round(r*cos (a*pi/180) ) ;
[i].y:=y0-Round(r*sin(a*pi/180) ) ;
end;
a:=a+36;
end;
p[11].X:=p[1].X;
Canvas.Polyline(p);
end;
procedure TForm3.FormMouseDown (Sender : TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft //нажата левая кнопка?
then Form3.Canvas.Pen.Color:=clRed
else Form3.Canvas.Pen.Color:=clGreen;
StarLine(x, y, 30, Form3.Canvas );
end;
end.

@Puporev · 04.04.2016, 16:23

Строки 33, 34 нет первого символа p.
строка 38
Пропущено

Delphi

1	p[11].Y:=p[1].Y;

Напишите строку 38 лучше так.

Delphi

1	p[11]:=p[1];

Скопировать и то ума нет.

@Антидепрессант · 04.04.2016, 16:43 **[ТС]**

разобрался с тем что, в строке 33,34 нет "p", но все равно прога мне не рисует звезду.
Помогите кто чем может, пишу прогу вообще можно сказать первый раз.
могу скинуть всё архивом.

@Puporev · 04.04.2016, 16:56

Delphi

var
  Form1: TForm1;
  x0,y0,r: integer;
implementation
 
{$R *.dfm}
procedure StarLine(x0,y0,r: integer; Canvas: TCanvas);
var   p: array [1..11] of Tpoint;
a,i:integer;
begin
a:= 18;
for i:=1 to 10 do begin
if (i mod 2=0) then begin // впадина
p[i].x:=x0+Round(r/2*cos(a*pi/180) ) ;
p[i].y:=y0-Round(r/2*sin(a*pi/180) ) ;
end
else
begin
p[i].x:=x0+Round(r*cos (a*pi/180) ) ;
p[i].y:=y0-Round(r*sin(a*pi/180) ) ;
end;
a:=a+36;
end;
p[11]:=p[1];
Canvas.Polyline(p);
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft //нажата левая кнопка?
then Canvas.Pen.Color:=clRed
else Canvas.Pen.Color:=clGreen;
StarLine(x, y, 30, Canvas );
end;

Добавлено через 1 минуту

Delphi

1
2
3

var
  Form1: TForm1;
  x0,y0,r: integer;//эту строку удали

@Антидепрессант · 04.04.2016, 17:33 **[ТС]**

не помогло.
всем большое спасибо.
сдам так как есть.

@Puporev · 04.04.2016, 17:36

Ну ты дуб. Может на клавиши мыши не жмешь?

@Антидепрессант · 04.04.2016, 18:32 **[ТС]**

нажимаю я на них, прога работает если её отдельным приложением делать.
А если помещаю её на 3-юю форму она вообще на 0 работает.

@Puporev · 04.04.2016, 18:39

Выложи архив проекта. У тебя там какая-то лажа написана.

Добавлено через 2 минуты
У тебя было 3 ошибки, я тебе написал как их поправить, остальное это твоя персональная лажа. Самому нужно писать, а не выдергивать куски из чужих проектов.

@Антидепрессант 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 14
	04.04.2016, 16:43 [ТС]	3
	разобрался с тем что, в строке 33,34 нет "p", но все равно прога мне не рисует звезду. Помогите кто чем может, пишу прогу вообще можно сказать первый раз. могу скинуть всё архивом. 0

@Антидепрессант 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 14
	04.04.2016, 17:33 [ТС]	5
	не помогло. всем большое спасибо. сдам так как есть. 0

@Антидепрессант 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 14
	04.04.2016, 18:32 [ТС]	7
	нажимаю я на них, прога работает если её отдельным приложением делать. А если помещаю её на 3-юю форму она вообще на 0 работает. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	04.04.2016, 18:39	8
	Выложи архив проекта. У тебя там какая-то лажа написана. Добавлено через 2 минуты У тебя было 3 ошибки, я тебе написал как их поправить, остальное это твоя персональная лажа. Самому нужно писать, а не выдергивать куски из чужих проектов. 0

Опции темы

Ошибка [Error] Unit3.pas(33): Record, object or class type required в Делфи

Решение