blob: 1e28bf97e90735973843f3d02300cafa86ce154e (
plain)
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
|
{ %fail }
program gen_default;
{$mode delphi}
uses SysUtils;
type
TBla = record
Bla: Integer;
end;
//TBla = array[1..4] of Integer;
//TBla = type Integer;
procedure SetValue<T>(out v: T; const aValue: T = Default(T));
begin
v := aValue;
end;
procedure Test;
var
Bla: TBla;
begin
SetValue<TBla>(Bla);
WriteLn(Format('Bla = (Bla: %d)', [Bla.Bla]));
//WriteLn(Format('Bla = (%d, %d, %d, %d)', [Bla[1], Bla[2], Bla[3], Bla[4]]));
//WriteLn('Bla = ', Bla);
end;
begin
Test;
end.
|