Здраствуйте Вот тренирусь потихоньку- Хочу чтобы Memo1 было доступно и в основном теле программы а как это сделать? В чем ошибка?


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Visible:=true;
end;
begin
If Memo1.Visible:=true then ShowMessage('Âñå îê');

end.

Так не выйдет, потому что к моменту вызова основного блока форма и все компоненты на ней еще не созданы.

Ошибка № 1
оператор ":=" - означает присваивание. Для сравнения нужно использовать "="

А теперь об основном:

Цитата

Хочу чтобы Memo1 было доступно и в основном теле программы

Это вообще для чего? Может можно по другому, но так сложно?

PS. Что бы не было ошибки (в данном примере) undeclired Memo1 пиши не

Код

If Memo1.Visible

а

Код

If Form1.Memo1.Visible

Так как ты написал точно не заработает. Вот корректный пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Visible:=true;
If Memo1.Visible=true then ShowMessage('Ok');
end;

А можно и так: If Memo1.Visible then ShowMessage('Ok');

Blindman требуется

Цитата

Глобализазия

т.е. что бы было доступно не только в Button1Click. Только вот сделано не правильно. Я бы сделал так (если я правилоно понял суть задачи):

Код

procedure Myprocedure; // создаем наше событие в отдельной процедуре begin If Form1.Memo1.Visible then ShowMessage('что-то там'); end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Visible:=true; Myprocedure; // вызываем нашу процедуру с нужным событием end;

Причем вызывать процедуру Myprocedure можно из любой процедуры или функции модуля.

Цитата(Poseidon @ 25.3.2005, 00:27)

Код procedure Myprocedure; // создаем наше событие в отдельной процедуре begin If Form1.Memo1.Visible then ShowMessage('что-то там'); end;

а не проще эту процедуру прописать в разделе public, дабы каждый раз не упоминать о Form1? да и с такой процедурой меньше будет проблем при вызове ее из других модулей.
Гость_Виктор, зачем тебе Memo1 в основном теле программы? Он же (Мемо) объявлен в классе Form1 и будет доступен из любой процедуры этой форму для любых действий и проверок...

Цитата

а не проще эту процедуру прописать в разделе public, дабы каждый раз не упоминать о Form1?

Конечно проще. Но у человека ошибка

Цитата

undeclired Memo1

и нужно ему указать способ избовится от нее. И это, по-моему, самый простой способ, даже когда мы используем его не в модуле формы Form1. Причем, если человек только

Цитата

тренирусь потихоньку

то ему легче будет понять именно это. А потом, со временем, он освоит и раздел public.


2Гость_Виктор
Укажи что именно ты хочешь от своей программы, а мы поможем тебе, как это сделать.
Добавлено @ 18:28

Цитата

а не проще эту процедуру прописать в разделе public, дабы каждый раз не упоминать о Form1?

Конечно проще. Но у человека ошибка

Цитата

undeclired Memo1

и нужно ему указать способ избовится от нее. И это, по-моему, самый простой способ, даже когда мы используем его не в модуле формы Form1. Причем, если человек только

Цитата

тренирусь потихоньку

то ему легче будет понять именно это. А потом, со временем, он освоит и раздел public.


2Гость_Виктор
Укажи что именно ты хочешь от своей программы, а мы поможем тебе, как это сделать.

Срастбо за ответы а теперь подробнее можно как именно ее в раздели паблик описать- чтбы была доступнее всем.

Poisodon понял что я хочу

Просто вставляешь в этот раздел её описание. Например:

unit Unit1;
........................
private
{ Private declarations }
public
{ Public declarations }
Procedure MyProcedure;
end;

.........................

procedure Myprocedure; // создаем наше событие в отдельной процедуре
begin
If Form1.Memo1.Visible then ShowMessage('что-то там');
end;

end.

Всё, процедуру можно вызавать в любом месте программы.

Код

type   TForm1 = class(TForm)   private        public     procedure MyProcedure; // во тута объявляем;   end; ... procedure TForm1.MyProcedure; // вот так вот пишим. begin ... end;

Blindman, опередил! Только вот не

Код

procedure Myprocedure; // создаем наше событие в отдельной процедуре

а

Код

procedure TForm1.Myprocedure; // создаем наше событие в отдельной процедуре

а так все правильно!

Это сообщение отредактировал(а) Poseidon - 26.3.2005, 01:41

Цитата(Poseidon @ 26.3.2005, 01:35)

Blindman, опередил! Только вот не Код procedure Myprocedure; // создаем наше событие в отдельной процедуре а Код procedure TForm1.Myprocedure; // создаем наше событие в отдельной процедуре а так все правильно!

Разве в том же самом модуле, где объявлена процедура, так необходимо дописывать предка?

Цитата

Разве в том же самом модуле, где объявлена процедура, так необходимо дописывать предка?

Да, иначе ошибка

Цитата

Unsatisfied forward or external declaration: '<element>'

Учту на будущее. Спасибо.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;

procedure N3Click(Sender: TObject);


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




var
Form1: TForm1;

implementation

procedure TForm1.val;

begin
Form1.Richedit1.Clear;
Form1.RichEdit1.Lines.LoadFromFile('c:\65');
Form1.RichEdit1.Font.Size:=13;
Form1.RichEdit1.Font.Name:='Lucida Console'
end;
{$R *.dfm}



procedure TForm1.N3Click(Sender: TObject);
begin
Showmessage('Ïîêà!');
Close;
end;

begin
Val;

end.

expected ( but found; ошибка!!!