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

[TYMON]

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

[_SERGEYX_]

Хе, тут много способов. Но,чтобы не делать перебор, я бы написал так:

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var s: string;
begin
  s := Edit1.Text;
  s := s[1] + s[3] + s[5];
  try
    StrToInt(s);
    ShowMessage('1, 2 и 3 символы цифры');
  except
    on E: EConvertError do
      ShowMessage('1, 2 и 3 символы НЕ ВСЕ цифры');
  end;
end;

[TYMON]

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

Хе, тут много способов. Но,чтобы не делать перебор, я бы написал так:

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var s: string;
begin
  s := Edit1.Text;
  s := s[1] + s[3] + s[5];
  try
    StrToInt(s);
    ShowMessage('1, 2 и 3 символы цифры');
  except
    on E: EConvertError do
      ShowMessage('1, 2 и 3 символы НЕ ВСЕ цифры');
  end;
end;

как то не особо хочется проверять пять полей таким вот способом)

[_SERGEYX_]

А циклы для чего?
Положи все Edit-ы на одну Panel1 (хоть 100 штук) и сделай функцю проверки

function TForm1.Check: Boolean;
var s: string;  i: Integer;
begin
  Result:= True;
  for i := 0 to Panel1.ControlCount - 1 do
  begin
    s := (Panel1.Controls[i] as TEdit).Text;
    s := s[1] + s[3] + s[5];
    try
      StrToInt(s);
    except
      Result := False;
      Break;
    end;
  end;
end;

//Использование
procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
if not Check then ShowMessage('Проверка не пройдена');
end;