Скачать: 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 вся ветка

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



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