Буквы или Цифры

[moff]

Здравствуйте, не могли бы вы мне помочь, проблема в следующем:
В зависимости от того какая RadioButton выбрана мне нужно подсчитать кол-во букв или цифр в Memo. Вот что у меня получилось :

void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString A = "";
if(Memo1->Lines->Text=="")A = "Поле Memo пустое ";
if(A!="")ShowMessage(A);
int s =0;
for (int i=1; i<= Form1->Memo1->Text.Length(); i++)
{
if(Form1->RadioButton2->Checked)

""Ясно что тут долна быть проверка на то буква это илит цифра, но как это сделать я не знаю.""
s++;
Form1->Edit2->Text = s;

}

}

[netrino]

islapha(char c) - true, если буква
isdigit(char c) - true, если цифра

for(int i = 1; i <= Form1->Memo1->Text.Length(); i++) {
    if(Form1->RadioButton2->Checked)
        if(isalpha(Form1->Memo1->Text[i]))
            s++;
    else
        if(isdigit(Form1->Memo1->Text[i]))
            s++;
}

Проверить не могу, но идея должна быть понятна

[moff]

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