ProcessInfo := Default(TProcessInformation);

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    function Test<T>(): T;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Test<T>: T;
begin
  Result := Default(T);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  var a := Test<Int32>();
  var b := Test<string>();
  var c := Test<TRect>();
end;

type
  TMyRec = record
    Str: string;
    Intf: IInterface;
  end;

function Foo: TSomeRec;
begin
  // ! Delphi оставляет значение Result от предыдущего вызова. FillChar после этого
  // затирает ссылки на строки, и происходит утечка памяти. Поэтому обнуляем результат
  // через присвоение нулевой записи.
  Result := Default(TSomeRec);
  ...
  Result.str := '...';
end;

function Foo: TSomeRec;
....

procedure Foo(var Result: TSomeRec); // только Result будет не в EAX, а на стеке ЕМНИП
....

type
  TMyRec = record
    Str: string;
    Intf: IInterface;
  end;

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы