blob: c848845aa7ece24d0810c71410113b9cf745feb1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{$mode objfpc}{$h+}
procedure SetArray(out SingleArray: array of Single; const Value: Single);
var
I: Integer;
begin
for I := Low(SingleArray) to High(SingleArray) do
SingleArray[I] := Value;
end;
var
ValuesBuffer: array of Single;
begin
SetLength(ValuesBuffer, 5);
{ passing <dynamic array of unmanaged type> to <out open array> should not trigger IE 201103063 }
SetArray(ValuesBuffer, 5.7);
end.
|
