Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

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

AW: elseif of "else if" (PHP)

  Alt 28. Jun 2010, 10: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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

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