Как сделать, чтобы при выборе определенной строки в ComboBox, текстовое содержимое отображалось на memo?

@AleksPlex · Регистрация: 29.09.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток, форумчане
Подскажите, как сделать, чтобы при выборе определенной строки в ComboBox, текстовое содержимое отображалось на memo, а некая переменная принимала значение присвоенное этой строке?

@AleksPlex · 01.10.2012, 22:36 **[ТС]**

Сообщение от angstrom

Немного смотрю и сам исправил, но забыл:
1. Назначить ComboBox-ам 38, 39, 40 один обработчик OnChange. Назначено только для 38-го.
2. Не выставил свойство Tag им же, должен быть по нарастающей начиная с 38-го - 1, 2,3.
Дальше объясняй что и как делать ещё.

таги проставил
OnChange в инспекторе объектов или прописать?
и еще насчет комбо 38, 39, 40: как оставить первую строку всегда доступной для выбора?

01.10.2012, 22:51

В ObjectInspector-е для ComboBox-ов 38, 39, 40 выбрать один обработчик ComboBox38Change.
В процедурах ComboBox38Change, Button1Click заменить циклы, не с 0, а с 1.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.ComboBox38Change(Sender: TObject);
...
  for I := 1 to High(Snar) do
    if (TComboBox(Sender).Tag = snar[I].Tag) and (snar[I].Tag <> 0) then
...
  for I := 1 to High(Snar) do
    if TComboBox(Sender).Items.Strings[TComboBox(Sender).ItemIndex] = snar[I].St then
...
end;
...
procedure TForm1.Button1Click(Sender: TObject);
...
  for I := 1 to High(snar) do
    if ComboBox38.Items.Strings[ComboBox38.ItemIndex] = snar[I].St then
...
  for I := 1 to High(Snar) do
    if ComboBox39.Items.Strings[ComboBox39.ItemIndex] = snar[I].St then
...
  for I := 1 to High(Snar) do
    if ComboBox40.Items.Strings[ComboBox40.ItemIndex] = snar[I].St then
...

тогда строка 'Оборудование отсутствует' не будет участвовать в выборе и просчёте.

@AleksPlex · 01.10.2012, 23:02 **[ТС]**

Сообщение от angstrom

В ObjectInspector-е для ComboBox-ов 38, 39, 40 выбрать один обработчик ComboBox38Change.
В процедурах ComboBox38Change, Button1Click заменить циклы, не с 0, а с 1.
тогда строка 'Оборудование отсутствует' не будет участвовать в выборе и просчёте.

но не считает все равно

01.10.2012, 23:06

Как всё запущено.

Расчётов у тебя никаких в проекте нет.

@AleksPlex · 01.10.2012, 23:11 **[ТС]**

Delphi
1
2
3
4
5
6
7
 T1 := KomBB[ComboBox4.ItemIndex];
 I1 := NavBB[ComboBox8.ItemIndex];
 H1 := MexBB[ComboBox12.ItemIndex];
 G1 := ZarBB[ComboBox16.ItemIndex];
 A:=T1+I1+H1+G1;
if A < 400 then A := 0;
 Memo2.text:=IntToStr(A);

вот если это убрать сумма показывается, так в чем тут ошибка?

01.10.2012, 23:17

не

Delphi
1
  Memo1.Text := IntToStr(A);

а

Delphi
1
  Memo1.Lines.Add(IntToStr(A));

иначе затирается ранее введённая информация.

@AleksPlex · 01.10.2012, 23:21 **[ТС]**

Сообщение от angstrom

не

Delphi
1
  Memo1.Text := IntToStr(A);

а

Delphi
1
  Memo1.Lines.Add(IntToStr(A));

иначе затирается ранее введённая информация.

все исправил, вроде в пашет

01.10.2012, 23:33

Сообщение от AleksPlex

все исправил, вроде в пашет

Конечно нет, нужно ещё исправить так:

Delphi
1
2
3
4
5
  T1 := KomBB[StrToIntDef(StringReplace(ComboBox1.Items.Strings[ComboBox1.ItemIndex], '%', '', [rfReplaceAll]), 0)];
  I1 := NavBB[StrToIntDef(StringReplace(ComboBox2.Items.Strings[ComboBox2.ItemIndex], '%', '', [rfReplaceAll]), 0)];
  H1 := MexBB[StrToIntDef(StringReplace(ComboBox3.Items.Strings[ComboBox3.ItemIndex], '%', '', [rfReplaceAll]), 0)];
  G1 := ZarBB[StrToIntDef(StringReplace(ComboBox4.Items.Strings[ComboBox4.ItemIndex], '%', '', [rfReplaceAll]), 0)];
  A := T1 + I1 + H1 + G1;

@AleksPlex · 02.10.2012, 02:21 **[ТС]**

Сообщение от angstrom

Конечно нет, нужно ещё исправить так:

Delphi
1
2
3
4
5
  T1 := KomBB[StrToIntDef(StringReplace(ComboBox1.Items.Strings[ComboBox1.ItemIndex], '%', '', [rfReplaceAll]), 0)];
  I1 := NavBB[StrToIntDef(StringReplace(ComboBox2.Items.Strings[ComboBox2.ItemIndex], '%', '', [rfReplaceAll]), 0)];
  H1 := MexBB[StrToIntDef(StringReplace(ComboBox3.Items.Strings[ComboBox3.ItemIndex], '%', '', [rfReplaceAll]), 0)];
  G1 := ZarBB[StrToIntDef(StringReplace(ComboBox4.Items.Strings[ComboBox4.ItemIndex], '%', '', [rfReplaceAll]), 0)];
  A := T1 + I1 + H1 + G1;

проблема лишь тут

Delphi
1
2
3
4
5
6
M := (M1+M2+M3)/1000 + 60.83;    // Ðàñ÷åò ìàññû 
     Memo1.Lines.Text := IntToStr(M);
     if CheckBox1.Checked then D10 := 10;
     H1 := MexVirt[ComboBox25.ItemIndex]; // Ðàñ÷åò ñêîðîñòè
     W := 100+ D10;
     Memo2.Lines.Text := IntToStr(W);

[Error] Unit2.pas(276): There is no overloaded version of 'IntToStr' that can be called with these arguments

M, W : Real;

02.10.2012, 03:28

Сообщение от AleksPlex

проблема лишь тут

Похоже ты не желаешь прислушиваться к советам и упрямо штампуешь одну ошибку за другой.
Что по-твоему получит переменная в этой строке и 3 последующих?

Delphi
1
  T1 := KomBB[ComboBox4.ItemIndex]

подумай на досуге.

И с чего вдруг здесь

Delphi
1
  Memo2.Lines.Text := IntToStr(W);

идёт попытка преобразования числа с плавающей запятой функцией IntToStr. А присвоение информации TMemo через Text? Несколькими постами выше было сказано, что таким образом вся предыдушая информация будет затёрта.

@AleksPlex · 02.10.2012, 06:42 **[ТС]**

Сообщение от angstrom

Похоже ты не желаешь прислушиваться к советам и упрямо штампуешь одну ошибку за другой.
Что по-твоему получит переменная в этой строке и 3 последующих?

Delphi
1
  T1 := KomBB[ComboBox4.ItemIndex]

подумай на досуге.

И с чего вдруг здесь

Delphi
1
  Memo2.Lines.Text := IntToStr(W);

идёт попытка преобразования числа с плавающей запятой функцией IntToStr. А присвоение информации TMemo через Text? Несколькими постами выше было сказано, что таким образом вся предыдушая информация будет затёрта.

а я выбрался из этого так Memo.Lines.Add(FloatToStr(A))

02.10.2012, 10:50

Сообщение от AleksPlex

а я выбрался из этого так Memo.Lines.Add(FloatToStr(A))

Как знаешь, я "умываю руки".

Новые блоги и статьи Все статьи Все блоги /
[golang] Двоичная куча, min-heap alhaos 20.05.2026 Двоичная куча Двоичная куча — структура данных, которая всегда держит самый важный элемент наготове. Представьте очередь к хилеру в игре, и очередь из игроков в приоритете те у кого меньше. . .	[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .

@AleksPlex 0 / 0 / 0 Регистрация: 29.09.2012 Сообщений: 37

	Как сделать, чтобы при выборе определенной строки в ComboBox, текстовое содержимое отображалось на memo? 29.09.2012, 03:01. Показов 10668. Ответов 71 Метки нет (Все метки) Доброго времени суток, форумчане Подскажите, как сделать, чтобы при выборе определенной строки в ComboBox, текстовое содержимое отображалось на memo, а некая переменная принимала значение присвоенное этой строке? 0