Durch die vielen (NOT VarIsEmpty( wurde es etwas unübersichtlich..
Zitat:
Delphi-Quellcode:
if ((NOT VarIsEmpty(oExcel))and(NOT VarIsEmpty(oWB1))
and(NOT VarIsEmpty(oWS1))and(NOT VarIsEmpty(oWS2))) then
Ein bissl Boolesche Algebra und viele NOT sind Geschichte.
Erstmal die obsoleten Klammern weg (außerdem können Leerzeichen ja soooooooowas von entspannend wirken)
Ich werde da immer ganz kirre, wenn ich sinnlos Klammern zählen muß, um zu erkennen was wirklich geklammert ist. (wir schreiben hier doch keine C-Codes, wo immer zuviele Klammern vorkommen und ich die gern mal mit { } verwechsle )
Delphi-Quellcode:
if NOT VarIsEmpty(oExcel) and NOT VarIsEmpty(oWB1)
and NOT VarIsEmpty(oWS1) and NOT VarIsEmpty(oWS2) then
und dann nur noch umdrehn
if NOT (VarIsEmpty(oExcel) or VarIsEmpty(oWB1) or VarIsEmpty(oWS1) or VarIsEmpty(oWS2)) then
Warum NOT groß und IF THEN AND klein?