|
|
| Тема |
 Delphi 5 [re: Mиpaka] |
|
| Автор |
andrew_nikoloff (bugbuster) |
|
| Публикувано | 12.03.08 15:35 |
|
|
|
Нещо не е в ред тази работа. Ето един примерен код, който отговаря на твоето описание:
type
TDummyThread=class(TThread)
protected
procedure Execute; override;
public
constructor Create(CreateSuspended: Boolean);
end;
...
constructor TDummyThread.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
FreeOnTerminate := True;
end;
procedure TDummyThread.Execute;
var
i, j: Integer;
s: String;
begin
while not Terminated do
begin
for i := 0 to 1000000 do
begin
if Terminated then
Exit;
s := IntToStr(i);
j := StrToInt(s);
if i <> j then
s := 'Hm, strange...';
end;
Exit;
end;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i := 1 to 20 do
TDummyThread.Create(False);
end;
Това пуснато на двуядрена машина натоварва равномерно и двете ядра.
Не мисля, че проблема е в Делфи, но нека да видим кода...
| |
| |
| 
|
|
