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

[Андрей]

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

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

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

 

[Lomanu4]

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

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

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

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

 

[Андрей]

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

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

 

[Lomanu4]

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

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

 

[Sascha]

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

 

[Lomanu4]

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

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

 

[Андрей]

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]

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

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

 

[Андрей]

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

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

 

[Lomanu4]

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

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

 

[Sascha]

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

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

 

[Андрей]

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

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

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

 

[Sascha]

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

 

[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]

 

[Андрей]

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

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

 

[Sascha]

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

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

 

[Андрей]

Посмотреть вложение 275

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

 

[Sascha]

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

 

[Андрей]

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

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