перенос во второй модуль

[Александра_69]

когда делала в одном модуле, работало, когда перенесла во второй модуль - ошибка. в чем?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart,
  Math, Clipbrd, unit2;

type
  TForm1 = class(TForm)
    pgc1: TPageControl;
    ts1: TTabSheet;
    ts2: TTabSheet;
    ts3: TTabSheet;
    imgf: TImage;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    btn1: TButton;
    edt7: TEdit;
    edt8: TEdit;
    edt9: TEdit;
    edt10: TEdit;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    edt13: TEdit;
    lbl11: TLabel;
    edt15: TEdit;
    lbl15: TLabel;
    btn2: TButton;
    cht1: TChart;
    lnsrsSeries1: TLineSeries;
    edt17: TEdit;
    edt18: TEdit;
    edt19: TEdit;
    edt20: TEdit;
    lbl17: TLabel;
    lbl18: TLabel;
    lbl19: TLabel;
    lbl20: TLabel;
    btn3: TButton;
    btn4: TButton;
    edt5: TEdit;
    lbl5: TLabel;
    img1: TImage;
    lbl6: TLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    edt6: TEdit;
    edt11: TEdit;
    edt12: TEdit;
    edt14: TEdit;
    btn5: TButton;
    lbl16: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn5Click(Sender: TObject);
  private  { Private declarations }
  public   { Public declarations }
  end;
var
  Form1: TForm1;
  ma,sum:extended;
implementation {$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edt6.Text:='5';
edt11.text:='7';
edt12.text:='5';
edt14.text:='7';
end;


procedure TForm1.btn5Click(Sender: TObject);
var a,b,c,d:extended;
begin
a:=StrToInt(edt6.text);
b:=StrToInt(edt11.text);
c:=StrToInt(edt12.text);
d:=StrToInt(edt14.text);
Max(a,b,c,d,img1);
end;
end.

unit Unit2;
interface
uses StdCtrls, SysUtils;
procedure Max(a,b,c,d:Extended,img1:timage);
implementation

procedure Max(a,b,c,d:Extended,img1:timage);
var ma,sum:extended;
begin
if (a>b) then
begin
  if (c>d) then
  begin
    if (a>c) then ma:=a
    else ma:=c;
  end;
  if (c<=d) then
  begin
    if (a>d) then ma:=a
    else ma:=d;
  end
end;
if (a<=b) then
begin
  if (c>d) then
  begin
    if (b>c) then ma:=b
    else ma:=c;
  end;
  if  (c<=d) then
  begin
    if (b>d) then ma:=b
    else ma:=d;
  end;
end;
sum:=a+b+c+d-ma;
img1.Canvas.Font.Color:=clPurple;
img1.Canvas.Font.size:=15;
if ma<Sum then img1.Canvas.TextOut(37,50,'÷åòûðåõóãîëüíèê ñóùåñòâóåò')
else img1.Canvas.TextOut(37,50,'÷åòûðåõóãîëüíèêà íå ñóùåñòâóåò');
end;

end.

[psycho-coder]

Что говорит-то хоть?

[Александра_69]

немного поправила. говорит too many actual parametors на Max(a,b,c,d,img1);

[psycho-coder]

Смотрите у вас прототип описан как

procedure Max(a,b,c,d:extended; img1:timage);

а в реализоана процедура как

procedure Max;

сделайте ее такой же как прототип и все)

то есть

procedure Max(a,b,c,d:extended; img1:timage);
var ma,sum:extended;
begin
...

[Александра_69]

все равно "too many actual parametors" на Max(a,b,c,d,img1); и останавливается на "с"

[Selestis]

Модуль-то подключили?

uses Unit2;

[psycho-coder]

Странно ошибки не вижу(проверить код не могу, под рукой ничего нет)
может переменная "c" написана русским текстом?
Попробуйте переписать вызов Max заново, удалив старый.

p.s. Туплю товарищи. Может кто увидит багу? Нужен свежий взгляд.

[Александра_69]

теперь неизвестно ему во втором юните timage:
uses StdCtrls, SysUtils;
procedure Max(a,b,c,d:Extended;img1:timage);

[psycho-coder]

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart,
  Math, Clipbrd, unit2;

не сюда, а после слова imaplementation

implemetation
uses unit2;

Модуль-то подключили?

Тоняк, сразу не углядел(

[Александра_69]

всё работает! спасибо!