Класс TThread - Помощь студентам - Страница 2

Анастаська · 15.11.2011, 15:02

Вроде работает всё))))))спасибо еще раз

Анастаська · 15.11.2011, 15:14

А можно еще вопрос для того чтобы переносить их можно использовать
procedure TThreadTwo.MoveFromLB;
var i:integer;
begin
if Form1.ListBox2.Items.Count<Form1.Li stBox1.Items.Count then
for i:=Form1.ListBox2.Items.Count to Form1.ListBox1.Items.Count-1 do
Begin
Form1.ListBox2.Items.Add(Form1.List Box1.Items[i]);
Form1.ListBox1.Items.Delete(Form1.L istBox1.Items[i]);
end;
но тогда выходит ошибка: несовместимость типов.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа с TThread	t2skler	Общие вопросы Delphi	20	16.02.2011 19:14
Описать класс-родитель и класс-потомок. Delphi 7	Andrew_M	Помощь студентам	0	15.01.2011 14:42
TThread	Vladislav_I	Общие вопросы Delphi	0	30.04.2010 19:47
TThread и GUI	Freezer	Общие вопросы Delphi	8	05.08.2009 11:50
использование TThread	amandra	Общие вопросы Delphi	6	03.05.2008 03:13

15.11.2011, 15:02	#11
Анастаська Новичок Джуниор Регистрация: 15.11.2011 Сообщений: 7	Вроде работает всё))))))спасибо еще раз

15.11.2011, 15:14	#12
Анастаська Новичок Джуниор Регистрация: 15.11.2011 Сообщений: 7	А можно еще вопрос для того чтобы переносить их можно использовать procedure TThreadTwo.MoveFromLB; var i:integer; begin if Form1.ListBox2.Items.Count<Form1.Li stBox1.Items.Count then for i:=Form1.ListBox2.Items.Count to Form1.ListBox1.Items.Count-1 do Begin Form1.ListBox2.Items.Add(Form1.List Box1.Items[i]); Form1.ListBox1.Items.Delete(Form1.L istBox1.Items[i]); end; но тогда выходит ошибка: несовместимость типов.