Dec to Hex to Dec translator

[Alex Cones]

Делаю автокликер, который будет работать по скриптам (для универсальности). Скрипт предполагается использовать бинарный. Так вот тестовые скрипты пишу в хекс редакторе. уже надоело переводить все числа в хекс вид и обратно. Поэтому накатал Hex to Dec to Hex прогу.

В общем выкладываю как пособие и помощник:

Function CheckHex(_S : String):Boolean;
Var
 I : Integer;
Begin
 Result := True;
 For I := 1 to Length(_S) do
  Begin
   If _S[I]<>'0' Then
   If _S[I]<>'1' Then
   If _S[I]<>'2' Then
   If _S[I]<>'3' Then
   If _S[I]<>'4' Then
   If _S[I]<>'5' Then
   If _S[I]<>'6' Then
   If _S[I]<>'7' Then
   If _S[I]<>'8' Then
   If _S[I]<>'9' Then
   If _S[I]<>'A' Then
   If _S[I]<>'B' Then
   If _S[I]<>'C' Then
   If _S[I]<>'D' Then
   If _S[I]<>'E' Then
   If _S[I]<>'F' Then
    Result := False;
  End;
End;

Function CheckDec(_S : String):Boolean;
Var
 I : Integer;
Begin
 Result := True;
 For I := 1 to Length(_S) do
  Begin
   If _S[I]<>'0' Then
   If _S[I]<>'1' Then
   If _S[I]<>'2' Then
   If _S[I]<>'3' Then
   If _S[I]<>'4' Then
   If _S[I]<>'5' Then
   If _S[I]<>'6' Then
   If _S[I]<>'7' Then
   If _S[I]<>'8' Then
   If _S[I]<>'9' Then
    Result := False;
  End;
End;

procedure TFRMMain.BTNHexToDecClick(Sender: TObject);
Var
 I : Integer;
 S : String;
begin
 S := EDTHex.Text;
 If Length(S)<9 Then
  Begin
   If Length(S) = 0 Then ShowMessage('Пожалуйста, введите шестнадцатиричное число') Else
   If CheckHex(S) Then
    Begin
     I := StrToInt('$'+S);
     EDTDec.Text := IntToStr(I);
    End
   Else
    ShowMessage('Пожалуйста, используйте только шестнадцатиричные цифры'+#10+#13+'при написании шестнадцатиричного числа');
  End
 Else
  ShowMessage('Пожалуйста, введите шестнадцатиричное число поменьше.');
end;

procedure TFRMMain.BTNDecToHexClick(Sender: TObject);
Var
 I : Integer;
 S : String;
begin
 S := EDTDec.Text;
 If Length(S)<10 Then
  Begin
   If Length(S) = 0 Then ShowMessage('Пожалуйста, введите десятичное число') Else
   If CheckDec(S) Then
    Begin
     I := StrToInt(S);
     EDTHex.Text := IntToHex(I,8);
    End
   Else
    ShowMessage('Пожалуйста, используйте только десятичные цифры'+#10+#13+'при написании десятичного числа');
  End
 Else
  ShowMessage('Пожалуйста, введите десятичное число поменьше.');
end;

Да, код можно оптимизировать и сократить наполовину. Но не стал по следующим причинам:

1) Так понятней и наглядней.
2) Лень.

Вот заархивированный исполняемый: