Скачать: CL | DM;

TMemo   Найти похожие ветки 

← →
Вячеслав Бессонов   (2006-02-05 00:37) [0]

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

---

← →
Gero ©   (2006-02-05 00:58) [1]

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

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

---

← →
Вячеслав Бессонов   (2006-02-05 11:53) [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 11:55) [3]

fmExample.mmOutput

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c