Помогите С Управлением Listbox

Андрей · 18 Янв 2016

Можете помочь понять работу компонента ListBox
Я вот такую тему сделал, хочу использовать его для работы с вебом. Но пока хочу понять как он работает.

Это пример того что мне нужно. То есть я хочу добавлять разные задания в очередь, чтобы они выполнялись по очереди.
К примеру: Если в строке есть слово "Крюк" значит выполнять этот код->
Когда нажимаем старт, то эта первая строка удаляется и в прогрессе появляется здоровье этого босса. После удаления первой строки, вторая строка становится первой но ждет своей очереди пока выполняется первое задание.
Как нужно написать код который будет выполнятся в том случае, если в первой строке заданно слово на которое этот код будет активироваться.?

Есть еще один вопрос, это чтобы не создавать новую тему. Тоже по ListBox.
Можно ли сделать так, чтобы разные задания которые находятся в очереди были разного цвета? То есть каждый босс своего цвета.

Lomanu4 · 18 Янв 2016

Андрей написал(а):
Можете помочь понять работу компонента ListBox
Я вот такую тему сделал, хочу использовать его для работы с вебом. Но пока хочу понять как он работает.

Это пример того что мне нужно. То есть я хочу добавлять разные задания в очередь, чтобы они выполнялись по очереди.
К примеру: Если в строке есть слово "Крюк" значит выполнять этот код->
Когда нажимаем старт, то эта первая строка удаляется и в прогрессе появляется здоровье этого босса. После удаления первой строки, вторая строка становится первой но ждет своей очереди пока выполняется первое задание.
Как нужно написать код который будет выполнятся в том случае, если в первой строке заданно слово на которое этот код будет активироваться.?

Есть еще один вопрос, это чтобы не создавать новую тему. Тоже по ListBox.
Можно ли сделать так, чтобы разные задания которые находятся в очереди были разного цвета? То есть каждый босс своего цвета.

пробуй делать через if,то есть if kruck=true then
используем код под крюк
крюк нужно установить в булевое значение

Андрей · 18 Янв 2016

Lomanu4 написал(а):
пробуй делать через if,то есть if kruck=true then
используем код под крюк
крюк нужно установить в булевое значение

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

Lomanu4 · 18 Янв 2016

Андрей написал(а):
Сейчас как раз пытаюсь это сделать, а еще не понятно как сделать чтобы строки были разного цвета. То есть каждому боссу свой цвет. Вообще мне нужны разные цвета для лога, чтобы понятно было какое задание запустилось и какое завершилось.

Очень легко просто задавай мемо лайнс колор

Sascha · 18 Янв 2016

Код:

var
i:Integer;
begin
for i := 0 to ListBox1.Items.Count-1 do
begin
   Memo1.Lines.Add('действие '+ListBox1.Items[i]); //действие
   Sleep(1000); //задержка действия
end;

Lomanu4 · 18 Янв 2016

Андрей написал(а):
Сейчас как раз пытаюсь это сделать, а еще не понятно как сделать чтобы строки были разного цвета. То есть каждому боссу свой цвет. Вообще мне нужны разные цвета для лога, чтобы понятно было какое задание запустилось и какое завершилось.

вот видишь тебе уже написали всю программу)

Андрей · 19 Янв 2016

Sascha написал(а):

Код:

var
i:Integer;
begin
for i := 0 to ListBox1.Items.Count-1 do
begin
   Memo1.Lines.Add('действие '+ListBox1.Items[i]); //действие
   Sleep(1000); //задержка действия
end;

Не получается. Теперь строка не добавляется в ListBox

Sascha · 19 Янв 2016

Андрей написал(а):
Не получается. Теперь строка не добавляется в ListBox

это не для добавления а для выполнения

Андрей · 19 Янв 2016

Sascha написал(а):
это не для добавления а для выполнения

Да я понял но то что я там сделал теперь не работает, знаний вообще 0

Lomanu4 · 19 Янв 2016

Андрей написал(а):
Да я понял но то что я там сделал теперь не работает, знаний вообще 0

Что именно не работает?

Sascha · 19 Янв 2016

Андрей написал(а):
Да я понял но то что я там сделал теперь не работает, знаний вообще 0

а что ты сделал что она перистала добавлять

Андрей · 19 Янв 2016

Lomanu4 написал(а):
Что именно не работает?

Этот код нужно было добавить в кнопку старт?

Код:

var
i:Integer;
begin
for i := 0 to ListBox1.Items.Count-1 do
begin
   Memo1.Lines.Add('Крюк'+ListBox1.Items[i]);
   Sleep(1000);
end;

Sascha · 19 Янв 2016

нет несовсем то ты скопировал весь код и добавка у тебя берётся с ListBox по очереди и заносится в Memo

Lomanu4 · 19 Янв 2016

Андрей написал(а):
Этот код нужно было добавить в кнопку старт?

Код:

var i:Integer; begin for i := 0 to ListBox1.Items.Count-1 do begin Memo1.Lines.Add('Крюк'+ListBox1.Items[i]); Sleep(1000); end;

Ну мы же не знаем как работает твой софт,наверное на какого то персонажа

Sascha · 19 Янв 2016

Андрей · 19 Янв 2016

Lomanu4 написал(а):
Ну мы же не знаем как работает твой софт,наверное на какого то персонажа

Pchass мой софт просто с компонентами на форме, а в коде я просто написал ListBox1.Items.Add('Крюк');

Sascha · 19 Янв 2016

Андрей написал(а):
Pchass мой софт просто с компонентами на форме, а в коде я просто написал ListBox1.Items.Add('Крюк');

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.Add('Крюк') ;
end;

Андрей · 19 Янв 2016

Sascha написал(а):
Посмотреть вложение 275

Нет не то, я такое делать умею. https://cloud.mail.ru/public/9Lec/Q7ZouAEHc
Вот ссылка на мой проект, то что я хочу создать. В будущем.

Sascha · 19 Янв 2016

а что имено там не заносится

Андрей · 19 Янв 2016

Sascha написал(а):
а что имено там не заносится

Вот посмотри мой проект, я скинул все с исходником. Там посмотришь и примерно может поймешь что я хочу научится делать. https://cloud.mail.ru/public/9Lec/Q7ZouAEHc