Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Почему не получаеться создать поток? (https://forum.antichat.xyz/showthread.php?t=174431)

marcos 29.01.2010 16:29

Почему не получаеться создать поток?
 
Всем привет! Пишу на делфи прогу с потоком но у меня вылетает ошибка компиляции. подскажите
http://s004.radikal.ru/i206/1001/3e/ae437c9a454d.jpg

Chrome~ 29.01.2010 16:37

Строчку
Код:

while true do
замени на
Код:

while true do;

marcos 29.01.2010 16:40

Все равно таже ошибка(((

Chrome~ 29.01.2010 16:44

Выложи полный код, скажу в чем ошибка.

patcher 29.01.2010 16:44

замени
Код:

while true do
на
Код:

while true do begin end;

marcos 29.01.2010 16:47

Цитата:

Сообщение от Chrome~
Выложи полный код, скажу в чем ошибка.


Вот код потока

Код:

unit Unit3;

interface

uses
  Classes;

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

implementation

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TnewThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TnewThread }

procedure TnewThread.Execute;
begin
while true do;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;

end.


W!z@rD 29.01.2010 17:26

глазки распахни, на скрине:
TForm1.Button1Click

НTL 29.01.2010 20:51

вместо:
Цитата:

while true do
поставь
Цитата:

//

W!z@rD 29.01.2010 21:39

ага, у кого какие еще версии будут?

автар скопировал код.

до запуска дело не доходит, что вы ему тут втираете, поставь коммент, поставь begin end.

Код хорошенько посмотрите.

][yZ 29.01.2010 21:43

ТС суров... копировать в код потока TForm1.Button1Click это нечто


Время: 04:05