VPF::ошибка в описании функции или в ее коде

misskio

Дата 27.10.2006, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 26.10.2006

Репутация: нет
Всего: нет

все
нашла

надо же, какую глупость написал и не заметила. спасибо

Здравствуйте. Описываю функции:

Код


unit U_Filter;

interface

uses
  …

type
  TFilter = class(TForm)
    bMake: TButton;
    bClose: TButton;
    procedure FillFilter(ID_Report: Integer);
    function CreateTEdit(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string;                  ParamId: integer): Variant;
    function CreateTLabel(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string): Variant;
    function CreateTDateTime_1(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
    function CreateTDateTime_2(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
    function CreateTComboBox_MonthList(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
    function CreateTComboBox_YearList(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
    function CreateTSelectFile(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
    function TFilter.CreateTRadioGroup_PersonType1(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
    procedure FormResize(Sender: TObject);
  private
  public
  end;

var
  Filter: TFilter;
  LeftPosition: Integer = 10;
  RightPosition: Integer = 150;
  WidthComponent: Integer = 200; // длина компонента
  HeightComponent: integer = 21;
  Delta: Integer = 5; // высота между компонентами
  Top: Integer;

implementation
uses U_Class;

var
  Config: TConfig;

{$R *.dfm}

выдает ошибку:

Expected ‘=’ but ‘(’ found

Курсор устанавливается сразу после названия функции function TFilter.CreateTRadioGroup_PersonType1

Сама функция имеет вид:

Код


function TFilter.CreateTRadioGroup_PersonType1(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
const
  PersonTypes: array[1..3] of string = ('физические лица', 'юридические лица', 'все');
var
  i: integer;
begin
  with TComboBox.Create(self) do
  begin
    CreateTLabel(ParentForm, TopPosition, 'Привлеченные клиенты');
    Parent := ParentForm;
    Top := TopPosition;
    left := rightPosition;
    Tag := ParamId;
    Width := WidthComponent;
    ParentForm.Height := ParentForm.Height + Height + Delta;
    Result := Height;

    for i := 1 to High(PersonTypes) do
      Items.Add(PersonTypes[i]);
    ItemIndex := 2;
  end;
end;

вызывается следующим образом:

Код


if Query['param'] = 9 then // PersonType1
      Top := Top + Delta + CreateTRadioGroup_PersonType1(Filter, Top, Query['label'], StrToInt(Query['param']));

Почему возникает эта ошибка smile

Это сообщение отредактировал(а) misskio - 27.10.2006, 11:24

superVad

Дата 27.10.2006, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15

TFilter. удали в описании как у других

Код


function CreateTSelectFile(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
function CreateTRadioGroup_PersonType1(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
procedure FormResize(Sender: TObject);

Это сообщение отредактировал(а) superVad - 27.10.2006, 11:17

misskio

Дата 27.10.2006, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 26.10.2006

Репутация: нет
Всего: нет

да, я уже нашла
спасибо
глупо так smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »