Где процедура??

[E-Novikov]

Сообщение от evg_m

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure Regress; // Писать ручками вот здесь
  public
    { Public declarations }
  end;

СПАСИБО ВАМ БОЛЬШОЕ ЗА ПОНИМАНИЕ БЕЗ ЛИШНИХ НАСТАВЛЕНИЙ И СЛОВ! Буду пробывать -) Побольше таких бы как вы -)

Короче не пашет ничего...все равно выдает ошибки на процедуру эту..Не знает он что такое Form1, далее на юнит ругается ( походу это не решаемо -)

[Utkin]

Сообщение от E-Novikov

Короче не пашет ничего...все равно выдает ошибки на процедуру эту..Не знает он что такое Form1, далее на юнит ругается ( походу это не решаемо -)

Пост #4, про 2-ю страницу флуда... И еще там про компоненты было написано...

[E-Novikov]

Сообщение от Utkin

Пост #4, про 2-ю страницу флуда... И еще там про компоненты было написано...

Компоненты все присутствуют..и вообще при чем тут они? Если я далее кроме procedure Tform1.Regress(num: integer); ничего не писал!

[Utkin]

Сообщение от E-Novikov

Компоненты все присутствуют..и вообще при чем тут они? Если я далее кроме procedure Tform1.Regress(num: integer); ничего не писал!

А надо. Процедура использует для своей работы компоненты - точно не разбирался, но она рисует на компоненте TImage. Вы его на форму бросали?

[E-Novikov]

Сообщение от Utkin

А надо. Процедура использует для своей работы компоненты - точно не разбирался, но она рисует на компоненте TImage. Вы его на форму бросали?

Ну конечно же -) Ну не в этом дело по-моему..в общем не разберешься с этой лабудой -)

[Utkin]

Разберешься. Я хочу чтобы Вы не только разобрались с этой процедурой, а могли разобраться и с дргуими, если эта ситуация у Вас возникнет снова. Покажите содержимое Вашего юнита (не забудьте оформлять код кнопочкой #).

[E-Novikov]

Сообщение от Utkin

Разберешься. Я хочу чтобы Вы не только разобрались с этой процедурой, а могли разобраться и с дргуими, если эта ситуация у Вас возникнет снова. Покажите содержимое Вашего юнита (не забудьте оформлять код кнопочкой #).

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Image1: TImage;
  private
    { Private declarations }

    procedure TForm1.Regress(num: integer);

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Если сделать

procedure Form1.Regress(num: integer);

то он выдает сообщение

Form 'Form1' references form

кликаю на кнопку yes все нормально..при запуске ругает unit и саму процедуру! Если не сложно..откройте Delphi и следуйте за мной -)

А есть и другой вариант..возьмите код с этого сайта http://www.cyberforum.ru/delphi/thread37272.html сделайте в своем дельфи - кстати версия какая? и покажите мне! Я разберусь. Так понятней будет..

[Utkin]

А где текст самой процедуры? Тебе во втором посте сказано, где взять. Так и скопируй ее себе в юнит. Она не стандартная, а значит тебе нужно приводить ее код в своем юните, да и не большая она. Далее, тебе требуется еще и метка с именем Label2 (это я подсмотрел в теле самой процедуры). Действуй.

[E-Novikov]

Сообщение от Utkin

А где текст самой процедуры? Тебе во втором посте сказано, где взять. Так и скопируй ее себе в юнит. Она не стандартная, а значит тебе нужно приводить ее код в своем юните, да и не большая она. Далее, тебе требуется еще и метка с именем Label2 (это я подсмотрел в теле самой процедуры). Действуй.

Блин, все равно ничего не выходит! Я уже ранее говорил, выдает ошибку на эту процедуру. Ладно в общем, спасибо за помощь! Попробую на других форумах полазить может кто поможет, или друга уже в аське дождусь он то точно решит эту проблему =)

[evg_m]

разве ТАК было сказано. Оказывается копировать тоже надо уметь. А лучше всего начать читать какой нибудь учебник.

  private
    { Private declarations }

    procedure TForm1.Regress(num: integer);

  public