A Lover of Delphic Wisdom
Okay, no cheating now. That is, no running the code until you’ve guessed. What is the output of this code? program Project90; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; var S: TObject; begin try S := nil; if S is TObject then begin Writeln(‘Yup’); end else begin Writeln(‘Nope’); end; except on E: Exception do Writeln(E.ClassName, ‘:…
unit uEnumConverter; interface type TEnum = record public class function AsString<T>(aEnum: T): string; static; class function AsInteger<T>(aEnum: T): Integer; static; end; implementation uses TypInfo ; { TEnum } class function TEnum.AsString<T>(aEnum: T): string; begin Result := GetEnumName(TypeInfo(T), AsInteger(aEnum)); end; class function TEnum.AsInteger<T>(aEnum:…