Forum: Object-Pascal / Delphi-Language
Delphi
by C.Schoch,
14. Mai 2006
maybe try :
procedure TFiber.execute;
var i:integer;
begin
i:=0;
repeat
Memo.Lines.Append(IntToStr(i));
wait(1) // <--- Here i changed
Suspend; //<------------HERE
Forum: Object-Pascal / Delphi-Language
Delphi
by C.Schoch,
14. Mai 2006
You have to add a Thread-Objekt to your programm and fill it with code
edit:
or view my test programm
Forum: Object-Pascal / Delphi-Language
Delphi
by C.Schoch,
14. Mai 2006
@Olli the mainform is a thread too, and bacause of this you can use the wait function too.
Here i work with events and thay you can set from everywhere in the programm.
I made a little test program:
Forum: Object-Pascal / Delphi-Language
Delphi
by C.Schoch,
14. Mai 2006
You can do this with WaitForSingleObject and an Event
Your function
procedure Haf;
var i:integer;
begin
i:=0;
repeat
//////Wait///////////////////////////////////
Forum: Object-Pascal / Delphi-Language
Delphi
by C.Schoch,
13. Mai 2006
why you dont try
i:=0;
repeat
inputbox('Enter Number', ''Enter field values '+IntToStr(i)', '') // here i changed
P:=%MyInput%; //Edit1.text;
i:=i+1;
until i=10;
?
The code waits while the Inputbox is diplayed.