function XORText(text:string):string;
var key, longkey : string;
i : integer;
toto: char;
k:integer;
begin
key := 'muse';
k := length(text) div length(key);
for i := 0 to k do
longkey := longkey + key;
for i := 1 to length(text) do
 begin
 toto := chr((ord(text[i]) XOR ord(longkey[i])));
   result := result + toto;
end;

 
FDialog.glaInline.OnSetLayer :=
            procedure (ANewLayer: IGridLayer)
            var
                realGridLayer: IGridLayer;
            begin
                realGridLayer := ANewLayer as IGridLayer; // <------- вот!
                FGridSrc := realGridLayer.GetGrid;
                Fgrid4 := FGridSrc as IGrid4;
 
            end;

procedure TForm12.Button1Click(Sender: TObject);
var
  Stream: TmemoryStream;
  Parser:

type
IntArray = array of integer;
 
procedure StrListReIndex(str:TStrings; var index:IntArray);
var i:integer; t: TStringList;
begin
   t:=TStringList.Create;
   t.AddStrings(str);
   str.Clear;
   for i := 0 to t.Count - 1 do
     str.Add(t[index[i]]);
   t.Free;
end;
 
 
procedure StrListSortSaveIndex(str:TStrings;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges;
 
type
  TGauge = class(Gauges.TGauge)
    public
      property OnMouseDown;
  end;
 
  TForm1 = class(TForm)
    Gauge1: TGauge;
    Gauge2: TGauge;
    procedure FormCreate(Sender: TObject);
  private

unit uShell;
 
interface
 
// Модуль копирования файлов в буфер для проводника
// протестирован Delphi 7, XE
 
uses Forms, Classes, SysUtils, ShellApi, ShlObj, ClipBrd, Windows;
 
type
  TWinMoveType = (wCopy = 5, wMove = 2); // Копирование или перенос
 
  WinExplorer = class
    // файлы в буфер

TDBGrid = class(DBGrids.TDBGrid)
public
  HorzScroll: boolean; 
  constructor Create(AOwner:TComponent); override;
protected
  procedure Paint; override;
end;
 
implementation
 
constructor TDBGrid.Create(AOwner: TComponent);
begin
  HorzScroll:=false;
  inherited;
end;

unit FileAssociation;
 
// модуль ассоциации файлов
 
interface
 
uses Windows, SysUtils, Registry, ShlObj;
 
procedure FileAssociate(const Ext, progName: string; Icon: string = ''; ProgPath: string = '');
procedure FileUnAssociate(const Ext, progName:string);
 
implementation
 
procedure FileAssociate(const Ext, progName: string;

program CallExponent;
{программа вычисляет значение константы e путём
 решения дифференциального уравнения y'=y, y(0)=1}
uses
  RungeKutta;
 
function Equation(x,y:extended):extended;
begin
  Result:=y
end;
 
begin
  WriteLn(GetSolutionAtPoint(1,0.001,0,1,Equation)) 
  // 2.71828182845902
  // погрешность в 14-ом знаке после запятой
end.

unit DropFileClass;
 
// procedure FromDropFiles(Sender: TObject);
 
{ модуль драг и дроп Файлов из проводника и в проводник Windows
 протестирован Delphi 7, XE
 Исходники
 [url]http://www.webundmobile.de/content/download/7387/137496/file/Listings.zip[/url]
 [url]http://www.delphisources.ru/forum/showthread.php?t=21869[/url]
 
 Repack by Alex_pac Тольятти

unit md5Hash;
 
// Optimized version MD5 by Shade & Arigato, 2005.
// repack by Alex_pac 2012
 
interface
 
uses Windows, SysUtils;
 
function md5UTF8 (buf: UTF8String): AnsiString;
function md5 (buf: AnsiString): AnsiString;
 
implementation