program Test123;
{$ifdef fpc}
{$mode delphi}
{$endif}
type
TTest = record
public
a: LongInt;
b: LongInt;
end;
TTestHelper = record helper for TTest
public
const Default: TTest = (a: 1; b: 2);
end;
var
Test: TTest;
begin
Test := TTest.Default;
end.
On Sat, Nov 10, 2018 at 10:06 AM Ryan Joseph <[email protected]>
wrote:
> Should’t this work? This would be a good way to set default record values
> but it doesn’t seem to be supported.
>
>
> type
> TMyRecord = record
> public
> a: integer;
> b: string;
> const
> default: TMyRecord = (a: 100; b: 'foo');
> end;
>
> var
> r: TMyRecord = TMyRecord.default;
>
>
> Regards,
> Ryan Joseph
>
> _______________________________________________
> fpc-pascal maillist - [email protected]
> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
