Программа подвисает

[prod87]

Подскажите..

К примеру есть такая процедура:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 9999 do
begin
StringGrid1.cells[0,i]:='aaa';
Stringgrid1.RowCount:=Stringgrid1.RowCount+1;
stringgrid1.Refresh;
end;
end;

Нафимая кнопку она начинает выполняться и вся программа висит.

Можно ли как то сделать так, что бы эта процедура выполняналсь, а в то время мог спокойно просматривать собержимое стринггрид и нажимать другие кнопки?

[ZaRDaK]

Возможно проблема решится добавлением Application.ProcessMessages(); в конец цикла. Если нет - изучайте как работают потоки (Thread) в дельфях.

[grafgrial]

Ага, потоки, потоки нужно смотреть у меня такая же ерунда была (так называемое бесконечное окно)

[prod87]

Спасибо! Именно то, что надо

[eoln]

Ну накой они вам эти потоки?

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
Stringgrid1.RowCount:=Stringgrid1.RowCount+9999;
for i:=1 to 9999 do
StringGrid1.cells[0,i]:='aaa';
stringgrid1.Refresh;
end;

10 тыс. в пределах долей секунд выполняется. А вот если там миллионы будут, то тогда да, лучше в поток.

[prod87]

Для того цикла, что я в примере указал подходит, а для программы, которую я пишу не очень.В примере шаг цикла выполняется очень быстро, по этому все работает хорошо Моя же программа сканирует открытые порты с помошью tcpclient. Время выполнения процедуры tcpclient.open, на сколько я понимаю, зависит от того, как быстро удаленный адресс откликнится, либо от таймаута(если нет никакой службы на данном порте). Время отклика у меня колебалось от меньше секунды до нескольких. И в это время программа висит..
Я так понимаю мне лучше поучить Thread?))

[ZaRDaK]

Да, особенно если хотите сделать сканер многопоточным.

[DomiNick]

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 9999 do
begin
StringGrid1.cells[0,i]:='aaa';
Stringgrid1.RowCount:=Stringgrid1.RowCount+1; // это что-то непонятное... если вы хотите увеличить количество строк на 9999, то просто сделайте это перед циклом (а то 9998 лишних вызовов получается) -> StringGrid1.RowCount:=StringGrid1.RowCount+9999; // перед for
// stringgrid1.Refresh; // а из-за этого вообще тормозить будет, эту строку надо было
end;
// сюда написать... :)
end;

Не вчитывался что там с tcpclient, тока вроде antifrize можно на форму кинуть... Не то?

[prod87]

Вот написал программу с двумя потоками. Как тут сделать, что бы форма не висла?

unit Unit1;

interface

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

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


  type
   TMyThread = class(TThread)
   private
     { Private declarations }
   protected
     procedure DoWork;
     procedure Execute; override;
   end;

   type
   TMyThread1 = class(TThread)
   private
     { Private declarations }
   protected
     procedure DoWork;
     procedure Execute; override;
   end;





var
  Form1: TForm1;
  T1   : TMyThread;
  T2   : TMyThread1;
implementation

{$R *.dfm}


procedure TMyThread.Execute;
 begin

   while not Terminated do
     Synchronize(DoWork);
 end;

 procedure TMyThread.DoWork;
 var i:integer;
 begin
 for i:=0 to 9999 do
 form1.Memo1.Lines.Add('aaa');

 end;



procedure TForm1.Button1Click(Sender: TObject);
begin
T1 := TMyThread.Create(False);
T2 := TMyThread1.Create(False);
T2.Priority:=tpNormal;
T1.Priority:=tpNormal;
T2.DoWork;
T1.DoWork;
end;



procedure TMyThread1.Execute;
 begin

   while not Terminated do
     Synchronize(DoWork);
 end;

 procedure TMyThread1.DoWork;
 var i:integer;
 begin
 for i:=0 to 9999 do
 form1.Memo2.Lines.Add('aaa');
 end;







end.

[prod87]

DomiNick

Цикл там написан для примера, что бы нагрузить программу


п.с.
Что за antifrize и где взять?