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

 

ICQ: 410691984

 

Только проверку подскажит

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.

 

Получается если при вводе хоть один символ нечетный это цифра то открывается, а мне надо чтобы открывалась только при условии что все нечетные цифры (если хоть один нечетный не цифра то не пускать!)

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;

 

Получается если при вводе хоть один символ нечетный это цифра то открывается, а мне надо чтобы открывалась только при условии что все нечетные цифры (если хоть один нечетный не цифра то не пускать!)

Я предложил как вариант. поставте обратное условие и если оно хоть раз выпадет обрывайте и переходите к завершению если нет, то выводите форму.