jimmckeeth

unit PiDay2023;

interface

uses
  Velthuis.BigIntegers,
  Velthuis.BigDecimals;
  // Use your favorite fork of https://github.com/rvelthuis/DelphiBigNumbers 

function LeibnizPi(const Iterations: NativeUInt): Extended;

jimmckeeth

@echo off
REM Call from Delphi/RAD Studio IDE with the following parameters
REM $PATH($EXENAME) $NAMEONLY($PROJECT)
echo =============================================================
echo Be sure you Compile Android 64 and Deploy [Shift-Ctrl-Alt-F9]
echo. 
echo Also set <application android:resizeableActivity="true"> in AndroidManifest.template.xml
echo =============================================================
echo Path: %1
set apk=%2\bin\%2.apk

jimmckeeth

#!/bin/bash
# 
# Download and execute with the following:
# curl -L https://embt.co/SetupRedHat4Delphi22sh | bash
#
echo "updating installed package"
sudo yum upgrade -y
echo "installing development tools"
sudo yum groupinstall 'Development Tools' -y
sudo yum install wget gtk3 mesa-libGL gtk3-devel -y

jimmckeeth

#!/bin/bash
# 
# Download and execute with the following:
# curl -L https://embt.co/SetupUbuntu4Delphi22 | bash
#
echo "Updating the local package directory"
sudo apt update 
echo "Upgrading any outdated pacakges"
sudo apt full-upgrade -y
echo "Install new packages necessary for Delphi & FMXLinux"

jimmckeeth

#!/bin/bash
echo "Updating the local package directory"
sudo apt update 
echo "Upgrade any outdated pacakges"
sudo apt full-upgrade -y
echo "Install new packages necessary for Delphi"
sudo apt install joe wget p7zip-full curl openssh-server build-essential zlib1g-dev libcurl4-gnutls-dev libncurses5 xorg libgl1-mesa-dev libosmesa-dev libgtk-3-bin -y
echo "Clean-up unused packages"
sudo apt autoremove -y
cd ~

jimmckeeth

unit IgnoreEditChanges;
// https://blogs.embarcadero.com/ignore-changes-with-custom-managed-records/
// Custom Managed Records are a new feature introduced in 10.4 Sydney

interface

uses
  System.Classes;

type

jimmckeeth

uses Math;

function ROT47(UnRot: string): string;
// More information https://en.wikipedia.org/wiki/ROT13#Variants
begin
  Result := UnRot;
  for var I := 1 to Length(Result) do
  begin
    var o := ord(Result[i]);
    case o of

jimmckeeth

Keybase proof

I hereby claim:

• I am jimmckeeth on github.
• I am jimmckeeth (https://keybase.io/jimmckeeth) on keybase.
• I have a public key ASBt3FFVworfFAq38crbjISewR-SE7eWTQsS_sCkpMCMrwo

To claim this, I am signing this object:

jimmckeeth

// +-----------------------------------------------------------------+
// | Created with Petra Plugin For Sketch from www.applyingcode.com  |
// | by Jim McKeeth, Embarcadero Technologies                        |
// |    jim.mckeeth@embarcadero.com                                  |
// +-----------------------------------------------------------------+
// | Merry Christmas, Happy Holidays, and have a great 2018          |
// +-----------------------------------------------------------------+

unit MerryChristmas;