superswanman

            if (sampler != null)
            {
                TextureSamplerUtil.SetSampler(Texture, sampler);
                importer.wrapMode = Texture.wrapMode;
                importer.wrapModeU = Texture.wrapModeU;
                importer.wrapModeV = Texture.wrapModeV;
                importer.wrapModeW = Texture.wrapModeW;
                importer.filterMode = Texture.filterMode;
                importer.SaveAndReimport();
            }

superswanman

uses
  ForUsing;

type
  TFoo = class
  private
    FValue: Integer;
  public
    constructor Create(Value: Integer);
    destructor Destroy; override;

superswanman

unit ForUsing;

interface

type
  TUsing<T: class> = record
  private
    type
      TEnumerator = class
      private

superswanman

// ==UserScript==
// @name         モーメントの編集で一番上に移動するボタンを追加するやつ
// @namespace    http://lyna.space/
// @version      0.1
// @description  Twitterのモーメント編集画面に「ツイートを一番上に移動するボタン（⏫）」を追加します。
// @author       Lyna
// @match        https://twitter.com/i/moments/edit/*
// @grant        none
// ==/UserScript==

superswanman

unit RioGetItFix;

interface

procedure Register;

implementation

uses
  Winapi.Windows, System.SysUtils, Vcl.Themes;

superswanman

unit USushiBreak;

interface

uses
  System.Classes, Vcl.Controls, Vcl.Graphics, Vcl.Forms, ToolsAPI;

procedure Register;

implementation

superswanman

unit Lyna.Generators;

interface

uses
  SysUtils, Rtti, TypInfo;

type
  TRange = record
  strict private

superswanman

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

superswanman

program Project1;

{$APPTYPE CONSOLE}

uses
  System.SysUtils, System.Classes, System.Types, Vcl.Dialogs;

type
  TStringListEx = class(TStringList)
  public