Курсовая работа: Перевод чисел из различных систем счисления

implementation

{$l modul.obj}

{$R *.dfm}

procedure perevod (var s:shortstring; i:integer); external;

procedure TForm1. Button1Click (Sender: TObject);

var

s:string[32];

i:integer;

begin

label1. Caption:='';

if radiobutton1. Checked then

i:=10

else if radiobutton2. Checked then

i:=2

else if radiobutton3. Checked then

i:=8

else if radiobutton4. Checked then

i:=16;

s:=edit1. Text;

perevod (s, i);

if s[1]=#1 then

showmessage ('строка пустая')

else if s[1]=#2 then

showmessage ('последний символ должен быть:'+#13+#10+'цифра, если десятичная система, '+#13+#10+'b, если двоичная система, '+#13+#10+'o, если восьмеричная система, '+#13+#10+'h, если шестнадцатиричная система')

else if s[1]=#3 then

showmessage ('число введено неправильно')

elseifs[1]=#4 then

showmessage ('ноль не может быть первым символом числа')

elseifs[1]=#5 then