Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.17;
Скачать: CL | DM;

Вниз

Взаимодействие между двумя классами   Найти похожие ветки 

 
lokid7 ©   (2004-02-06 17:11) [0]

один модуль

type
TOneCLass = class
procedure Error(a : string);
end;

procedure TOneClass.Error(a:sting);
begin
ShowMEssage(a);
end;

другой модуль

type
TTwoCLass = class
procedure R;
end;

procedure TTwoClass.R;
begin
... код
вызватеся процедура об ошибке, которая на ходиться в TOneCLass,
end;

так вот как вызвать, процедуру Error из ToneClass в TTwoClass


 
Юрий Зотов ©   (2004-02-06 17:15) [1]

with ToneClass.Create do
try
Error("ляляля")
finally
Free
end;


 
Sandman25 ©   (2004-02-06 17:18) [2]

Или так:

type
TOneCLass = class
class procedure Error(a : string);
end;

...
begin
TOneClass.Error("ляля")
end


 
Юрий Зотов ©   (2004-02-06 17:22) [3]

> Sandman25 © (06.02.04 17:18) [2]

Прокатит только в случае, если Error не использует поля объекта.


 
Sandman25 ©   (2004-02-06 17:30) [4]

[3] Юрий Зотов © (06.02.04 17:22)

Конечно. Я написал для данного случая с ShowMessage.



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-53471
Creator
2004-02-06 13:37
2004.02.17
Как зделать процес System ???


7-53777
Kinder
2003-11-20 16:14
2004.02.17
Как узнать закрыт или открыт сидюк?


14-53719
fool
2004-01-29 13:56
2004.02.17
восстановить удаленный файл, фаиловая система NTFS


1-53505
Goblinus
2004-02-05 21:20
2004.02.17
Получение доступа к свойствам формы по её имени


8-53662
Darkwing
2003-10-16 22:34
2004.02.17
Как сделать эквалайзер ?