Я подумал глупо выводит в секундах, выведем всё и целиком ! Что бы было нагляднее
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Threading, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure NewThread(const s: TStrings; Index, Offset, Max: NativeUInt);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.NewThread(const s: TStrings; Index, Offset, Max: NativeUInt);
function GetOffsetStings(): TArray<string>;
var
i: NativeUInt;
begin
SetLength(Result, Max);
for i := 0 to Max - 1 do
Result[i] := s.Strings[Offset + i];
end;
var
Arr: TArray<string>;
i: Integer;
begin
Arr := GetOffsetStings();
Memo3.Lines.Add('Thread ' + Index.ToString + ' lines : ');
for i := Low(Arr) to High(Arr) do
Memo3.Lines.Add(Arr[i]);
Memo3.Lines.Add('');
TThread.CreateAnonymousThread(
procedure()
var
i: Cardinal;
begin
for i := Low(Arr) to High(Arr) do
begin
TThread.Synchronize(nil,
procedure procedure parseIp(const s: string; out ip, port: string);
var
i: Integer;
b: Boolean;
begin
b := false;
for i := Low(s) to High(s) do
begin
if not b then
if s[i] = ':' then
begin
b := true;
continue;
end;
if b then
port := port + s[i]
else
ip := ip + s[i];
end;
end;
var
ip, port: string;
begin
parseIp(Arr[i], ip, port);
Memo2.Lines.Add(Double(Time).ToString + ' - ' + Index.ToString + ' = ' + ip + ':' + port);
end);
end;
end).start;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i, rest, num, sum, count, NumThreads: Integer;
begin
NumThreads := 8;
num := Memo1.Lines.count;
rest := num mod NumThreads;
sum := num - rest;
count := sum div NumThreads;
for i := 0 to NumThreads - 1 do
begin
dec(sum, count);
NewThread(Memo1.Lines, i, i * count, count);
if (sum <= 0) and (rest >= 1) then
NewThread(Memo1.Lines, i + 1, (i * count) + count, rest);
end;
end;
end.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
0,988730868055556 - 0 = 246.152.137.89:2012
0,988730868055556 - 1 = 110.222.57.40:3929
0,988730868055556 - 2 = 184.117.125.112:5145
0,988730868055556 - 3 = 101.8.205.218:7633
0,988730868055556 - 4 = 8.116.122.87:6327
0,988730868055556 - 5 = 190.7.224.17:2363
0,988730868055556 - 6 = 157.197.224.163:2518
0,988730868055556 - 7 = 119.250.193.22:7074
0,988731053240741 - 8 = 161.193.179.175:6777
0,988731053240741 - 0 = 18.197.250.246:5569
0,988731053240741 - 1 = 230.65.168.71:6427
0,988731053240741 - 2 = 226.250.195.201:4020
0,988731134259259 - 3 = 41.77.211.116:6985
0,988731134259259 - 4 = 210.254.98.82:2229
0,988731134259259 - 5 = 244.14.44.67:4514
0,988731134259259 - 6 = 196.15.222.12:7911
0,988731134259259 - 7 = 222.110.147.21:8809
0,988731134259259 - 8 = 188.150.69.240:1046
0,988731134259259 - 0 = 90.75.62.52:5740
0,988731319444444 - 1 = 33.50.110.139:7909
0,988731319444444 - 2 = 182.210.114.32:2521
0,988731319444444 - 3 = 137.63.40.243:8241
0,988731319444444 - 4 = 31.131.147.82:1566
0,988731319444444 - 5 = 131.253.109.136:3923
0,988731493055556 - 6 = 162.172.45.54:5398
0,988731493055556 - 7 = 24.143.76.33:5756
0,988731493055556 - 8 = 223.238.33.146:8986
0,988731493055556 - 0 = 15.196.162.148:1453
0,988731493055556 - 1 = 238.165.4.197:4998
0,988731493055556 - 2 = 194.144.15.175:8174
0,988731678240741 - 3 = 112.65.239.49:8349
0,988731678240741 - 4 = 38.149.113.27:2927
0,988731678240741 - 5 = 5.98.208.59:3054
0,988731678240741 - 6 = 83.7.181.61:4386
0,988731678240741 - 7 = 49.252.241.14:8757
0,988731851851852 - 8 = 234.143.67.216:6029
0,988731851851852 - 0 = 152.80.85.207:7255
0,988732037037037 - 1 = 232.217.116.10:3714
0,988732037037037 - 2 = 125.161.152.157:1466
0,988732037037037 - 3 = 221.124.5.61:4931
0,988732037037037 - 4 = 104.221.129.39:7915
0,988732222222222 - 5 = 246.44.118.62:4726
0,988732222222222 - 6 = 160.77.254.255:6286
0,988732222222222 - 7 = 171.26.201.91:2231
0,988732291666667 - 0 = 225.242.148.30:6496
0,988732291666667 - 1 = 69.69.91.247:3993
0,988732291666667 - 2 = 221.158.98.172:3973
0,988732291666667 - 3 = 33.47.19.49:6924
0,988732291666667 - 4 = 10.38.190.116:1289
0,988732476851852 - 5 = 96.137.78.130:7030
0,988732476851852 - 6 = 241.104.222.39:6230
0,988732476851852 - 7 = 222.36.129.137:2738
0,988732476851852 - 0 = 165.86.207.13:8129
0,988732476851852 - 1 = 221.15.38.69:4244
0,988732662037037 - 2 = 105.75.231.245:4692
0,988732662037037 - 3 = 200.111.101.98:6018
0,988732662037037 - 4 = 231.86.207.171:5513
0,988732662037037 - 5 = 101.32.101.97:8327
0,988732662037037 - 6 = 23.122.79.185:7959
0,988732662037037 - 7 = 90.89.126.74:2225
0,988732835648148 - 0 = 71.247.18.36:6695
0,988732835648148 - 1 = 204.166.232.26:3219
0,988732835648148 - 2 = 41.4.57.160:6013
0,988732835648148 - 3 = 0.48.10.55:1874
0,988732835648148 - 4 = 32.101.158.50:8906
0,988733020833333 - 5 = 23.57.237.33:6212
0,988733020833333 - 6 = 175.93.139.59:1249
0,988733020833333 - 7 = 73.60.43.162:5157
0,988733020833333 - 0 = 85.120.199.139:7905
0,988733020833333 - 1 = 151.126.80.222:7722
0,988733206018519 - 2 = 187.219.244.67:8834
0,988733206018519 - 3 = 45.41.73.232:2605
0,988733206018519 - 4 = 32.191.148.208:2462
0,988733206018519 - 5 = 54.100.34.149:3002
0,988733206018519 - 6 = 189.222.139.217:1163
0,988733206018519 - 7 = 51.145.13.2:3110
0,98873337962963 - 0 = 118.248.215.181:8197
0,98873337962963 - 1 = 133.49.43.180:3277
0,988733460648148 - 2 = 190.198.178.105:8975
0,988733460648148 - 3 = 234.221.244.86:7956
0,988733460648148 - 4 = 110.63.74.72:1399
0,988733460648148 - 5 = 66.108.128.195:3555
0,988733460648148 - 6 = 81.138.204.3:6295
0,988733645833333 - 7 = 161.52.157.67:6252
0,988733645833333 - 0 = 187.49.246.14:4233
0,988733645833333 - 1 = 4.102.131.119:7826
0,988733645833333 - 2 = 138.54.204.148:1483
0,988733645833333 - 3 = 172.93.248.93:5389
0,988733645833333 - 4 = 167.249.128.45:8266
0,988733819444444 - 5 = 245.6.108.124:3552
0,988733819444444 - 6 = 53.0.188.240:1131
0,988733819444444 - 7 = 55.111.109.196:5283
0,988733819444444 - 0 = 223.37.173.46:5854
0,988733819444444 - 1 = 111.159.99.90:5308
0,98873400462963 - 2 = 135.16.15.107:4539
0,988734189814815 - 3 = 122.108.101.90:5721
0,988734363425926 - 4 = 43.71.188.72:7661
0,988734548611111 - 5 = 142.20.80.29:2729
0,98873462962963 - 6 = 181.139.169.64:5710
0,988734803240741 - 7 = 211.178.123.209:5720
Кое где не совсем точно, но это погрешность, ибо при нескольких запусках там может быть
1.
2.
3.
0,990460949074074 - 5 = 142.20.80.29:2729
0,990460949074074 - 6 = 181.139.169.64:5710
0,990460949074074 - 7 = 211.178.123.209:5720
А может и не может. |
