Ошибка: Record, object or class type required

@malayka · Регистрация: 20.04.2010

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

на код вызова второстепенной формы

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 showmodal.form3;
end;

ругается ошибкой:
[DCC Error] Unit1.pas(32): E2018 Record, object or class type required
[DCC Fatal Error] Project1.dpr(7): F2063 Could not compile used unit 'Unit1.pas'

никогда раньше на этом не застрявал, а теперь не отделаюсь никак(((
проект:

Delphi

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule},
  Unit3 in 'Unit3.pas' {Form3};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

главная форма:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;
 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2, Unit3;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 showmodal.form3;
end;
 
end.

второстепенная

Delphi

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm3 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
end.

@RAZOR3 · 08.05.2010, 01:06

нужно Form2.showmodal и Form3.showmodal

@malayka · 08.05.2010, 01:13 **[ТС]**

оО вот я... спасибо большое) битый час голову ломаю, а проблема то в таком пустяке была..

@StinK · 01.02.2011, 16:29

Нужно из Unit2 по нажатию Button5 передать значение в Unit1 в Timer1.Interval
Делаю так:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, ComCtrls, Buttons;
 
type
  TForm1 = class(TForm)
  Timer1: TTimer;
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1; Str, Send : string; P : integer;
 
 
implementation
 
uses Unit2;
 
 
{$R *.dfm}
 
 
 
end.

Delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, ExtCtrls;
 
type
  TForm2 = class(TForm)
    RadioButton4: TRadioButton;
    Button5: TButton;
    procedure Button5Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2; Timer1: Integer; p1, s:string;
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.RadioButton4Click(Sender: TObject);
begin
 tinterval:=30000;
end;
 
procedure TForm2.Button5Click(Sender: TObject);
begin
Timer1.Interval:=tinterval;
Form2.Close;
end;

Вроде везде все прописал, но вылезает аналогичная ошибка.

PS лишнее все стёр.

@Dekio · 01.02.2011, 16:35

Переменная tinterval вообще не объявлена. Нужна глобальная переменная.

@StinK · 01.02.2011, 16:42

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

Переменная tinterval вообще не объявлена. Нужна глобальная переменная.

Т.е. в Unit1 и Unit2 дописать var tinterval:Integer?

@Mawrat · 01.02.2011, 16:55

StinK, Timer1 является полем в TForm1, поэтому в коде Unit2 надо заменить:

Delphi

procedure TForm2.Button5Click(Sender: TObject);
begin
  Timer1.Interval:=tinterval;
  Form2.Close;
end;

на:

Delphi

procedure TForm2.Button5Click(Sender: TObject);
begin
  Form1.Timer1.Interval:=tinterval;
  Close; //Либо Self.Close;
end;

И в методах не должны использоваться внешние по отношению к классу переменные, ссылающиеся на экземпляр этого же класса. - Это потенциально ведёт к ошибкам. Т. е., в методах TForm2 не должна использоваться переменная Form2. Вместо Form2 можно применять, например Self.

@StinK · 01.02.2011, 17:04

Спасибо, всё получилось. А ведь проскакивала мысля, что нужно форму указать, где таймер стоит

Ну и к слову. Пишу програмку, которая будет проверять наличие определённого выражения на сайте

---
Mawrat: Ок.

@Даша111 · 08.03.2016, 18:03

Помогите исправить ошибку)

@volvo · 08.03.2016, 18:05

Точку на запятую сменить надо бы.

@RAZOR3 26 / 26 / 10 Регистрация: 24.08.2009 Сообщений: 71
	08.05.2010, 01:06	2
	нужно Form2.showmodal и Form3.showmodal 1

@malayka 0 / 0 / 0 Регистрация: 20.04.2010 Сообщений: 21
	08.05.2010, 01:13 [ТС]	3
	оО вот я... спасибо большое) битый час голову ломаю, а проблема то в таком пустяке была.. 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	01.02.2011, 16:35	5
	Переменная tinterval вообще не объявлена. Нужна глобальная переменная. 1

@StinK 3 / 3 / 0 Регистрация: 01.02.2011 Сообщений: 28
	01.02.2011, 16:42	6
	Сообщение от Dekio Переменная tinterval вообще не объявлена. Нужна глобальная переменная. Т.е. в Unit1 и Unit2 дописать var tinterval:Integer? 0

@StinK 3 / 3 / 0 Регистрация: 01.02.2011 Сообщений: 28
	01.02.2011, 17:04	8
	Спасибо, всё получилось. А ведь проскакивала мысля, что нужно форму указать, где таймер стоит Ну и к слову. Пишу програмку, которая будет проверять наличие определённого выражения на сайте --- Mawrat: Ок. 0

@Даша111 0 / 0 / 0 Регистрация: 08.03.2016 Сообщений: 1
	08.03.2016, 18:03	9
	Помогите исправить ошибку) Миниатюры 0

@volvo Супер-модератор 32571 / 21042 / 8131 Регистрация: 22.10.2011 Сообщений: 36,316 Записей в блоге: 8
	08.03.2016, 18:05	10
	Точку на запятую сменить надо бы. 0

Опции темы