Forum: Object-Pascal / Delphi-Language
Delphi
by sk.Silvia,
14. Mai 2006
ok, thank you all, i realized my mistake thanks your program :kiss: iam so happy, thats exactly what i wanted to make :)) (see attachment)
well done, problem solved :party:
Forum: Object-Pascal / Delphi-Language
Delphi
by sk.Silvia,
14. Mai 2006
but by me the Suspend; dont stop the threat, it do nothing(likle i could exclude Suspend from the code and it would be the same) :(
but i need to suspend the threat in the repeat, so i cannot suspend it in Form1
procedure TFiber.execute;
var i:integer;
begin
i:=0;
repeat
Forum: Object-Pascal / Delphi-Language
Delphi
by sk.Silvia,
14. Mai 2006
cause i dont want that other forms are opened, i want just to stop the process, work with some other procedures and then by cliking resume work with the stoped procedure again
but this codes dont stopes on Suspend, but counts directly up to 3
type TFiber=class(TTHread)
Memo:TMemo;
procedure execute; override;
procedure doit;
constructor Create(iMemo:TMemo);
Forum: Object-Pascal / Delphi-Language
Delphi
by sk.Silvia,
14. Mai 2006
but how? :oops:
type TFiber=class(TTHread)
procedure execute; override;
end;
procedure TFiber.execute;
var i:integer;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by sk.Silvia,
14. Mai 2006
thanks for your help, threat are looking good, but what am i making wrong, why does it do - nothing - ?
var fiber:TThread;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
fiber:=TTHread.Create(false);
//fiber.Synchronize(???);
Forum: Object-Pascal / Delphi-Language
Delphi
by sk.Silvia,
14. Mai 2006
but thats not exactly what i wanted... i will make smt like this // StopProcedure(Haf); and ContinueProcedure(Haf); this procedures dont exist, but i will make smt like this
procedure Haf;
var i:integer;
begin
i:=0;
repeat
StopProcedure(Haf); //this stops the procedure, but local variables, nothing will be lost, smt like it freezes the procedure for a while
...
Forum: Object-Pascal / Delphi-Language
Delphi
by sk.Silvia,
13. Mai 2006
ok thanks, thats it, but can i make my custom input box?
Forum: Object-Pascal / Delphi-Language
Delphi
by sk.Silvia,
13. Mai 2006
hi there, lets say i have this simple code
i:=0;
repeat
i:=i+1;
until i=10;
and i will enter numbers from a edit component - i write a number to edit and press the button, then the cycle continues
like :