Delphi Произведение элементов массива

[azhigalieva]

Программа должна считать произведение элементов массива. Она работает правильно. Помогите дописать код этой программы так, чтобы при вводе в массив букв (и англ. и русс.) через showmessage выводилось сообщение "Ошибка: некорректный ввод"
Вот основной код моей недоделанной программы:

procedure TForm1.Button1Click(Sender: TObject);
 var
 a:array[1..5] of integer;
i,pr:integer;
begin
 for i:= 1 to 5 do
a[i]:=strtoint(stringgrid1.cells[i-1,0]);
Pr:=1;
for i:=1 to 5 do
if a[i]>a[1] then pr:=pr*a[i];
label2.Caption:='Произведение элементов=' +IntToStr(pr);
end;

[Luuzuk]

Воспользуйтесь методом TryStrToInt. Оно вернет False, если в строке будут какие-то левые символы, мешающие переводу оной в число

[azhigalieva]

Нельзя так, нужно создать множество английских и русских букв, проверить, принадлежат ли элементы массива этому множеству и если принадлежат, то через showmessage выводить "Ошибка ввода"..... не знаю, как это сделать

[SecretSilent]

определите множество, где перечислите буквы:
type Letters = set of 'a'..'z';
то же для заглавных и русских букв.

проверка, входит ли текущий элемент в множество, можно с помощью операции in:

for i:= 1 to 5 do
if (a[i] not in Letters) then
a[i]:=strtoint(stringgrid1.cells[i-1,0]);