Embarcadero RAD Studio - [4712] :: Прикладное программирование

Код:

unit Unit1;

interface

uses
Winapi.Windows,
Winapi.Messages,
System.Variants,
Vcl.Graphics,
Vcl.Controls,
UnitHelper,
Vcl.Forms;

type

TTestType = string;

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
TestType: TTestType;
begin
TestType := TestType.ErrorInsightError; // TTestType does not contain member ErrorInsightError (хотя компилируется)
end;

end.

Код:

unit UnitHelper;

interface

type

TTestTypeHelper = record helper for string
public
function ErrorInsightError(): string; inline;
end;

implementation

{ TTestTypeHelper }

function TTestTypeHelper.ErrorInsightError: string;
begin
//Result := Self;
end;

end.

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению