1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Каждый нечетный символ - цифра. Delphi

Тема в разделе "Вопросы новичков и не только", создана пользователем TYMON, 9 дек 2010.

  1. TYMON

    TYMON Member

    Репутация:
    0
    Регистрация:
    19 июн 2010
    Сообщения:
    11
    Симпатии:
    0
    Даны пять текстовых полей edit, с длиной в пять символов каждое. Как организовать проверку на правильность (если каждый нечетный символ - цифра, жмешь ок и открывается вторая форма)
    Только проверку подскажит
     
  2. XTen

    XTen Active Member

    Репутация:
    0
    Регистрация:
    18 сен 2010
    Сообщения:
    26
    Симпатии:
    0
    ICQ: 410691984
     
  3. nayke

    nayke Well-Known Member

    Репутация:
    0
    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Код:
    for i:=1 to length(edit1.text) do
    //нечетность 
    if i mod 2 =1 then 
    //проверка цифры
    if (edit1.text[i]>='0') and (edit1.text[i]<='9') then result:=true;
    вроде так должно работать но еще можешь попользовать ord.
     
  4. TYMON

    TYMON Member

    Репутация:
    0
    Регистрация:
    19 июн 2010
    Сообщения:
    11
    Симпатии:
    0
    Получается если при вводе хоть один символ нечетный это цифра то открывается, а мне надо чтобы открывалась только при условии что все нечетные цифры (если хоть один нечетный не цифра то не пускать!)
    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    var a:string;
    i:integer;
    begin
    
    //Если введенный пароль равен заданному
    a:=edit3.text+edit4.text+edit5.text+edit6.text+edit7.text;
    for i:=1 to length(a) do
    //нечетность
    if i mod 2 <> 0 then
    //проверка цифры
    if (a[i]>='0') and (a[i]<='9') then
    begin
    //скрываем окно пароля
    hide;
    //открываем окно редактора
    form2.show;
    end;
    
    end;
     
  5. nayke

    nayke Well-Known Member

    Репутация:
    0
    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Я предложил как вариант. поставте обратное условие и если оно хоть раз выпадет обрывайте и переходите к завершению если нет, то выводите форму.
     
Загрузка...
Похожие Темы - Каждый нечетный символ
  1. erhe
    Ответов:
    2
    Просмотров:
    2.631
  2. slavon-x86
    Ответов:
    3
    Просмотров:
    3.941

Поделиться этой страницей