Tagesanzahl Februar eines Jahres

[haentschman]

Moin...

...man sollte aber auch dazu sagen, daß das dieses IfThen aus der Unit Math kommt. IfThen gibt es auch in SysUtils...die macht aber was ganz anderes.

http://docwiki.embarcadero.com/Libra...trUtils.IfThen
http://docwiki.embarcadero.com/Libra...em.Math.IfThen

[Uwe Raabe]

Bei IfThen gilt auch zu beachten, dass es sich hier um einen Funktionsaufruf handelt, bei dem immer alle Parameter ausgewertet werden.

Delphi-Quellcode:

var
  cmp: TComponent;
  cmpName: string;
begin
  cmp := FindComponent('Edit1');

  { hier kann ein Zugriffsfehler auftreten }
  cmpName := IfThen(cmp <> nil, cmp.Name, '');

  { kann hier nicht passieren }
  if cmp <> nil then
    cmpName := cmp.Name
  else
    cmpName := '';

[Delphi.Narium]

Zitat von Uwe Raabe:

Bei IfThen gilt auch zu beachten, dass es sich hier um einen Funktionsaufruf handelt, bei dem immer alle Parameter ausgewertet werden.

Delphi-Quellcode:

var
  cmp: TComponent;
  cmpName: string;
begin
  cmp := FindComponent('Edit1');

  { hier kann ein Zugriffsfehler auftreten }
  cmpName := IfThen(cmp <> nil, cmp.Name, '');

  { kann hier nicht passieren }
  if cmp <> nil then
    cmpName := cmp.Name
  else
    cmpName := '';

Stimmt, aber in so 'ner Situation käme ich nie und nimmer auf die Idee IfThen zu nutzen. Bei Parametern für IfThen weiß ich immer vorher, dass ich das problemlos drauf zugreifen kann.

Delphi-Quellcode:

var
  cmp: TComponent;
  cmpName: string;
begin
  cmp := FindComponent('Edit1');
  if Assigned(cmp) then begin // ohne das, geht es bei mir nach 'nem FindComponent o. ä. garantiert nicht weiter.
    ...
  end else begin
    ...
  end;

[Rollo62]

Zitat von Uwe Raabe:

Bei IfThen gilt auch zu beachten, dass es sich hier um einen Funktionsaufruf handelt, bei dem immer alle Parameter ausgewertet werden.

Sehr guter Hinweis.
Gäbe es denn irgendeinen Trick um das zu Vermeiden, ich denke mal nicht, oder ?
Shortcuts gibt es nur bei Operatoren soweit mir bekannt.