abdelmalek
05-09-2010, 10:19 PM
السلام عليكم ورحمة الله وبركاته
بعدا مشاهدتي لموضوع thread الدي وضعه الاخ TF6M راودني سؤال ؟
مثلا قمنا بانشاء thraed كما يلي :
TMyThread = Class(TThread)
Private
Procedure showinfo;
Protected
Procedure Execute; override;
end;
initialization
Procedure TMyThread.showinfo;
Begin
Memo1.Lines.Add('Hello Delphi4arabe');
end;
Procedure TMyThread.Execute;
Begin
while not Terminated do
begin
Synchronize(showinfo);
end;
end;
end.
السؤال : ما فائدة هاته التعليمة Synchronize(showinfo);
بالتوفيق للجميع
في امان الله
بعدا مشاهدتي لموضوع thread الدي وضعه الاخ TF6M راودني سؤال ؟
مثلا قمنا بانشاء thraed كما يلي :
TMyThread = Class(TThread)
Private
Procedure showinfo;
Protected
Procedure Execute; override;
end;
initialization
Procedure TMyThread.showinfo;
Begin
Memo1.Lines.Add('Hello Delphi4arabe');
end;
Procedure TMyThread.Execute;
Begin
while not Terminated do
begin
Synchronize(showinfo);
end;
end;
end.
السؤال : ما فائدة هاته التعليمة Synchronize(showinfo);
بالتوفيق للجميع
في امان الله