Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.19;
Скачать: 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 вся ветка

Текущий архив: 2006.02.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
2-1138951753
dera
2006-02-03 10:29
2006.02.19
Что неправильно в запросе?


15-1138510812
begin...end
2006-01-29 08:00
2006.02.19
С Днём рождения! 29 января


2-1138481796
petr
2006-01-28 23:56
2006.02.19
список таблиц


15-1138640973
Tarantiono
2006-01-30 20:09
2006.02.19
"Программирование серверных приложений для Windows 2000", Дж. Рих


2-1138710802
Lenka_per
2006-01-31 15:33
2006.02.19
Переменная в переменной