Перейти к содержанию
СофтФорум - всё о компьютерах и не только

Массив в Delphi


Рекомендуемые сообщения

наполнить массив из окна Edit

Ввести строку из поля ввода:

ReadedString := MyEdit.Text;

здесь ReadedString - переменная типа String.

Если тебе надо не String, а другие типы - используй преобразования, например:

MyIntVar := StrToInt(MyEdit.Text);

здесь MyIntVar - переменная типа Integer.

Насчет ввода массива я вижу 2 способа:

1. Добавляешь счетчик номера текущего элемента. Схема ввода такая: ввел в Edit очередной элемент массива, нажал кнопку. Элемент записался в массив. Номер текущего элемента увеличился. И так столько раз, сколько элементов в массиве.

2. Вводишь сразу все элементы массива в Edit, разделяя их каким-то символом (или последовательностью символов). При этом символ-разделитель не должен встречаться в элементах массива. Например числа можно разделять пробелом, текстовые строки - брать в кавычки, разделять символом "|", вобщем фантазируй. После чего готовую строку со всеми элементами массива програмно разбираешь, делая в ней поиск символа - разделителя, и копируя подстроку от одного разделителя до другого.

А вообще для ручного ввода массива лучше использовать StringGrid.

вывести его значения в другое Edit или Label

Для вывода значения в Edit обращайся к тому же свойству:

MyEdit.Text := ReadedString; // для String

MyEdit.Text := IntToStr(ReadedString); // для Integer

Для вывода на Label используется свойство Caption

MyLabel.Caption := ReadedString;

P.S. Почитал бы ты какую-нибудь книжку по Delphi...

Ссылка на комментарий
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...