IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Помогите с массивом
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17
Пол: Мужской

Репутация: -  0  +


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

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

Создал на форме объект 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. Может как-то можно по другому решить эту задачу ??

За ранее спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


В написанном тобой коде цикла for не нужно увеличивать счётчик i - он сам увеличивается.
И вообще поясни задачу более подробно, а то что-то не очень понятно, что вообще нужно сделать...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


wary Для ввода массивов намного удобнее использовать такие компоненты как TStringGrid или TMemo, информаия о них есть практически в любой книге по Delphi или в Интернете.

Если же ты хочешь использовать TEdit, то придется парсить строку, пропуская разделители, что немного сложнее, хотя есть и встроенная в делфи функция, выполняющая это действие, название сейчас не вспомню ...


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






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

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

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 26.10.2020 19:32
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name