|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.02.2009, 23:49 | #1 |
Регистрация: 28.02.2009
Сообщений: 3
|
Числа из edit1.text в массив..как?
Здравствуйте, я в программировании новичок и хотел бы попросить помощи.
Ситуация такая: имеем массив двумерный, edit1 и кнопку. В edit1 вводим числа, через запятую, например 4,7,21,128. По нажатию кнопки система считывает первое число (4) и заносит четвертую строку двумерного массива в новый, потом седьмую строку, двадцать первую и наконец 128-ю. В итоге получаем новый массив из четырех строк (старый нетронут). Как это реализовать? Спасибо. Извините, название темы некорректное. |
01.03.2009, 00:38 | #2 |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
Во первых - зачем массив двумерный?
А по теме - объявить одномерный массив размерностью с максимальным значением чисел.Считываем с Edit числа(string), переводим их в опять же числа (integer, например) и пишем в массив по индексу, соответствующему числам, типа - massiv[StrToInt(Edit1.text (до зпт))]
И не сомневайся даже ... отдых - кайф, работа - лажа!
|
01.03.2009, 09:08 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
1. Чтобы по нажатию кнопки последовательно считывать числа надо завести глобальную переменную-счетчик и присвоить ему значение 1.
var Form1: TForm1; i:integer=1; 2. В обработчике кнопки примерно так Код:
|
01.03.2009, 09:08 | #4 |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
Лучше массив не с размерностью с максимальным значением чисел, а динамический массив, сначало считаем сколько чисел в edit1 (например количество запятых +1), а затем считывает число, и в новый массив добавляем строчку старого с этим индексом. Числа из строки с запятыми можно получить следующим образом:
Код:
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
|
01.03.2009, 14:02 | #5 |
Регистрация: 28.02.2009
Сообщений: 3
|
Спасибо всем, способ от puporev помог.
Последний раз редактировалось yaquake; 01.03.2009 в 14:08. |
01.03.2009, 14:06 | #6 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
|
|
01.03.2009, 14:09 | #7 |
Регистрация: 28.02.2009
Сообщений: 3
|
Я все сделал и с превеликим уважением кланяюсь до земли, не стоит сразу говорить про тупость и упрямство, я конечно благодарен, но с проектом мучаюсь уже часов 20.
Немного недоглядел. Последний раз редактировалось yaquake; 01.03.2009 в 14:12. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как узнать в Edit1.Text у меня информация Integer | Shaitan63 | Общие вопросы Delphi | 11 | 29.01.2009 11:20 |
AnsiUpperCase(Edit1.Text); | Шура | Помощь студентам | 3 | 01.12.2008 20:04 |
y=Edit1->Text ??? | m.a.x.i.m | Помощь студентам | 8 | 31.03.2008 11:29 |
if edit1.text:='123'then | ben95 | Помощь студентам | 5 | 28.01.2008 16:29 |
из edit1.text в stringgrid. | fluer | Общие вопросы Delphi | 8 | 25.04.2007 11:23 |