FreePascal.ru

procedure TForm1.Button1Click(Sender: TObject);
var
btf:TBtrFieldDefs;
begin
btf := TBtrFieldDefs.Create(owner);
try
btf.Add('test', btrChar, 1);
ShowMessage(btf.FieldName);
finally
btf.free;
end;
end;

Добавлено спустя 18 минут 22 секунды:
ээээ сорри
вместо ShowMessage(btf.FieldName)
надо ...

procedure TForm1.Button1Click(Sender: TObject);
var
btf:TBtrFieldDefs;
begin
btf.Add('test', btrChar, 1);
end;

а создавать BTR кто будет? ясень пень access violation

не дождался, скачал архив, вставил inherited
Result := TBtrFieldDef(inherited Add);
компилится без проблем

верни inherited назад
Result := TBtrFieldDef( inherited Add);
как было, и сообщи какая ошибка выдается.

без inherited вызывается метод твоего объекта, в котором должны быть параметры (const Name: string; DataType: TBtrFieldType; Size: Integer)
но ставить их не надо, т.к. Add и AddFieldDef будут ...

при объявлении дефайны проверяются
{$ifdef SUPPORT_DEFAULT_PARAMS}

а в implementation части не видно...