Продолжая обсуждение из Замечания и предложения:
Код программы, при выполнении которого почти постоянно происходит ошибка, указанная в названии темы:
uses GraphWPF;
begin
var a: array of (Point, Point);
SetLength(a, ReadlnInteger);
var w := ReadlnReal;
var point1: Point := RandomPoint(w);
var point2: Point;
for var i := 0 to a.Length - 1 do
begin
if i.IsEven then
begin
point2 := RandomPoint(w);
a[i] := (point1, point2);
end
else
begin
point1 := RandomPoint(w);
a[i] := (point2, point1);
end;
end;
Lines(a);
end.
<32Bit>
2.0.50727.8813
->C:\Windows\Microsoft.NET\Framework\v2.0.50727
4.7.3620.0
->C:\Windows\Microsoft.NET\Framework\v4.0.30319
<64Bit>
2.0.50727.8813
->C:\Windows\Microsoft.NET\Framework64\v2.0.50727
4.7.3620.0
->C:\Windows\Microsoft.NET\Framework64\v4.0.30319
==== Installed .NET Frameworks ====
.NET FW 2.0 SP 2 (CLR 2.0)
.NET FW 3.0 SP 2 (CLR 2.0)
.NET FW 3.5 SP 1 (CLR 2.0)
.NET FW 4.6.2 General release(CLR 4.0)
.NET FW 4.7 General release(CLR 4.0)
.NET FW 4.7.1 General release(CLR 4.0)
.NET FW 4.7.2 General release(CLR 4.0)
==== Languages ====
< Installed Languages 3.0>
Russian
< Installed Languages 3.5.x>
Russian
< Installed Languages 4.x>
English - United States
Russian
==== Updates ====
Microsoft .NET Framework 4 Client Profile
KB2468871
KB2468871v2
KB2478063
KB2533523
KB2544514
KB2600211
KB2600217
Microsoft .NET Framework 4 Extended
KB2468871
KB2468871v2
KB2478063
KB2533523
KB2544514
KB2600211
KB2600217
KB2468871
KB2468871v2
KB2478063
KB2533523
KB2544514
KB2600211
KB2600217