[Misterhomer]

Здравствуйте, у меня есть проблема с написанием одной программы.
Условие задачи: Программа должна подсчитывать с Memo1 текста и выводить в Memo2 сколько больших латинских букв и цифр содержится в Memo1.
Помогите пожалуйста.

[lmikle]

Код:

function CountLtr(S : String) : Integer;
var
  I : Integer;
begin
  Result := 0;
  For I := 1 to Length(S) Do
    If S[i] In ('A'..'Z','0'..'1') Then Inc(Result);
end;

Использование:

Код:

Memo2.Lines.Add(IntToStr(CountLtr(Memo1.Lines.Text)));

А, вообще, мог и сам додуматься.

[Misterhomer]

ене работает( пишет '(' expected but '..' found

[Misterhomer]

не работает

[lmikle]

Вот здесь:

Код:

If S[i] In ['A'..'Z','0'..'1'] Then Inc(Result);

Опять же, мог бы и сам догадаться.

[Misterhomer]

ой,пасиб) профукач чот)