Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизДирективы или что? Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c