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.

fmExample.mmOutput

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