• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Как Правильно Вставить Функцию?

  • Автор темы Dimkawshm
  • Дата начала
D

Dimkawshm

PHP:
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 }
function F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Pixels[10,20]:=clBlack;
function Tform1.F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
begin
F:=Sin(x);
Xmax:=4*pi;
Xmin:=0;
Ymax:=1;
Ymin:=-1;
end;

end;

end.

Ошибка Statement expected but "FUNCTION" found
и тюп
 
S

sinkopa

PHP:
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 }
function F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Pixels[10,20]:=clBlack;
function Tform1.F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
begin
F:=Sin(x);
Xmax:=4*pi;
Xmin:=0;
Ymax:=1;
Ymin:=-1;
end;

end;

end.

Ошибка Statement expected but "FUNCTION" found
и тюп

Код:
// ...
implementation
// ...
function F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
begin
// F := Sin(x);
Result := Sin(x);
Xmax :=4*pi;
Xmin := 0;
Ymax := 1;
Ymin :=-1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e: Real;
begin
Canvas.Pixels[10,20]:=clBlack;

e := F(1.5,a,b,c,d);
// ... бла бла...

end;
 
V

Vadik(R)

Есть, кстати, и такой вариант - вставить функцию до begin:
Код:
// ...
implementation
// ...

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e: Real;

function F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
begin
// F := Sin(x);
Result := Sin(x);
Xmax :=4*pi;
Xmin := 0;
Ymax := 1;
Ymin :=-1;
end;

begin
Canvas.Pixels[10,20]:=clBlack;

e := F(1.5,a,b,c,d);
// ... бла бла...

end;
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!