Главная страница
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.04 c
14-53742
Evgeniy_K
2004-01-28 13:00
2004.02.17
Числа Стирлинга второго рода


3-53414
NewD
2004-01-26 06:54
2004.02.17
Глюк Ado в Акцессе


1-53477
Dmitriy
2004-02-06 12:48
2004.02.17
Цикл по Edit ам...


3-53419
Максим
2004-01-26 12:36
2004.02.17
Защищенная база данных


1-53519
h0use
2004-02-05 16:37
2004.02.17
Как запустить Thread параллельно основному потоку?