Использование DLL

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function TwoToEight(TwoRadix: String): String;
external 'Radix.dll';
function TwoToTen(TwoRadix: String): String;
external 'Radix.dll';
function TwoToSixteen(TwoRadix: String): String;
external 'Radix.dll';
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (ComboBox1.ItemIndex = -1) then
    ShowMessage('Âû íå âûáðàëè ïåðåâîä!');
  if (ComboBox1.ItemIndex = 1) then
    Label1.Caption := TwoToEight(Edit1.Text);
  if (ComboBox1.ItemIndex = 2) then
    Label1.Caption := TwoToTen(Edit1.Text);
  if (ComboBox1.ItemIndex = 3) then
    Label1.Caption := TwoToSixteen(Edit1.Text);
end;
 
end.

library Radix;
 
uses
  SysUtils,
  Classes;
 
{$R *.res}
//---------------------------------------Ôóíêöèÿ-2--8---------------------------
  function TwoToEight(TwoRadix: String): String;
  var
    transi, res: String;
    i, Len: Integer;
    logMain, logTransi: Boolean;
  begin
    Len := Length(TwoRadix);
    repeat
    logTransi := false;
    logMain := false;
      if (Len <> 0) then
        begin
          for i := 1 to 3 do
            transi := TwoRadix[Len] + transi;
          repeat
            if (Length(transi) < 3) then
              transi := '0' + transi
            else
              logTransi := true;
          Until (logTransi = true);
          case StrToInt(transi) of
            000: result := '0' + result;
            001: result := '1' + result;
            010: result := '2' + result;
            011: result := '3' + result;
            100: result := '4' + result;
            101: result := '5' + result;
            110: result := '6' + result;
            111: result := '7' + result;
          end;
          Len := Len - 1;
        end
        else
          logMain := true;
    Until (logMain = true);
  end;
//------------------------------------------------------------------------------
 
//-----------------------Ôóíêöèÿ-2--10------------------------------------------
function TwoToTen(TwoRadix: String): String;
var
  res: String;
  i, Len: Integer;
  transi: Real;
begin
  Len := Length(TwoRadix);
  for i := Len - 1 downto 0 do
    transi := transi + exp(i*ln(StrToInt(TwoRadix[Len])));
  res := FloatToStr(transi);
end;
//------------------------------------------------------------------------------
 
//-----------------------Ôóíêöèÿ-2--16------------------------------------------
function TwoToSexteen(TwoRadix: String): String;
var
  transi, res: String;
  i, Len: Integer;
  logMain, logTransi: Boolean;
begin
  Len := Length(TwoRadix);
  repeat
    logMain := false;
    logTransi := false;
    if (Len <> 0) then
      begin
        for i := 1 to 4 do
          transi := TwoRadix[Len] + transi;
        repeat
          if (Length(transi) < 4) then
            transi := '0' + transi
          else
            logTransi := true;
        Until (logTransi = true);
        case StrToInt(transi) of
          0000: result := '0' + result;
          0001: result := '1' + result;
          0010: result := '2' + result;
          0011: result := '3' + result;
          0100: result := '4' + result;
          0101: result := '5' + result;
          0110: result := '6' + result;
          0111: result := '7' + result;
          1000: result := '8' + result;
          1001: result := '9' + result;
          1010: result := 'A' + result;
          1011: result := 'B' + result;
          1100: result := 'C' + result;
          1101: result := 'D' + result;
          1110: result := 'E' + result;
          1111: result := 'F' + result;
        end;
        Len := Len - 1;
      end
    else
        logMain := true;
  Until (logMain = true);
end;
//------------------------------------------------------------------------------
begin
end.