Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c