строки DELPHI

[Lexey92]

помогите разобраться пожалуйста

3.
Напишите функцию NonAlpha(str: string), которая получает параметр str типа string и возвращает позицию его первой литеры, не являющейся буквой (как латинского, так и русского алфавитов) строчной или прописной. Например, NonAlpha( 'stev7n' ) дает 5.

[maxionans]

и что не понятно?

[Lexey92]

незнаю как эту задачу записать(((((((((((

[casekey]

function NonAlpha(str: string): integer;
var i: integer;
begin
NonAlpha:=0;
for i:=1 to Length(str) do
    begin
    case str of
    '0'..'9': begin 
                NonAlpha:=i;
                break;
                end; 
    end;

    end;
end;

[Lexey92]

спасибо большое!!!))))

[Roof]

учебники в руки и все напишешь.

[maxionans]

решение неправильное, завалится, например, на строке 'stev*n'. проверять нужно не цифры, а принадлежность к множеству символов. то есть так:

if not ( Str[ I ] in [ 'a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я' ] ) then  
  begin
    NonAlpha := I;
    Break;
  end;

[casekey]

каким образом завалится то? Цикл не найдет ни одной цифры и функция вернет 0, что можно расценивать как "не найдена ни одна цифра"

[maxionans]

задание внимательно прочти. там про цифры ничего не сказано.

[casekey]

а блин, о5 моя невнимательность