Проверка что 6 символов являются цифрами

@EEjester · Регистрация: 28.03.2013

Студворк — интернет-сервис помощи студентам

Есть переменная string, 7 знаков, первый буква, остальные цифры, проверить на букву я смог,

Delphi
1
2
    if Copy(s,1,1)='A'
    then

Как проверить что остальные 6 символов являются цифрами? Включая 0-9

@FIL · 23.11.2013, 19:36

Delphi
1
2
  if (Length(s) = 7) and (s[1] = 'A') and (TryStrToInt(Copy(s, 2, 6), i)) then
    ShowMessage('OK');

@EEjester · 23.11.2013, 19:45 **[ТС]**

Сообщение от FIL

(TryStrToInt(Copy(s, 2, 6), i))

i - Integer?

@FIL · 23.11.2013, 20:00

Да.

@EEjester · 23.11.2013, 20:02 **[ТС]**

неработает.

@FIL · 23.11.2013, 20:04

Что там может не работать?

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject);
var
  s: String;
  i: Integer;
begin
  s := 'A123456';
  if (Length(s) = 7) and (s[1] = 'A') and (TryStrToInt(Copy(s, 2, 6), i)) then
    ShowMessage('OK');
end;

@EEjester · 23.11.2013, 20:23 **[ТС]**

А, сорри, работает. Просто у меня драва mozg + ruki плохо встали)))

Добавлено через 19 секунд
Извини ещё раз, и спасибо.

Добавлено через 15 минут
Я пишу на winapi, и он ругается на конвертацию TryStrToInt. Как с этим справиться?

@FIL · 23.11.2013, 20:26

Подключи SysUtils

@EEjester · 23.11.2013, 20:33 **[ТС]**

FIL, а можно как то иначе? Просто веса прибавляет много.

@Alexxandr · 23.11.2013, 20:45

Добавлено через 7 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function TryStrToInt(s: string; var i: integer): boolean;
var len,k,d:integer;
begin
i := 0;
d:= 1;
Result := true;
len := Length(s);
for k:=1 to len do
 if not (s[k] in ['0','1','2','3','4','5','6','7','8','9']) then
 begin
 Result := false;
 Exit;
 end else
 begin
 i := 10*i +(Ord(s[k]) - Ord('0'));
 end;
end;

@FIL · 23.11.2013, 20:46

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  s: String;
  i: Integer;
  OK: Boolean;
begin
  s := 'A123456';
  OK := True;
  if (Length(s) = 7) and (s[1] = 'A') then
    for i := 2 to 7 do
      if not (s[i] in ['0'..'9']) then
      begin
        OK := False;
        Break;
      end
  else else
    OK := False;
  if OK then ShowMessage('OK');

@EEjester · 24.11.2013, 00:02 **[ТС]**

А как сделать что бы когда буква проверяется, регистр не играл роли. Тобишь хоть a, хоть A, это не играло роли?

Добавлено через 1 минуту
Если что использую код FIL'a.

Delphi
1
2
3
4
5
6
7
8
9
10
11
OK := True;
  if (Length(s) = 7) and (s[1] = 'A') then
    for i := 2 to 7 do
      if not (s[i] in ['0'..'9']) then
      begin
        OK := False;
        Break;
      end
  else else
    OK := False;
  if OK then ShowMessage('OK');

@FIL · 24.11.2013, 00:09

Delphi
1
  UpCase(s[1]) = 'A'

@Дм Бел · 25.11.2013, 01:05

Pascal
1
2
3
4
Result := True;
for i := Low(s) + 1 to High(s) do
if not CharInSet(s[k], '0'..'9') then
Exit(False);

Delphi 2010.

Добавлено через 1 минуту

Сообщение от EEjester

Есть переменная string, 7 знаков, первый буква, остальные цифры, проверить на букву я смог,

Delphi
1
2
    if Copy(s,1,1)='A'
    then

Как проверить что остальные 6 символов являются цифрами? Включая 0-9

Почему проверка только на 'A'? Чем остальной алфавит провинился?

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	23.11.2013, 20:00
	Да. 1

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	23.11.2013, 20:02 [ТС]
	неработает. 0

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	23.11.2013, 20:23 [ТС]
	А, сорри, работает. Просто у меня драва mozg + ruki плохо встали))) Добавлено через 19 секунд Извини ещё раз, и спасибо. Добавлено через 15 минут Я пишу на winapi, и он ругается на конвертацию TryStrToInt. Как с этим справиться? 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	23.11.2013, 20:26
	Подключи SysUtils 1

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	23.11.2013, 20:33 [ТС]
	FIL, а можно как то иначе? Просто веса прибавляет много. 0