kami,
ошибся в расчетах 
Запилил программку с тремя потоками, каждый поток генерирует одиннадцатибайтовые числа от 10000000000 до 10001000000 в простом цикле. Все, что сгенерировал - кидает в массив. Цикл проходит за доли секунды, даже не могу отловить этот момент.
Затем каждый поток записывает свой массив в файл.
На запись 3-х файлов по 1 млн. одиннадцатибайтовых чисел (в каждый) ушла минута. Сама запись идет долго, но я думаю, что тут можно как-нибудь оптимизировать процесс. Сделать ассемблерные вставки, использовать нестандартные функции или еще что-нибудь.
И да, процессор 6-летней давности не был загружен на всю катушку. И это все на гражданских Дельфях, в простых потоках с "синхронайзом" и записью с помощью writeln .
| Код |
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
mypot = class(TThread)
private
{ Private declarations }
protected
schet:integer;
massiv1:array[1..1010000]of integer;
massiv2:array[1..1010000]of integer;
massiv3:array[1..1010000]of integer;
procedure Execute; override;
public
flag:integer;
end;
implementation
{
Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,
Synchronize(UpdateCaption);
and UpdateCaption could look like,
procedure mypot.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end;
or
Synchronize(
procedure
begin
Form1.Caption := 'Updated in thread via an anonymous method'
end
)
);
where an anonymous method is passed.
Similarly, the developer can call the Queue method with similar parameters as
above, instead passing another TThread class as the first parameter, putting
the calling thread in a queue with the other thread.
}
uses Unit1;
{ mypot }
procedure mypot.Execute;
var f1,f2,f3:textfile;
begin
schet:=1;
//while terminated=false do
begin
Synchronize(
procedure
var i:integer;
begin
if flag=1 then
begin
for i:=10000000000 to 10001000000 do
begin
massiv1[schet]:=i;
inc(schet);
form1.Label8.caption:=inttostr(schet);
end;
form1.label1.Caption:=form1.label7.caption;
assignfile(f1,'t1.txt');
rewrite(f1);
for I := 1 to 1000000 do
writeln(f1,massiv1[i]);
closefile(f1);
form1.label4.Caption:=form1.label7.caption;
end;
if flag=2 then
begin
for i:=20000000000 to 20001000000 do
begin
massiv2[schet]:=i;
inc(schet);
end;
form1.label2.Caption:=form1.label7.caption;
assignfile(f2,'t2.txt');
rewrite(f2);
for I := 1 to 1000000 do
writeln(f2,massiv2[i]);
closefile(f2);
form1.label5.Caption:=form1.label7.caption;
end;
if flag=3 then
begin
for i:=30000000000 to 30001000000 do
begin
massiv3[schet]:=i;
inc(schet);
end;
form1.label3.Caption:=form1.label7.caption;
assignfile(f3,'t3.txt');
rewrite(f3);
for I := 1 to 1000000 do
writeln(f3,massiv3[i]);
closefile(f3);
form1.label6.Caption:=form1.label7.caption;
end;
end
);
end;
end;
end.
|
|
)
