Класс TThread

[Анастаська]

Один подпроцесс добавляет строки в ListBox1. А другой подпроцесс переносит их из ListBox1 в ListBox2. Помогите пожалуйста

[Zer0]

написать за Вас всю программу или все таки ПОМОЧЬ?

[Анастаська]

Ну в общем я не знаю как это сделать. а нужно срочно.очень очень

[Zer0]

Внизу страницы есть ссылки на похожие темы, в целом в них достаточно информации, чтобы написать нужную программу
От себя добавлю - не забывать использовать Synchronize, в противном случае поток не сможет работать с листбоксами

[Son Of Pain]

Помочь ему переносить их? )

[Анастаська]

Ну какие все оригинальные то))))))))

[Zer0]

Son Of Pain, боюсь надорваться :D

[Анастаська]

Да я сегодня первый раз услышала про это. а завтра надо сдать(((((((( а разобраться толком не могу((((((((((((((((((

[Zer0]

набираю по памяти, так что не гарантирую нормальную работу

....... //тут начало, заголовки, подлключение молдулей итд
type
  TThreadOne = Class(TThread)
   private
   a:integer;
   procedure AddToLB;
   public
   procedure Execute; override;
end;
  TThreadTwo = Class(TThread)
   private
   procedure MoveFromLB;
   public
   procedure Execute; override;
end;

implementation


procedure TThreadOne.execute;
begin
randomize;
while (true) do begin //включаем бесконечный цикл
 a:=random(1000000);
 Synchronize(AddToLB);
end;
end;

procedure TThreadOne.AddToLB;
begin
Form1.ListBox1.Items.Add(IntToStr(a));
end;

procedure TThreadTwo.execute;
begin
while (true) do begin //включаем бесконечный цикл
 sleep(1000); //ждем секунду
 Synchronize(MoveFromLB);
end;
end;

procedure TThreadTwo.MoveFromLB;
var i:integer;
begin
if Form1.ListBox2.Items.Count<Form1.ListBox1.Items.Count then
for i:=Form1.ListBox2.Items.Count to Form1.ListBox1.Items.Count-1 do
Form1.ListBox2.Items.Add(Form1.ListBox1.Items[i]);
end;

.....//тут все остальные процедуры на форме

procedure TForm1.Button1Click(Sender:TObject);//обработчик кнопки, ну или еще как либо вызывать это
var T1:TThreadOne; T2:TThreadTwo;
begin
T1:=TThreadOne.Create(true);
T1.FreeOnTerminate:=true;
T1.Resume;
T2:=TThreadTwo.Create(true);
T2.FreeOnTerminate:=true;
T2.Resume;
end;

только тут не перенос, а копирование, если разберетесь с этим кодом, не составит труда сделать перенос (вместо условия - принудительное добавление во второй и последующее удаление из первого)

[Анастаська]

Спасибо огроменное))))))))))))))))пошла разбираться)))))))