Instantly share code, notes, and snippets.

View USushiBreak.pas
unit USushiBreak;
interface
uses
System.Classes, Vcl.Controls, Vcl.Graphics, Vcl.Forms, ToolsAPI;
procedure Register;
implementation
View Lyna.Generators.pas
unit Lyna.Generators;
interface
uses
SysUtils, Rtti, TypInfo;
type
TRange = record
strict private
View OpOverloadWithGenerics.pas
type
TObjectHelper = class helper for TObject
public
class function &&op_LogicalOr<T: class>(A, B: T): T; static;
end;
class function TObjectHelper.&&op_LogicalOr<T>(A, B: T): T;
begin
if A <> nil then
Result := A
View Project1.dpr
program Project1;
{$APPTYPE CONSOLE}
uses
System.SysUtils, System.Classes, System.Types, Vcl.Dialogs;
type
TStringListEx = class(TStringList)
public