Overload

[aleksskay]

Почему это программа не работает? я сделал функции перегруженнымы, но когда я подставляю целое число почему- то он автоматически не вызывает функцию для целого числа.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,math;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

  TMain = Class
    f:integer;
    Function sum(a:integer):integer; overload;
  end;

  TNotMain = Class(TMain)
    r:integer;
    Function  Sum(a:Extended):Extended; Overload;
  end;




var
  Form1: TForm1;
  Per : TNotMain;

implementation

{$R *.dfm}
 { TMain }

Function TMain.sum(a: integer):integer;
begin
   Result := sqr(a);
end;

{ TNotMain }

Function TNotMain.Sum(a: Extended):Extended;
begin
    Result := sqr(a) +2;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  per := TNotMain.Create;
  per.r := 2;
  Per.Sum(2);

  per.Free;
end;


end.

[Error] Unit1.pas(64): Ambiguous overloaded call to 'Sum'-это ошибку выдает

[Stilet]

  TMain = Class
    f:integer;
    Function sum(a:integer):integer; virtual;
  end;

  TNotMain = Class(TMain)
    r:integer;
    Function  Sum(a:Extended):Extended; Override;
  end;

Ты Оверлоад и Оверрайд попутал )

[evg_m]

Ты Оверлоад и Оверрайд попутал )

там разные аргументы (integer|extended) так что никак не virtual override, а именно overload

[Аватар]

Per.Sum(2.0)

[aleksskay]

Per.Sum(2.0)

так конечно работает но он не должен автоматически вызывать функцию для целого числа?

[Stilet]

Нет. Overload различает передаваемые типы. Ты ему четко дал число с разделителем дробных - Вызовется функция для вещественного.

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

целое число в Делфи по умолчанию совместимо и с целыми и с вещественными типами, от того и ошибка.

[min@y™]

[Error] Unit1.pas(64): Ambiguous overloaded call to 'Sum'-это ошибку выдает

Всё верно. Надо было не лезть в дикой панике в интернеты, а, для начала, жмакнуть F1:

[aleksskay]

Дикой паники, конечно, у меня не было. И что вы там написали?

[min@y™]

Сообщение от aleksskay

Дикой паники, конечно, у меня не было. И что вы там написали?

"Там" - это где?