Combobox и Memo

← →
karlit0 © (2009-06-29 08:25) [0]

Здраствуйте, помогите пожалуйста , столкнулся с такой проблемой :
Как сделать так , чтобы при выборе какого либо Item в комбобоксе , появлялся нужный тексть в Мемо ???
например, делаю кулинарную книгу, добавляю несколько итемов в комбо бокс, а потом что делать ??? какую надо дать команду чтобы при выборе из комбобокс например "Борщ" ;D , автоматиески добавлялся Рецепт или какой либо зараннее подготовленный текс в Мемо ????
http://savepic.ru/657371.jpg
ЗЫ:
Извените за такую нубость ))))))только 3 день как с делфи познакомился :"(

← →
MBo © (2009-06-29 08:45) [1]

В обработчки события выборв в комбобоксе совершить действия, соответствующие ItemIndex

← →
AIK © (2009-06-29 09:31) [2]

procedure TForm1.ComboBox1Change(Sender: TObject); begin Memo1.Clear; Case ComboBox1.ItemIndex of 0:Memo1.Text:="Борщ ..."; 1:Memo1.Text:="Суп ..."; 2:Memo1.Text:="Блины ..."; ..... End; end;

← →
Karlit0 © (2009-06-29 09:33) [3]

ааа пасибо!!!! :)

← →
oldman © (2009-06-29 10:09) [4]

> AIK © (29.06.09 09:31) [2]
> Case ComboBox1.ItemIndex of
> 0:Memo1.Text:="Борщ ...";
> 1:Memo1.Text:="Суп ...";
> 2:Memo1.Text:="Блины ...";
> .....

Круто!

← →
oldman © (2009-06-29 10:12) [5]

procedure TForm1.ComboBox1Change(Sender: TObject); begin Memo1.Clear; Memo1.Text:=ComboBox1.Items[Combobox1.ItemIndex]; end;

← →
oldman © (2009-06-29 10:13) [6]

А...
Пардон, вопрос [0] неправильно понял.

← →
Karlit0 © (2009-06-29 23:51) [7]

от блин, люди у меня не компилируется, в редакторе когда пишет такую ошибку [Error] Material.pas(40): String literals may have at most 255 elements
как убрать это ограничение ????

← →
{RASkov} © (2009-06-29 23:59) [8]

> [7] Karlit0 © (29.06.09 23:51)
> как убрать это ограничение

"часть строки"+"еще часть"
части должны быть как и говорит компилятор менее 255 символов....

← →
Германн © (2009-06-30 01:23) [9]

> Karlit0 © (29.06.09 23:51) [7]
>
> от блин, люди у меня не компилируется, в редакторе когда
> пишет такую ошибку [Error] Material.pas(40): String literals
> may have at most 255 elements
> как убрать это ограничение ????
>

1. Написать жалобу в Эмбаркадеро. "Почему до сих пор не перешли на новый уровень в компиляторе"?
2. Не совать "текст" в строку кода. (Тёзка из Нижнего подсуропил :)
3. См. {RASkov} © (29.06.09 23:59) [8]

все спасибо всем. :)

все, все получилось!!! и какая команда за абзац отвечает ???ух.. мне уже стыдно :))))

> и какая команда за абзац отвечает

То есть?

За "абзац" отвечает только программист - и никто более. Где захочет, там и сделает. Только прежде всего надо уяснить, что подразумевается под абзацем? Шо цэ таке - "абзац"?

Текст с отступом? Траляля-ляля-ля. Вот как этот. Много-много буковок, много-много текста. Пишем, пишем, пишем, пишем. Это был первый абзац. Сейчас перейдёт на новую строку, сделаем отступ в пять символов с помощью пробелов и начнём второй абзац. Второй абзац.

ИЛИ ЖЕ

Просто обрыв текста в этой строке и его продолжение с новой строки?

Банальный перенос строки делается в Windows из двух идущих подряд символов: первого с кодом 13 и второго с кодом 10.

LF, (код 0A в шестнадцатиричной системе счисления, то бишь 10 в десятичной) — Line Feed, перевод строки. Сейчас в конце каждой строчки текстового файла ставится либо этот символ, либо CR, либо и тот и другой (CR, затем LF), в зависимости от операционной системы. Во многих языках программирования обозначается \n и при выводе текста приводит к переводу строки. CR (0D) — Carriage Return, возврат каретки. Во многих языках программирования этот символ, обозначаемый \r, можно использовать для возврата в начало строчки без перевода строки. В некоторых операционных системах этот же символ, обозначаемый Ctrl-M, ставится в конце каждой строчки текстового файла перед LF.
http://ru.wikipedia.org/wiki/Перенос_строки
http://ru.wikipedia.org/wiki/ASCII

Простым языком о том "Что такое #13#10?" рассказывается тут:
http://www.delphi.int.ru/articles/25/

А вот теперь, наконец-то, от теории переходим к практике :^)

Пример 1 - Самый корявый
Memo1.Text:="Первая строка"+#13+#10+"Вторая строка";

Пример 2 - Избавляемся от плюса в коде между кодами символов 13 и 10
Memo1.Text:="Первая строка"+#13#10+"Вторая строка";

Пример 3 - И от боковых плюсов тоже можно избавиться!
Memo1.Text:="Первая строка"#13#10"Вторая строка";

Пример 4 - Решёточки раздражают? Заменим на константу sLineBreak из модуля System.pas, правда пару плюсиков придётся вернуть ;-)
Memo1.Text:="Первая строка"+sLineBreak+"Вторая строка";

Пример 5 - Слишком уж у константы название длинное, лень набирать (или трудно запомнить)... Забабахаем свою константу :-P
const LBR=#13#10; ... Memo1.Text:="Первая строка"+LBR+"Вторая строка";

PS: надеюсь, рассказывать о том, в каком месте программы надо писать const и объявлять константы/переменные, не надо?

Если надо - делать это не будем, сделаем из этого домашнее задание: купить учебник и прочитать все азы самостоятельно! А то будет ну ОЧЕНЬ стыдно ;-)

Если нет денег купить книжку, читаем электронную литературу:
http://podgoretsky.com/ftp/Docs/Delphi/D7/d7stb/index.html

Combobox и Memo Найти похожие ветки