VPF::Функция BaseConvert - Форум программистов

asvr

Дата 4.5.2007, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 8.5.2006

Репутация: нет
Всего: нет

Есть такая функция BaseConvert - перевод чисел из различных систем счисления. Она в DRKB есть (Как представить число в другой системе счисления?), или тут http://itby.ru/content/view/2808/40/ поэтому не привожу ее листинг.
Так вот вопрос в том, что возвращаемое значение ее получается всегда Error.
Т.е. я использую ее так

Код


procedure TForm1.Edit1Change(Sender: TObject);
begin
 Edit2.Text:=BaseConvert(Edit1.Text,10,2);
 Edit3.Text:=BaseConvert(Edit1.Text,10,8);
 Edit4.Text:=BaseConvert(Edit1.Text,10,16);
end;

Т.е при изменении в edit1 в остальных едитах должны появлятся значения в других системах счисления,
а там error.
Где тут ошибка?

Alexeis

Дата 5.5.2007, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

asvr, в коде закралась опечатка

Код


 if CharacterValue = 0
      then
        if (Ord(CurrentCharacter) < 48) or (Ord(CurrentCharacter) > 57)
        then
          begin
            BaseConvert := 'Error';
            Exit;
          end
        else
          CharacterValue := Ord(CurrentCharacter); //<-- вот тут должно быть CharacterValue := Ord(CurrentCharacter) - 48;

Правильный код будет такой

Код


function BaseConvert(NumIn: string; BaseIn: Byte; BaseOut: Byte): string;
var
  i                : integer;
  currentCharacter : char;
  CharacterValue   : Integer;
  PlaceValue       : Integer;
  RunningTotal     : Double;
  Remainder        : Double;
  BaseOutDouble    : Double;
  NumInCaps        : string;
  s                : string;
begin
  if (NumIn = '') or
     (BaseIn < 2) or (BaseIn > 36) or
     (BaseOut < 1) or (BaseOut > 36)
  then
    begin
      Result := 'Error';
      Exit;
    end;

  NumInCaps := UpperCase(NumIn);
  PlaceValue := Length(NumInCaps);
  RunningTotal := 0;

  for i := 1 to Length(NumInCaps)
  do
    begin
      PlaceValue := PlaceValue - 1;
      CurrentCharacter := NumInCaps[i];
      CharacterValue := 0;

      if (Ord(CurrentCharacter) > 64) and (Ord(CurrentCharacter) < 91)
      then
        CharacterValue := Ord(CurrentCharacter) - 55;

      if CharacterValue = 0
      then
        if (Ord(CurrentCharacter) < 48) or (Ord(CurrentCharacter) > 57)
        then
          begin
            BaseConvert := 'Error';
            Exit;
          end
        else
          CharacterValue := Ord(CurrentCharacter) - 48;

      if (CharacterValue < 0) or (CharacterValue > BaseIn - 1)
      then
        begin
          BaseConvert := 'Error';
          Exit;
        end;

      RunningTotal := RunningTotal + CharacterValue * (Power(BaseIn, PlaceValue));
    end;

  while RunningTotal > 0
  do
    begin
      BaseOutDouble := BaseOut;
      Remainder     := RunningTotal - (int(RunningTotal / BaseOutDouble) * BaseOutDouble);
      RunningTotal  := (RunningTotal - Remainder) / BaseOut;

      if Remainder >= 10
      then
        CurrentCharacter := Chr(Trunc(Remainder + 55))
      else
        begin
          s := IntToStr(trunc(remainder));
          CurrentCharacter := s[Length(s)];
        end;

      Result := CurrentCharacter + Result;
    end;
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

asvr

Дата 5.5.2007, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 8.5.2006

Репутация: нет
Всего: нет

Alexeis, спасибо.
Просто я тупо скопировал код этот и не попытался разобраться. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »