Формирование массива цветов

@trancef · Регистрация: 09.04.2014

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

Создать глобальный массив из 8 элементов и при нажатии на какую-либо панель заносите данные в массив: нажали на один цвет - занесли его в mass[1], другой - mass[2] и т.д.

@FIL · 30.04.2014, 16:05

Не по теме:

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

Вот вам и будет

А оно нам надо?

@trancef · 30.04.2014, 16:06 **[ТС]**

опечатка

@mss · 30.04.2014, 16:07

Delphi

1	var i: Integer = 1; // глобаьная переменная;

В обратотчике события OnClick панели:

Delphi

if i <= 8 then
begin
  mass[i] := TControl(sender).Color;
  Inc(i);
end;

@trancef · 30.04.2014, 16:09 **[ТС]**

А как после этого вывести данную комбинацию ? после каждой комбинации будет запрос построчно в тхт файл и вывод текста на мемо.

@mss · 30.04.2014, 16:15

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

в тхт файл и .. мемо

А что конкретно ты там ожидаешь увидеть ?
Приведи пример ..

@trancef · 30.04.2014, 16:22 **[ТС]**

Примет вот , это тест Люшера 8 цветов это 8 панелей , после того как их поочередно нажали они записались в массив и вот эта последовательность будет иметь свой результат , например Красний, Жолтий , коричневий , Синий , Голубой , Чорний , фиолетовий , Зеленый означает "Плохое состояние" а другая последовательность другое значение и что бы было проще я думаю брать ети значение из тхт файла построчно закрепить их к каждому методу последовательностей и выводить на мемо. Если у вас есть другое предложение как это сделать проще , буду рад выслушать!

@mss · 30.04.2014, 16:34

Ну тогда запиши в св-во Caption каждой из панелей текст с названием соответствующего ей цвета

Тогда запись в массив будет выглядеть

Delphi

1	mass[i] := TPanel(sender).Caption;

Остается в цикле пробежать по эл-там массива и вывести каждый в стринглист
Тогда содержимое сформированного стринглиста можено будет получить чтением св-ва CommaText

Хотя накой шиш тут нужен массив, если сразу можно в стринглист записывать, - это одному тебе и твоему преподу известно)

@trancef · 30.04.2014, 16:36 **[ТС]**

Можешь приблизительно описать сам цикл?

@mss · 30.04.2014, 17:01

Delphi

1 2	for i := 1 to 8 do StringList.Add(mass[i])

@trancef · 30.04.2014, 17:40 **[ТС]**

А можешь показать как стринг лист записывать?

@mss · 30.04.2014, 19:48

Это тебе домашнее задание

@trancef · 01.05.2014, 17:46 **[ТС]**

Это тебе домашнее задание

может поможешь разобраться а то диплом горит , скоро сдавать а программа не работает!(

@trancef 0 / 0 / 1 Регистрация: 09.04.2014 Сообщений: 17
	30.04.2014, 17:40 [ТС]	11
	А можешь показать как стринг лист записывать? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	30.04.2014, 19:48	12
	Это тебе домашнее задание 0

@trancef 0 / 0 / 1 Регистрация: 09.04.2014 Сообщений: 17
	01.05.2014, 17:46 [ТС]	13
	Это тебе домашнее задание может поможешь разобраться а то диплом горит , скоро сдавать а программа не работает!( 0

@trancef 0 / 0 / 1 Регистрация: 09.04.2014 Сообщений: 17
		1
	Формирование массива цветов 30.04.2014, 16:01. Показов 1804. Ответов 12 Метки нет (Все метки) Создать глобальный массив из 8 элементов и при нажатии на какую-либо панель заносите данные в массив: нажали на один цвет - занесли его в mass[1], другой - mass[2] и т.д. 0

@FIL
	30.04.2014, 16:05 #2
	Не по теме: Сообщение от trancef Вот вам и будет А оно нам надо? 0

@trancef 0 / 0 / 1 Регистрация: 09.04.2014 Сообщений: 17
	30.04.2014, 16:06 [ТС]	3
	опечатка 0

@trancef 0 / 0 / 1 Регистрация: 09.04.2014 Сообщений: 17
	30.04.2014, 16:09 [ТС]	5
	А как после этого вывести данную комбинацию ? после каждой комбинации будет запрос построчно в тхт файл и вывод текста на мемо. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	30.04.2014, 16:15	6
	Сообщение от trancef в тхт файл и .. мемо А что конкретно ты там ожидаешь увидеть ? Приведи пример .. 0

@trancef 0 / 0 / 1 Регистрация: 09.04.2014 Сообщений: 17
	30.04.2014, 16:22 [ТС]	7
	Примет вот , это тест Люшера 8 цветов это 8 панелей , после того как их поочередно нажали они записались в массив и вот эта последовательность будет иметь свой результат , например Красний, Жолтий , коричневий , Синий , Голубой , Чорний , фиолетовий , Зеленый означает "Плохое состояние" а другая последовательность другое значение и что бы было проще я думаю брать ети значение из тхт файла построчно закрепить их к каждому методу последовательностей и выводить на мемо. Если у вас есть другое предложение как это сделать проще , буду рад выслушать! 0

@trancef 0 / 0 / 1 Регистрация: 09.04.2014 Сообщений: 17
	30.04.2014, 16:36 [ТС]	9
	Можешь приблизительно описать сам цикл? 0

Опции темы