Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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




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




Наверх





Память: 0.72 MB
Время: 0.032 c
4-33006           HardTouch             2002-02-11 02:55  2002.04.11  
Как определить нахождение каталогов Windows, Мои документы, Рабочий стол и т.д.


6-32925           Arlekin               2002-01-24 17:56  2002.04.11  
Ну не хочет Он работать!!!!!


3-32636           Chainik               2002-03-14 14:41  2002.04.11  
Помогите с переносом данных из DBGrid в Excel :((


1-32815           zje                   2002-04-01 12:07  2002.04.11  
Delphi6 и dfm (кодировка unicode)


6-32917           eblade                2002-01-25 18:56  2002.04.11  
Как отправить через TClientSocket несколько запросов подряд?