[MaessstRo]

У меня Делфи 6 установлен, в начале темы писал.
Overload нужен, т.к. в проекте куча таких перегружаемых процедур и функций. Пробовал порядок параметров менять. Исправляю одну. Начинает ругаться на следующую перегружаемую проц/функц:

Код:

Procedure Wait(msg:String);overload;
Procedure Wait;overload;

procedure Err(Const Msg:String;Const Cap:String='');overload;
procedure Err(Const cond:boolean;Const msg:String;Const cap:String = '');overload;
procedure Err(Const cond:boolean;Const Obj:TWinControl;Const msg:String;Const cap:String = '');overload;
procedure Err(Const obj:TWinControl;Const msg:String;Const cap:String = '');overload;

Интересно то, что другие проекты, которые исп. эту самописную библиотеку нормально компилируются. А именно этот проект не хочет её воспринимать какой она есть. Может это какой-то глюк? Или у проекта какие-то настройки заточены под др.ОС или компьютер?

Один из вызовов:

Код:

procedure TFormSicReg.bOkClick(Sender: TObject);
Var vBrId,vLN,vFN,vMN,vIIN:String; vTrans,vReb,vIno,vDub,vNameNull:Integer;
begin
 // Проверки
 Err((Not cbSex1.Checked) and (Not cbSex0.Checked), cbSex1, 'Выберите пол муж/жен' );
 eBP.Ok;
 eAddr.Ok;
 Err((Not cbArea1.Checked) and (Not cbArea0.Checked), cbArea1, 'Выберите местность город/село' );
 ePhone.Ok;
 //
 if eBrId.Visible and eBrId.CanFocus then vBrId := eBrId.AsString else vBrId := prg.BrId;
 vLN := U2K(e_RLN.Text);
 vFN := U2K(e_RFN.Text);
 vMN := U2K(e_RMN.Text);
 Trace( 'LN = "' +ReplKZChar2(vLN)+'"' );
 Trace( 'FN = "' +ReplKZChar2(vFN)+'"' );
 Trace( 'MN = "' +ReplKZChar2(vMN)+'"' );
 vIIN := '';
 vDub      := iif(cbDub.Visible and cbDub.Enabled and cbDub.Checked,1,0);
 vNameNull := iif(cbNameNull.Visible and cbNameNull.Enabled and cbNameNull.Checked,1,0); 
 vTrans := 0;  // транзитный СИК
 vReb   := 0;  // несовершеннолетний
 vIno   := 0;  // иностранец
 case FRegim of
  cARegTra: vTrans := 1;  // транзитный с
  cARegReb: vReb   := 1;  // Несовершенолетн
  cARegIno: vIno   := 1;  // Иностр
 end;
 try
   if Not FIsEdit then begin // регистрация
     FSicId := StrToInt(App.FunA('sik.Pers.Ins_Sic',[vTrans,vReb,vIno,vDub,vNameNull,vBrId,vLN,vFN,vMN,e_RBD.AsDate,iif(cbSex1.Checked,1,0),
                           {cbDoc.Field('rfdt_id').AsString}'', eDocDate.AsDate, eDocSer.AsString, eDocNum.AsString, eDocPlace.AsString,
                           eBP.AsString,eAddr.AsString,iif(cbArea1.Checked,1,0),ePhone.AsString,vIIN,
                           '','']));
     Mes('Регистрация выполнена'#13#10+IntToStr(FSicId));

   end else begin
     IfRaise(FSicId=0,'Не определен идентификатор');
     App.PrcA('sik.Pers.Upd_Sic',[vTrans,vReb,vIno,vDub,vNameNull,
                              FSicId,{vBrId,}iif(cbSex1.Checked,1,0),'',eDocDate.AsDate,eDocSer.AsString,eDocNum.AsString,eDocPlace.AsString,
                              eBP.AsString,eAddr.AsString,iif(cbArea1.Checked,1,0),ePhone.AsString,vIIN,'','']);
     Mes('Редактирование выполнено'#13#10+IntToStr(FSicId));

   end;
 finally

 end;
 //
 Close; // закрываем окно
 //
end;

MAD: учимся пользоваться тегами!