[DCC Error] E2037 Declaration of 'SelectFitFromObzor' differs from previous declaration

[Serik2010]

Приветствую всех!

Возникла проблема, уже всё перепробовал, даже методом тыка!

Вот код:

unit ufmCoLiTecLight;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, Menus, Gauges, FileCtrl,
  math, ShellAPI, ShellCtrls, IniFiles, ShlObj, StrUtils,

{$REGION ' Types '}

type
  TForm1 = class(TForm)
///////
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SelectFitFromObzor(dir: String);
  end;

{$ENDREGION}

implementation

/////

// FUNCTION Select FITs from Obzor
procedure TForm1.SelectFitFromObzor(dir: String = '');
var
////
begin
///
end;

Как видно кладу процедуру в паблик, задаю входной необязательный параметр.

Как быть? что не так??

Проблема именно в необязательном параметре.

Т.е если я просто делаю в паблике procedure SelectFitFromObzor(var dir: String); и в самом теле procedure TForm1.SelectFitFromObzor(var dir: String); то всё ок!

[Пепел Феникса]

в объявлении должен быть указан этот параметр.

я точно не помню нужен ли параметр в реализации или только в объявлении.

[Stilet]

type
  TForm1 = class(TForm)
///////
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SelectFitFromObzor(dir: String = '');
  end;

{$ENDREGION}

implementation

/////

// FUNCTION Select FITs from Obzor
procedure TForm1.SelectFitFromObzor;
var
////
begin
///
end;

Это если в Делфи. Лазарус к примеру такое не пропустит.

[Аватар]

И что не видно отличий в объявлении и описании процедуры?

[Serik2010]

Проблема решена!

в паблике

procedure SelectFitFromObzor(var dir: String = '');

и в самом теле

procedure TForm1.SelectFitFromObzor(var dir: String = '');

[Serik2010]

Да,да, всем спасибо! +1!