Помогите с массивом Опции

[wary]

Здравствуйте, имеется следующая задача:

Заполнить две строки числами, после проверить принадлежность каждой к определенному множеству.
У меня собственно проблема с тем как ввести массив . Решил попробовать следующее:

Создал на форме объект Edit, потом с помощью цикла пробегаю его и присваю определенному массиву

Код

begin
        for i:=1 to 7 do
        a[i]:=strtoint(Edit1.Text);
        i:=i+1;
        end;

Вопросы:
1. Как например быть с тем, если я хочу ввести например числа 1, 15, 20 . Когда я их ввожу, вылетает ошибка что это не integer. В итоге получается ввести только такую последов чисел 12321321321...???
2. Как ограничить ввод в объект Edit1 только чисел типа integer, и фиксированного их колличества ?
3. Может как-то можно по другому решить эту задачу ??

За ранее спасибо!

[volvo]

В написанном тобой коде цикла for не нужно увеличивать счётчик i - он сам увеличивается.

А код надо ЧИТАТЬ а не просматривать - увеличивается значение i уже после цикла... Хотя полагаться на то, что после завершения цикла значение i будет = 7 нельзя... Оптимизатор может все испортить...

По теме - я бы делал либо в TEdit, но читал в TStringList, и там ставил нужные делимитеры, либо сразу TMemo вместо эдита...

Сообщение отредактировано: volvo - 15.05.2007 22:13