mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 00:09:32 +02:00
19 lines
417 B
ObjectPascal
19 lines
417 B
ObjectPascal
{$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.
|