Bedingte Bedingung

[nailor]

Delphi-Quellcode:

var a,b,c,res: boolean;
begin

if a then
  res := b and c
else
  res := b;

if res then
  ...

end;

geht das auch in eine Zeile, nach dem Motto

Delphi-Quellcode:

var a,b,c,res: boolean;
begin

if (res := if a then (b and c) else b) then
  ...

end;