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

TYMON

Member
19.06.2010
11
0
#1
Даны пять текстовых полей edit, с длиной в пять символов каждое. Как организовать проверку на правильность (если каждый нечетный символ - цифра, жмешь ок и открывается вторая форма)
Только проверку подскажит
 

TYMON

Member
19.06.2010
11
0
#4
Получается если при вводе хоть один символ нечетный это цифра то открывается, а мне надо чтобы открывалась только при условии что все нечетные цифры (если хоть один нечетный не цифра то не пускать!)
Код:
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;
 

nayke

Well-Known Member
04.08.2010
310
0
#5
Получается если при вводе хоть один символ нечетный это цифра то открывается, а мне надо чтобы открывалась только при условии что все нечетные цифры (если хоть один нечетный не цифра то не пускать!)
Я предложил как вариант. поставте обратное условие и если оно хоть раз выпадет обрывайте и переходите к завершению если нет, то выводите форму.