mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
30 lines
442 B
ObjectPascal
30 lines
442 B
ObjectPascal
{$MODE DELPHI}
|
|
{$DEFINE CAUSE_ERROR}
|
|
|
|
type
|
|
TArray<T> = array of T;
|
|
|
|
TRecord = record end;
|
|
|
|
TWrapper<T> = class
|
|
strict private
|
|
{$IFDEF CAUSE_ERROR}
|
|
FRecords: TArray<TRecord>;
|
|
{$ELSE}
|
|
FRecords: array of TRecord;
|
|
{$ENDIF}
|
|
public
|
|
constructor Create;
|
|
end;
|
|
|
|
constructor TWrapper<T>.Create;
|
|
begin
|
|
SetLength(FRecords, 1);
|
|
with FRecords[0] do;
|
|
// FRecords[0].x:=1;
|
|
end;
|
|
|
|
begin
|
|
TWrapper<TRecord>.Create.Free;
|
|
end.
|