Incompatible types "HDC" and "Real"

[savinkoff9090]

а в строке "procedure TForm1.FormResize(Sender: TObject);" ошибка - [Error] Unit1.pas(71): Statement expected but 'PROCEDURE' found

[savinkoff9090]

а в строке "procedure TForm1.FormResize(Sender: TObject);" выдает [Error] Unit1.pas(71): Statement expected but 'PROCEDURE' found

[savinkoff9090]

Я просто отдельно писал программу где график строится она работает. а код из той программы в эту скопировал и застрял...

[Karabash]

Учить синтаксису языка здесь вряд ли кто будет. Копируя, надо осознавать что делаешь.
И этот вызов какой-то загадочной функции GrOfFunc;, которая нигде не описана.

[savinkoff9090]

Вот рабочая программа

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Image1: TImage;

procedure FormResize(Sender: TObject);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.dfm}
Function f(x:real):real;
begin
f:=(ln(x))/(ln(10));

end;

procedure GrOfFunc;
var x1,x2,y1,y2,x,y,dx,mx,my:real;
l,b,w,h,x0,y0:integer;
begin
l:=(-5);
b:=Form1.ClientHeight-20;
h:=Form1.ClientHeight-40;
w:=Form1.Width-40;
x1:=StrToFloat(Form1.Edit1.text);
x2:=StrToFloat(Form1.Edit2.text);
dx:=StrToFloat(Form1.Edit3.text);
y1:=(ln(x1))/(ln(10));
y2:=(ln(x1))/(ln(10));
x:=x1;
repeat
y:=ln(x)/ln(10);
if y<y1 then y1:=y;
if y>y2 then y2:=y;
x:=x+dx;
until(x>=x2);
my:=h/abs(y2-y1);
mx:=w/abs(x2-x1);
x0:=1;
y0:=b-abs(Round(y1*my));
with Form1.Image1.Canvas do
begin
MoveTo(l,b); LineTo(l,b-h);
MoveTo(x0,y0); LineTo(x0+w,y0);
TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
TextOut(l+5,b,FloatToStrF(y1,ffGene ral,6,3));
x:=x1;
repeat
y:= (ln(x))/(ln(10));
Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;
x:=x+dx;
until (x>=x2);
end;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Form1.Image1.Canvas.FillRect(Rect(0 ,0,ClientWidth,ClientHeight));
GrOfFunc;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GrOfFunc;
end;

end.


Это мы строили график функции. впринципе он построился, лабораторную мне зачли.
а теперь оси с подписями сделаны, и я пытался код, который выше, перенести в ту программу где оси есть, но что-то не разбирусь....

А насчет GrOfFunc - препод сказал что надо просто ее писать когда график строишь, вот я и написал