Текущий архив: 2006.06.25;
Скачать: CL | DM;

Вниз

функция внутри функция   Найти похожие ветки 

← →
bevaine   (2006-06-05 09:26) [0]

Я новичок в Делфи, имеется функция:
function funfc1()
........
end;
имеется другая функция в которой должна выполнятся первая, но у меня выдает ошибку, что делать, может func1 описывать где-то надо?

---

← →
tsa   (2006-06-05 09:31) [1]

Код давай со стрелкой где ошибка

---

← →
bevaine   (2006-06-05 09:41) [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
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}
function func1(a, b: integer): integer;
begin
 func1 := func2(10, 6) + a + b;
end;

function func2(c, d: integer): integer;
begin
 func2 := c - d;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 n : integer;
begin
 n := func1(4, 5);
end;

end.

ошибка - [Îøèáêà] Unit1.pas(27): Undeclared identifier: "func2"

---

← →
Сергей М. ©   (2006-06-05 09:45) [3]

поменяй местами ф-ции func1 и func2

---

← →
icWasya ©   (2006-06-05 09:48) [4]

function func1(a, b: integer): integer;forward;
function func2(c, d: integer): integer;forward;

function func1(a, b: integer): integer;
begin
func1 := func2(10, 6) + a + b;
end;

function func2(c, d: integer): integer;
begin
func2 := c - d;
end;

---

← →
tsa   (2006-06-05 09:53) [5]

Объявить надо функции, - написать их

  { Public declarations }
end;

function func1(a, b: integer): integer;
function func2(c, d: integer): integer;
var
Form1: TForm1;

---

← →
bevaine   (2006-06-05 10:13) [6]

tsa, не помогает :(
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
  { Private declarations }
public
  function func1(a, b: integer): integer;
  function func2(c, d: integer): integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function func1(a, b: integer): integer;
begin
func1 := func2(10, 6) + a + b;
end;

function func2(c, d: integer): integer;
begin
func2 := c - d;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
n : integer;
begin
n := func1(4, 5);
end;

end.

---

← →
bevaine   (2006-06-05 10:17) [7]

сорри, разобрался ;)

---

Страницы: 1 вся ветка

Текущий архив: 2006.06.25;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.009 c