Realtime Input? Thread?

**sk.Silvia**

thanks for your help, threat are looking good, but what am i making wrong, why does it do - nothing - ?

Delphi-Quellcode:

			var fiber:TThread;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

  begin

  fiber:=TTHread.Create(false);

  //fiber.Synchronize(???);

  i:=0;

  repeat

    Memo1.Lines.Append(IntToStr(i));

    fiber.Suspend;

    i:=i+1;

  until i=3;

  fiber.Terminate;

  end;

procedure TForm1.Button2Click(Sender: TObject);

  begin

  fiber.Resume;

  end;

Realtime Input? Thread?

Re: Realtime Input? Thread?

Forumregeln