VPF::Как определить, что строка в Hex виде?

nickelfire

Дата 21.2.2005, 13:55 (ссылка)

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

Загрузка ...

Шустрый

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

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

Надо-же а я столько мучался.Спасибо.

Snowy

Дата 21.2.2005, 15:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Что-то этот код мне напоминает.

Код


function TryStrToInt(const S: string; out Value: Integer): Boolean;
var
  E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;

Только проверки на '$' нет smile

chaos

Дата 23.2.2005, 13:32 (ссылка)

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

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

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

Цитата

if not (s[i] in ['0'..'9', 'A'..'F']) then begin
result := false;
break
end

а нафик begin, end, & break? Я думаю они лишнии
И еще, а если строка будет иметь вид 0xFFFF или FFFFh или $FFFF, по твоя вункция вернет ложь, а это не верно

Это сообщение отредактировал(а) chaos - 23.2.2005, 13:35

Александра

Дата 23.2.2005, 22:59 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 20.2.2005
Где: Москва

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

chaos
чтобы не пробегать цикл до конца, разве не логично?

а если, то пусть Nicholas скажет конкретно, а мой код просто делает проверку только на то, записана ли строка в формате 16-ой системы, как он и просил, а эти условности надуманны, а в школе к примеру школьники пользуются системой - FFFF(16)...

исправленный вариант, который кто-то мог бы написать вместо необоснованной критики:

Код

function IsStrHex(s: string): boolean;
var i: byte;
begin
  if s = '' then begin
    result := false;
    exit;
  end;

  result := true;
  s := UpperCase(s);
  if copy(s, 1, 2) = '0X' then delete(s, 1, 2)
    else if s[1] = '$' then delete(s, 1, 1)
      else if s[length(s)] = 'H' then delete(s, length(s), 1);
  if s <> '' then begin
    for i := 1 to length(s) do
      if not (s[i] in ['0'..'9', 'A'..'F']) then begin
        result := false;
        break
      end
  end else result := false
end;

з.ы. trystrtoint можно использовать на проверку типа 0xA и $A, но не Ah

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

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