| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TMemo [D5, XP]

Вячеслав Бессонов ©   (2006-02-05 00:37:00) 

Пытаюсь создать программу с двумя формами. Должно быть так:
Edit1 формы 2 передает информацию в Memo 1-й формы.
Интересная особенность: приходится Edit и Memo описывать в var, хотя в руководстве об этом не сказано.
Выдается ошибка при попытке передачи из Memo.

---

Gero   (2006-02-05 11:55:00) [1]

fmExample.mmOutput

---

Вячеслав Бессонов   (2006-02-05 11:53:00) [2]

Unit1(1-ая форма):
type
 TfmExample = class(TForm)
   mmOutput: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 fmExample: TfmExample;

implementation

uses Unit2;

{$R *.DFM}

procedure TfmExample.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

end.

Unit2(Форма2):
type
 TForm2 = class(TForm)
   Button1: TButton;
   Edit1: TEdit;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
mmOutput.Lines.Add(Edit1.Text); Undeclared identifier: 'mmOutput'
end;

end.
Можно описать Memo в var. Тогда возникает ошибка:
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00441976 in module 'Project1.exe'. Read of address 00000208'. Process stopped. Use Step or Run to Continue.

---

Gero   (2006-02-05 00:58:00) [3]

> приходится Edit и Memo описывать в var

Они должны быть описаны в полях формы. IDE это делает самостоятельно.
Подозреваю, что ты просто не вписал соответствующий модуль в uses, если это не так — показуй код и текст ошибки.

---

Наверх