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

Тема в разделе "Pascal and Delphi", создана пользователем TYMON, 9 дек 2010.

  1. TYMON

    TYMON Member

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

    XTen Active Member

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

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Код (Text):
    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

    Регистрация:
    19 июн 2010
    Сообщения:
    11
    Симпатии:
    0
    Получается если при вводе хоть один символ нечетный это цифра то открывается, а мне надо чтобы открывалась только при условии что все нечетные цифры (если хоть один нечетный не цифра то не пускать!)
    Код (Delphi):
    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

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

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