Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.074 Beiträge
 
Delphi 12 Athens
 
#15

AW: elseif of "else if" (PHP)

  Alt 28. Jun 2010, 11:07
jupp, witzig ist auch sowas
Delphi-Quellcode:
if S = 'then
begin
  X := gibmirwas;
  if assigned(X) then
  begin
    if IsString(X['dd']) then
      S := Trim(X['fd'])
    else
      S := ToInteger(X['fd']);
  end
  else
    S := 'default';
end;
Code:
if (!$S) $S = ($X = gibmirwas()) ? (is_string($X['dd']) ? trim($X['dd']) : intval($X['dd'])) : 'default';
Oh man, mit welchen schmutzigen Tricks man Dieses, die Zuweisung in Abfragen und die Typenfreiheit ausnutzen kann.

Aber wenn man's übertreibt, dann sollte man sich nicht über die "Lesbarkeit" beschweren.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (28. Jun 2010 um 11:11 Uhr)
  Mit Zitat antworten Zitat