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.