Изменение позиции ProgressBar при загрузке

[Lemo]

Как вовремя увеличения позиции прогрессбара("загрузка" часто так организована) выполнять какие то действия.

Пример:
Увеличиваем позицию бара:

i:=1;
while true do
 begin
    ProgressBar1.Position:=ProgressBar1.Position+i;
    sleep(1000);
    if ProgressBar1.Position=ProgressBar1.Max then   break;
 end;

Заносим цифры в мемо(1..100)

 for I := 1 to 100 do
begin
 memo1.lines.add(inttstr(i));
 sleep(1000);
end;

Результатом программы должно быть : при каждой новой секунде изменялся ПРбар + добавлялося число в мемо!
если мы просто напишем вышеуказаные функи, то ети два процеса будут выполняться последовательно, меня же интересует паралельно, жду советов

[Alex Cones]

Потоки? Не?
P.S. Не забывайте "освежать" прогрессбар.

[Lemo]

Можешь показать примером?!
или мой подправить:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  tnew = class(tthread)
private
s: string;



protected
procedure ppp;
procedure LOL;
procedure execute; override;
end;




var
  Form1: TForm1;
  new1, new2: tnew;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
new1 := tnew.create(true);
new1.freeonterminate := true;
new1.s := '1 thread';
new1.priority := tplowest;
new1.resume;

new2 := tnew.create(true);
new2.freeonterminate := true;
new2.s := '2 thread';
new2.priority := tplowest;
new2.resume;

end;




procedure tnew.execute;
var i:integer;
begin



new1.ppp;
new2.LOL;

end;


procedure tnew.LOL;
var i:integer;
begin



i:=1;
while true do
 begin
    form1.ProgressBar1.Position:=form1.ProgressBar1.Position+i;
    sleep(100);
    if form1.ProgressBar1.Position=form1.ProgressBar1.Max then
    break;
 end;

end;

procedure tnew.ppp;
var i:integer;
begin
for i := 1 to 10 do
 begin
   form1.memo1.lines.add(inttostr(i));
   sleep(200);

 end;
end;

end.

ЗЫ:с многопоточностью сталкиваюсь в 1-й раз!

[RUSt88]

ты пишешь, чтоб изменялось каждую секунду, а делаешь привязку к вычислительной мощности процессора, подход абсолютно неправильный!
для привязки ко времени используй Timer (и сразу отпадает необходимость потоков)

[eoln]

Можно обойтись и без класса TThread - вызывать потоки через апи. Кидаем на форму Button, Memo и ProgressBar

procedure Proc1;
var
  i: byte;
begin
  form1.ProgressBar1.Position := 0;
  form1.ProgressBar1.Max := 10;
  for i := 1 to 10 do
  begin
    form1.ProgressBar1.Position:=form1.ProgressBar1.Position+1;
    sleep(1000)
  end;
  ExitThread(0)
end;

procedure Proc2;
var
  i: byte;
begin
  for i := 1 to 10 do
  begin
    form1.memo1.lines.add(inttostr(i));
    sleep(1000)
  end;
  ExitThread(0)
end;

procedure TForm1.Button1Click(Sender: TObject);
var  
  th1, th2: cardinal;
begin  
  createthread(nil,128,@proc1,self,0,th1);
  createthread(nil,128,@proc2,self,0,th2);
end;

Для создания потока здесь используется всего одна функция createthread