Скачал пример - запустить не могу

[PalSanЫч]

Скачал пример программы каторая строит график по формуле а запустить не могу компилятор пишет:
[Fatal Error] Project1.dpr(5): File not found: 'Graf.dcu'
пример же вроде готовый...

[Olya90]

скинь исходник проги...А то сложно догадатся

[PalSanЫч]

сорри, не совсем понял прозьбы я так понял исходник в смысле ластинг нужен? вот:

unit Graf;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  procedure FormPaint(Sender: TObject);
  procedure FormResize(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}
 Function f(x:real):real;
begin
f:=2*Sin(x)*exp(x/5);
end;
// строит график функции
procedure GrOfFunc;
var
x1,x2:real; // границы изменения аргумента функции
y1,y2:real; // границы изменения значения функции
x:real; // аргумент функции
y:real; // значение функции в точке х
dx:real; // приращение аргумента


l,b:integer; // левый нижний угол области вывода графика
w,h:integer; // ширина и высота области вывода графика
mx,my:real; // масштаб по осям X и Y 
x0,y0:integer; // точка - начало координат
begin // область вывода графика
l:=10; // X - координата левого верхнего угла
b:=Form1.ClientHeight-20; //У - координата левого верхнего угла
h:=Form1.ClientHeight-40; // высота
w:=Form1.Width-40; // ширина
x1:=0; // нижняя граница диапазона аргумента
x2:=25; // верхняя граница диапазона аргумента
dx:=0.01; // шаг аргумента

// найдем максимальное и минимальное значения
// функции на отрезке [x1,x2]

y1:=f(x1); // минимум
y2:=f(x1); //максимум
x:=x1;
repeat
y := f (x);
if y < y1 then y1:=y;
if y > y2 then y2:=y;
x:=x+dx; until (x >= x2);
// вычислим масштаб
my:=h/abs(y2-y1); // масштаб по оси Y
mx:=w/abs(x2-x1); // масштаб по оси X
x0:=1;
y0:=b-Abs(Round(y1*my)) ;
with form1.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,ffGeneral,6,3));
// построение графика
x:=x1; repeat
y:=f(x);
Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;
x:=x+dx;
until (x >= x2);
end;
end;


procedure TForm1.FormPaint(Sender: TObject); 
begin
GrOfFunc; end;
// изменился размер окна программы

procedure TForm1.FormResize(Sender: TObject); 
begin
// очистить форму
form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
// построить график
GrOfFunc;
end;
end.

///А ошибку выдает на вкладке проекта вот здесь:
program Project1;

uses
  Forms,
  Graf in 'Graf.pas';    <--- ЗДЕСЬ КОМПИЛЯТОР ВЫДАЕТ ОШИБКУ указанную мною выше

{$R *.res}

begin
  Application.Initialize;
  Application.Run;
end.

[DeKot]

Должно бы быть следующее:

///А ошибку выдает на вкладке проекта вот здесь:
program Project1;

uses
Forms,
Graf in 'Graf.pas'(Form1); <--- ЗДЕСЬ КОМПИЛЯТОР ВЫДАЕТ ОШИБКУ указанную мною выше

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm,Form1);
Application.Run;
end.

А лучше, если покажете состав проекта (все файлы выложите).

[PalSanЫч]

теперь компилятор выдает на том же месте:
[Error] Project1.dpr(5): ',' or ';' expected but identifier 'Form1' found

[DeKot]

Еще раз

покажете состав проекта (все файлы выложите).

Произошла ошибка при сохраненни или компиляции.Или версии среды не совпадают.Так можно долго гадать.

[uberchel]

А в архиве(папке) проекта есть такие файлы : Graf.dcu, Graf.dfm ?

Всё просто , если нет этих файлов , то не как ты не скомпилируешь этот проект, пака не привяжешь в новый проект этот код с "Graf.pas" !!!!!

[DeKot]

Любой проект в Дельфи должен содержать следующие файлы:
1. файл проекта (.dpr); - собственно программа (project1.dpr);
2. описание форм (как минимум одной формы) - (.dfm);
3. модуль (модули) ,как форм, так и отдельные модули - (.pas);
4. параметры проекта (.dof);
5. параметры среды (.cfg);
6. описание ресурсов (.res) - может и не быть, т.к. создастся при компиляции.
Если этих файлов нет, создавайте проект заново и копируйте в него части кода со скачанного проекта.Правда тут нужна внимательность, так как часть параметров задается , скажем , в Инспекторе Объектов.

[Serge_Bliznykov]

всё правильно.
Но! Господа, ну что Вы издеваетесь над новичком?..
неужели трудно вставить выложенный им код в форму...
тем более, что ни одного VCL контрола не используется..

PalSanЫч, проект приложен. (исходники и, скомпилированный exe-шник... последний просто в качестве примера)

[Stilet]

ну что Вы издеваетесь над новичком?

Скорее наоборот. Толку от того что он выложил практически никакого.
Толк был бы если бы он весь проект прикрепил в скажем архиве.