Skip to content

Instantly share code, notes, and snippets.

@mdbs99

mdbs99/program1.pas

Created December 11, 2017 01:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mdbs99/ac9932e2b0e5a3525fdf05223051d5c9 to your computer and use it in GitHub Desktop.
Save mdbs99/ac9932e2b0e5a3525fdf05223051d5c9 to your computer and use it in GitHub Desktop.
Download ZIP
Program 1, Performance and Interfaces
Raw
program1.pas
program Project1;
{$mode delphi}
uses
SysUtils, Unit1;
procedure Execute(A: IAction);
begin
A.Act;
end;
var
A: IAction;
begin
A := TAction.Create;
Execute(A);
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment