Delphi-Quellcode:
xxx.Enabled := (Obj.Count = 1)
and not VarToBool(Obj.Prop[0].GetVariant('
ein Boolean'));
// das IMHO Logische
//
Ich kenne es nur so
Delphi-Quellcode:
xxx.Enabled := (Obj.Count = 1) and (not VarToBool(Obj.Prop[0].GetVariant('ein Boolean')));
//
Aber hier sieht man mal wie schön der Compiler alles umänert.
Delphi-Quellcode:
xxx.Enabled := VarAnd(VarFromBool(Obj.Count = 1), VarNot(Obj.Prop[0].GetVariant('ein Boolean'))); // die Idee des Compiler
//