Скачать: CL | DM;

Директивы или что?   Найти похожие ветки 

← →
mike.dld   (2002-03-31 12:45) [0]

У меня есть 3 модуля, в 1-ом - процедура, а из двух остальных я её вызываю, с разными параметрами. Как сделать так, чтобы в зависимости от значения параметра было написано или "with A do", или "with B do"?

---

← →
Rooman ©   (2002-03-31 12:56) [1]

в процедуре делаешь так

var obj:TObject;
...
if param=value1 then obj:=A;
if param=value2 then obj:=B;

with obj do
...

---

← →
Rooman ©   (2002-03-31 12:56) [2]

A и B - объекты?

---

← →
mike.dld   (2002-03-31 12:59) [3]

A и B - StringGrid

---

← →
Rooman ©   (2002-03-31 13:09) [4]

в процедуре делаешь так

var obj:TStringGrid;
...
if param=value1 then obj:=A;
if param=value2 then obj:=B;

with obj do
...

---

← →
Пиноккио   (2002-03-31 13:11) [5]

Передавай StringGrid, как парамeтр Sender : TStringGrid
В процедуре пишешь
with Sender do begin

---

← →
Anatoly Podgoretsky ©   (2002-03-31 13:29) [6]

if param=условие
then with A do
else with B do

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c