Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.03;
Скачать: CL | DM;

Вниз

Аналог в Делфи операции из Си   Найти похожие ветки 

 
dvm ©   (2003-01-26 16:09) [0]

Подскажите, может есть более короткий способ создать в Delphi аналог операции из си:
myfunction(a?b:c)
а то в Делфи, что-то короче чем:

if a then temp:=b else temp:=b
MyFunction(temp);

не получается


 
Романов Р.В. ©   (2003-01-26 16:21) [1]

if a then MyFunction(b) else MyFunction(с);

или

MyFunction(IFA(a, b, c));

где

function IFA(a, b, c): TypeB;
begin
if a then Result:=b else Result:=c;
end;


 
dvm ©   (2003-01-26 16:29) [2]


> function IFA(a, b, c): TypeB;
> begin
> if a then Result:=b else Result:=c;
> end;


Да, но она не универсальна. Вот если бы тип возвращаемого функцией результата выбирался исходя из типов a, b, c.



 
asmith   (2003-01-26 16:55) [3]

Функцмя IfThen - появилась в D6.


 
Anatoly Podgoretsky ©   (2003-01-26 17:24) [4]


//*****************
//* Immidiate IF *
//*****************
function IIF(Expr,TrueRet,FalseRet:Variant) : Variant;
begin
if Expr then Result := TrueRet else Result := FalseRet;
end;


Вот эта универсальная, работает как минимум начиная с Д2


 
Романов Р.В. ©   (2003-01-26 17:35) [5]

Интересно как сделана IfThen?


 
Serious Sam   (2003-01-26 21:49) [6]

>короче ...не получается

Да, потому, что object pascal язык такой. Квадратно-гнездовой.
(Прошу ногами не пинать)


 
jack128 ©   (2003-01-26 22:56) [7]

2 Serious Sam Зачем ногами, мы сразу ломом по балде и нет проблем

2 dvm паскаль вообще не изабилует сокращениями, превыкай






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

Текущий архив: 2003.02.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
4-5358
Vasily Terekhov
2002-12-17 17:40
2003.02.03
Как послать окну сочетание клавиш Ctrl+C?


4-5330
Someone
2002-12-18 13:31
2003.02.03
Where are constants LVM_********** situated ?


3-4788
xn0bys
2003-01-09 09:45
2003.02.03
Уважаемые, помогите...


1-4840
badaxe
2003-01-24 14:46
2003.02.03
Поверх всех окон


3-4760
User_OKA
2003-01-16 10:40
2003.02.03
экспорт в Excel