Delphi - операции со строкой

[IT-man]

A строку

flag:=false

забыли перед for вставить??

[Sianessa]

Хм, и правда забыла, спасибо... Только теперь другая проблема... Если там только одно это число шестнадцатиричное, то всё нормально, а если к примеру два числа через пробел, то уже пишет что нету цифр.

[IT-man]

Вопрос как стоял?

Определение значения числА

а не чисел!

[Sianessa]

Ой, и правда, что это я... Спасибо большое
Осталось последняя подпрограмма:
Проверку соответствия содержимого строки правилам записи идентификаторов языков
программирования.

Ранее было написано, что нужно прописать следующее:
1 - проверка первого символа
2 - поиск пробела
3 - проверка присутствия русских букв и недопустимых символов

Это всё ИФ-ами писать... или как?

[Sianessa]

procedure TForm1.Button3Click(Sender: TObject);  {проверка соотвтетствия правилам записи идентификаторов языков программирования}
var
  i,len:integer;
  s:string;
  flag:boolean;
begin
flag:=false;
s := Edit1.Text;
for i :=1 to length(s) do
if not (s[1] in ['0'..'9']) and (s[i] in [' ']) and (s[i] in ['а'..'я']) then flag:=true;
if flag then
edit5.Text:= 'Всё верно!'
else  begin
  edit5.Text:= 'Не верно!'
end;
end;
end.

Вот написала код... Но почему-то всегда пишет что не верно... =_= Я уже замучалась искать ошибку... Да и вообще, не знаю, правильно ли задачу хоть поняла...

[IT-man]

procedure TForm5.btn1Click(Sender: TObject);
var
  str:string;
  f:Boolean;
  i:Integer;
begin
  str:=edit1.Text;
  // проверка первого символа
  if str[1] in ['0'..'9'] then f:=False;
  // проверка всех символов
  for I := 1 to Length(str) do
    if not (str[i] in ['A'..'Z','0'..'9','a'..'z','_']) then f:=False;
  if f then label1.caption:='соответствует!'
    else  label1.caption:=' не соответствует!';
end;

[Sianessa]

Спасибо ^_^