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

@Delorthe · Регистрация: 29.05.2011

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

Вод полный код окна Form1:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TMain = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Main: TMain;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TMain.FormCreate(Sender: TObject);
begin
Memo1.Lines.Clear;
ComboBox1.Items.LoadFromFile('ALL.records');
end;
 
procedure TMain.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(ComboBox1.Text);
end;
 
procedure TMain.Button2Click(Sender: TObject);
begin
If ComboBox1.Text<>'' then begin
NameForm.ShowModal;
end;
end;
 
procedure TMain.Label2Click(Sender: TObject);
begin
Application.MessageBox('Some text,'Text',0);
end;
 
end.

Вот код окна Form2:

Delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;
 
type
  TNameForm = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  NameForm: TNameForm;
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TNameForm.Button2Click(Sender: TObject);
begin
Self.Close;
end;
 
procedure TNameForm.Button1Click(Sender: TObject);
 
begin
Main.Memo1.Lines.SaveToFile(Edit1.Text);
Edit1.Text.SaveToFile('ALL.records');
end;
 
procedure TNameForm.FormCreate(Sender: TObject);
begin
 
end;
 
end.

И, когда я пытаюсь сделать так, чтобы из Memo1 на Form1 брался текст, и записывался в файл, имя которого указал пользователя в Edit1 на Form2, выдает следующую ошибку: record, object or class type required, на вот этом моменте:

Delphi

procedure TNameForm.Button1Click(Sender: TObject);
 
begin
Main.Memo1.Lines.SaveToFile(Edit1.Text);
Edit1.Text.SaveToFile('ALL.records'); <-- Ошибка указывается в этой строке
end;

@dtsey · 13.12.2011, 19:38

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

Вод полный код окна Form1:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TMain = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Main: TMain;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TMain.FormCreate(Sender: TObject);
begin
Memo1.Lines.Clear;
ComboBox1.Items.LoadFromFile('ALL.records');
end;
 
procedure TMain.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(ComboBox1.Text);
end;
 
procedure TMain.Button2Click(Sender: TObject);
begin
If ComboBox1.Text<>'' then begin
NameForm.ShowModal;
end;
end;
 
procedure TMain.Label2Click(Sender: TObject);
begin
Application.MessageBox('Some text,'Text',0);
end;
 
end.

Вот код окна Form2:

Delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;
 
type
  TNameForm = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  NameForm: TNameForm;
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TNameForm.Button2Click(Sender: TObject);
begin
Self.Close;
end;
 
procedure TNameForm.Button1Click(Sender: TObject);
 
begin
Main.Memo1.Lines.SaveToFile(Edit1.Text);
Edit1.Text.SaveToFile('ALL.records');
end;
 
procedure TNameForm.FormCreate(Sender: TObject);
begin
 
end;
 
end.

И, когда я пытаюсь сделать так, чтобы из Memo1 на Form1 брался текст, и записывался в файл, имя которого указал пользователя в Edit1 на Form2, выдает следующую ошибку: record, object or class type required, на вот этом моменте:

Delphi

procedure TNameForm.Button1Click(Sender: TObject);
 
begin
Main.Memo1.Lines.SaveToFile(Edit1.Text);
Edit1.Text.SaveToFile('ALL.records'); <-- Ошибка указывается в этой строке
end;

Содержимое Edit'а нельзя вот так сохранять в файл...

@Delorthe · 13.12.2011, 19:41 **[ТС]**

Да? Я в Гугле искал, там именно вот так и написано.
Как же тогда сделать? Может, Edit заменить на Memo?

@dtsey · 13.12.2011, 19:43

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

Да? Я в Гугле искал, там именно вот так и написано.
Как же тогда сделать? Может, Edit заменить на Memo?

Можно. В Memo так сохранять можно. Только пишите так:

Delphi

1	Memo1.Lines.SaveToFile('ok.txt');

@Delorthe · 13.12.2011, 19:58 **[ТС]**

Теперь, оно вроде как и работает, но когда я жму на кнопку с Form2, программа падает с ошибкой: Cannot create file "". Системе не удается найти указанный путь

@dtsey · 13.12.2011, 20:18

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

Теперь, оно вроде как и работает, но когда я жму на кнопку с Form2, программа падает с ошибкой: Cannot create file "". Системе не удается найти указанный путь

А ты для начала его создай...

@Delorthe · 13.12.2011, 20:31 **[ТС]**

Так в том-то и дело, что он создан

@dtsey · 13.12.2011, 20:48

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

Так в том-то и дело, что он создан

Он должен быть в корневой папке (там же, где и программа.) Он должен быть закрыт.

@Delorthe · 13.12.2011, 20:53 **[ТС]**

Удивительно, но все эти условия соблюдены.

@dtsey · 13.12.2011, 20:56

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

Удивительно, но все эти условия соблюдены.

А вы уверены, что ошибка именно в этом блоке? Там написано "ошибка создания файла", а данный код файл не создает.

@Delorthe · 13.12.2011, 21:09 **[ТС]**

Да, именно там. Я даже закомментировал ту строку, и добавил Self.Close - ругаться начало на него.
Закомментировал все, кроме первой строки в этом коде - ругается теперь на него.

deathNC · 14.12.2011, 08:39

Delorthe, ещё раз код покажи (последний вариант)

@Delorthe · 14.12.2011, 16:15 **[ТС]**

Первая форма:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TMain = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Main: TMain;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TMain.FormCreate(Sender: TObject);
begin
Memo1.Lines.Clear;
ComboBox1.Items.LoadFromFile('ALL.db');
end;
 
procedure TMain.Button1Click(Sender: TObject);
begin
If (ComboBox1.Text<>'') then Memo1.Lines.LoadFromFile(ComboBox1.Text) else
Application.MessageBox('Выберите запись!','Помощь!',0);
end;
 
procedure TMain.Button2Click(Sender: TObject);
begin
NameForm.ShowModal;
end;
 
procedure TMain.Label2Click(Sender: TObject);
begin
Application.MessageBox('Some text','Text',0);
end;
 
end.

Вторая форма:

Delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;
 
type
  TNameForm = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  NameForm: TNameForm;
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TNameForm.Button2Click(Sender: TObject);
begin
Self.Close;
end;
 
procedure TNameForm.Button1Click(Sender: TObject);
 
begin
Main.Memo1.Lines.SaveToFile(Memo1.Lines[1]);
NameForm.Memo1.Lines.SaveToFile('ALL.db');
Self.Close;
end;
 
procedure TNameForm.FormCreate(Sender: TObject);
begin
Memo1.Lines.Clear;
end;
 
end.

@БогДелфей · 14.12.2011, 16:40

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

Edit1.Text.SaveToFile('ALL.records'); <-- Ошибка указывается в этой строке

канечно бует ошибка

@Delorthe · 14.12.2011, 16:45 **[ТС]**

БогДелфей, не туда смотришь

@БогДелфей · 14.12.2011, 16:48

а куда смареть???

@Delorthe · 14.12.2011, 17:12 **[ТС]**

13-ый пост

@БогДелфей · 14.12.2011, 17:17

Delphi

1	Main.Memo1.Lines.SaveToFile(Memo1.Lines[1]);

сработает при условии што путь к файлу на второй строке

@Delorthe · 14.12.2011, 17:24 **[ТС]**

Не совсем понял

@БогДелфей · 14.12.2011, 17:25

ошибка то в чом? в каких строках, чо не так то?

@dtsey 112 / 78 / 30 Регистрация: 10.09.2011 Сообщений: 263
	13.12.2011, 20:56	10
	Сообщение от Delorthe Удивительно, но все эти условия соблюдены. А вы уверены, что ошибка именно в этом блоке? Там написано "ошибка создания файла", а данный код файл не создает. 0

@Delorthe 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 85
	13.12.2011, 19:41 [ТС]	3
	Да? Я в Гугле искал, там именно вот так и написано. Как же тогда сделать? Может, Edit заменить на Memo? 0

@Delorthe 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 85
	13.12.2011, 19:58 [ТС]	5
	Теперь, оно вроде как и работает, но когда я жму на кнопку с Form2, программа падает с ошибкой: Cannot create file "". Системе не удается найти указанный путь 0

@dtsey 112 / 78 / 30 Регистрация: 10.09.2011 Сообщений: 263
	13.12.2011, 20:18	6
	Сообщение от Delorthe Теперь, оно вроде как и работает, но когда я жму на кнопку с Form2, программа падает с ошибкой: Cannot create file "". Системе не удается найти указанный путь А ты для начала его создай... 0

@Delorthe 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 85
	13.12.2011, 20:31 [ТС]	7
	Так в том-то и дело, что он создан 0

@dtsey 112 / 78 / 30 Регистрация: 10.09.2011 Сообщений: 263
	13.12.2011, 20:48	8
	Сообщение от Delorthe Так в том-то и дело, что он создан Он должен быть в корневой папке (там же, где и программа.) Он должен быть закрыт. 0

@Delorthe 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 85
	13.12.2011, 20:53 [ТС]	9
	Удивительно, но все эти условия соблюдены. 0

@Delorthe 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 85
	13.12.2011, 21:09 [ТС]	11
	Да, именно там. Я даже закомментировал ту строку, и добавил Self.Close - ругаться начало на него. Закомментировал все, кроме первой строки в этом коде - ругается теперь на него. 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	14.12.2011, 08:39	12
	Delorthe, ещё раз код покажи (последний вариант) 0

@БогДелфей 474 / 337 / 36 Регистрация: 31.05.2011 Сообщений: 1,162
	14.12.2011, 16:40	14
	Сообщение от Delorthe Edit1.Text.SaveToFile('ALL.records'); <-- Ошибка указывается в этой строке канечно бует ошибка 0

@Delorthe 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 85
	14.12.2011, 16:45 [ТС]	15
	БогДелфей, не туда смотришь 0

@БогДелфей 474 / 337 / 36 Регистрация: 31.05.2011 Сообщений: 1,162
	14.12.2011, 16:48	16
	а куда смареть??? 0

@Delorthe 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 85
	14.12.2011, 17:12 [ТС]	17
	13-ый пост 0

@Delorthe 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 85
	14.12.2011, 17:24 [ТС]	19
	Не совсем понял 0

@БогДелфей 474 / 337 / 36 Регистрация: 31.05.2011 Сообщений: 1,162
	14.12.2011, 17:25	20
	ошибка то в чом? в каких строках, чо не так то? 0