1

При помощи компонента Edit ввести в компоненты ListBox слова: в первый – “Я”, “смогу”, “написать”, “любую”, “программу”; во второй – “Хакер”, “все”, “программы”, “переделать”, “стремится”. При помощи кода связать оба компонента ListBox между собой так, чтобы при выборе любого по порядку слова в одном приводило к выбору такого же по порядку слова в другом компоненте, а также оба этих слова появлялись в компоненте Memo (на новой строке).

7
  • 1
    Какие еще иди**ы назначают экзамены по Delphi - они что с ума посходили? Это же мертвый язык!
    – Barmaley
    1 июн 2012 в 12:36
  • 3
    @Barmaley Ваш комментарий огорчает разработчиков Skype. 1 июн 2012 в 12:37
  • Всегда подозревал, что со скайпом что-то неладно :)
    – Barmaley
    1 июн 2012 в 12:48
  • 1
    @Barmaley, вас, наверное, обманули. По рейтингу за прошлый год, он по некоторым данным, даже вырос в популярности. См. тут
    – Dex
    1 июн 2012 в 13:05
  • @Dex, у TIOBE несколько сомнительная методика оценки. Скорее всего "популярность" им накрутил небольшой приток нубов, слетевшихся на RAD-сахар, в то время как лояльные пользователи понемногу сваливают.
    – karmadro4
    1 июн 2012 в 14:41

1 ответ 1

1

У Edit'а:

Edit.Text := someVar; // пишем someVar в Edit
someVar := Edit.Text; // читаем с Edit в someVar

У ListBox'a:

ListBox.Add(someVar); // добавление нового элемента с текстом someVar
selectedItem := ListBox.ItemIndex; // № выбранного элемента (начиная с нуля)
someVar := ListBox.Items[selectedItem]; // значение элемента selectedItem

У Memo:

Memo.Add(someVar); // добавление новой строчки с текстом someVar
someVar := Memo.Lines[lineIndex]; // значение строки lineIndex
someVar := Memo.Text; // читаем весь текст с Memo в someVar
Memo.Text := someVar; // записываем someVar в Memo (перезапишется всё)

Если понадобится текущая строка в Memo, то надо смотреть в сторону CaretPos.

А готовое решение подготовьте сами - это поможет не забыть всё на экзамене. Удачи!

2
  • 2
    Не кормите, вы отнимаете хлеб у преподавателей и создаёте лишную работу отделам кадров.
    – karmadro4
    1 июн 2012 в 12:32
  • 2
    Хорошо, не буду :)
    – xEdelweiss
    1 июн 2012 в 12:42

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.