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

← →
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]

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