Приравнение одного символа строки к числу

@deep · Регистрация: 11.06.2014

Добрый день!

начал так

Delphi

1
2
3

s:=Edit1.Text;
if (s[2]=s[1])and(s[2]<>s[3])and(s[4]<>s[6])and(s[1]<>s[6])and(s[3]<>s[6])
then showmessage('проверено');

Возник вопрос с приравнением одного символа строки к числу.
к примеру так:

Delphi

1
2
3

m:integer;
if (s[2]=m)
then showmessage('проверено');

@Puporev · 31.07.2014, 19:39

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

с приравнением одного символа строки к числу.

Число может состоять не из одного символа, может к цифре?

Добавлено через 5 минут
Если любая цифра то так

Delphi

1	if s[2] in ['0'..'9'] then....

если конкретной цифре, то так

Delphi

1 2	m:=5; if s[2]=inttostr(m) then ....

	31.07.2014, 19:39