Помогите разобраться с собственной функцией

[MasterofCDM]

описание функции:

function cbEdit (var i: integer): integer;

сама функция:

function TnRabPlan.cbEdit (var i: integer): integer;
begin
    if i < 0 then i := 0;
    result := i;
end;

и обращение к ней:

i := cbEdit (2);

при компиляции выдает ошибку:

[DCC Error] newRabPlan.pas(153): E2033 Types of actual and formal var parameters must be identical

???

[Dj_smart]

function cbEdit (i: integer): integer;

function TnRabPlan.cbEdit (i: integer): integer;
var n:integer;
begin
    n:=i;
    if n < 0 then n := 0;
    result := n;
end;

Такой вариант пройдет?

[VVM]

Там либо var убрать, либо в качестве фактического параметра передавать переменную ('2' - константа).

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function cbEdit(var i: integer): integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.cbEdit(var i: integer): integer;
begin
 if i < 0 then i := 0;
  Result := i;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  K, N: integer;
begin
  N := 2;
  K := cbEdit(N);
end;

end.

[master.devel]

ты указываешь, что в качестве параметра i может быть только переменная, а при использовании функции в качестве параметра передаёшь ей константу. Собственно, что и говорили 2 выше отписавшихся товарища

[MasterofCDM]

Действительно, все получилось, спасибо!!!