Ругается в модуле! Как быть?

[Golovastik]

Есть основная программа, в ней накопилось много процедур, решил вынести в дополнительный модуль(Unit2).. Но при компиляции ругается.
Смысл ошибки понятен, но не могу решить её! Кто занет помогите!!

unit Unit2;

 interface
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtDlgs, FileCtrl, DB, ADODB, DBCtrls, Grids, DBGrids,
  ExtCtrls, jpeg, Menus, ComCtrls, XPMan;

  procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
  procedure Scanfoldes(F:TForm1);   - ругается тут (Undeclared identifier: 'TForm1')

  implementation

  procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
  var
    SearchRec: TSearchRec;

................................... ..............
................................... ...............

и так далее

[Баламут]

Ну в общем-то логично. В uses что-то я не вижу модуля в котором описан класс TForm1. Пропиши там Unit1 (если этот модуль у тебя так называется).

[uberchel]

Нужно написать просто TForm и на экспорте и на самой процедуре!!! ведь вы же только экспортируйте процедуру!

[Stilet]

решил вынести в дополнительный модуль(Unit2)

Процедуры и функции, непосредственно работающие с неким обьектом (классом) лучше всего оформлять как методы этого класса.

[Serge_Bliznykov]

1) я полностью согласен с мнением Stilet'а!

2) мне вот интересно, что же там такого в процедуре Scanfoldes, что туда надо передавать ссылку на Форму1...
Интересно было бы взглянуть на код внутри...

3) uberchel, сперва мне показалось, что Ваше предложение абсолютно верное, но, немножко подраскинув мыслишками, я подумал, что возможно F:TForm ничего не даст. Ведь очень вероятно, что на форме лежат какие-то контролы, которые заполняются этой процедурой (т.е. внутри неё, например, такой код
f.Memo1.Lines.Add(....) тогда компилятор будет ругаться на Memo1...)


Короче, резюмируя,надо:

либо добавить юнит с описанием формы1 (скорее всего у автора это Unit1) в uses, как это предложил Баламут,

либо (если не откажетесь от своей идеи вынести методы в отдельный unit), изменить функцию Scanfoldes, указав в заголовке конкретно те контролы, которые нужны внутри процедуры. Например, если внутри используется Memo1 с TForm1 написать так:

procedure Scanfoldes(pMemo1:TMemo); 
...
pMemo1.Lines.Add(...)

либо сделать так, как предложил Stilet.

[Golovastik]

ну вот процедура сама

procedure Scanfoldes(F:TForm1);
  var
    jpg : TJpegImage;
    i, start : integer;
    st : string;
  begin
  if chosenDirectory = '' then
  begin
    MessageBox(Application.Handle,'Please select catalog','Error', MB_OK);
    exit;
  end;
    start := 1;
    path := chosenDirectory + '\';
    ScanDir(path, '', F.ListBox1.Items);
  for i := 0 to F.Listbox1.Items.Count - 1 do
  begin
    st := F.listbox1.Items[i];
  if ((st[length(st)] = 'g') or (st[length(st)] = 'G')) then
  begin
    F.Grid.Cells[0,start] := inttostr(start);
    F.Grid.Cells[1,start] := st;
    start := start + 1;
    F.Grid.RowCount := start;
  end;
  end;
  end;

[Stilet]

ну вот процедура сама

Прям таки напрашивается стать методом формы

[Golovastik]

даёте небольшой обучающий пример?

[Stilet]

даёте небольшой обучающий пример?

Запросто:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Grid: TStringGrid;
  private
    { Private declarations }
  public          chosenDirectory,path :string;
  procedure Scanfoldes;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Scanfoldes;
var
    jpg : TJpegImage;
    i, start : integer;
    st : string;
  begin
  if chosenDirectory = '' then
  begin
    MessageBox(Application.Handle,'Please select catalog','Error', MB_OK);
    exit;
  end;
    start := 1;
    path := chosenDirectory + '\';
//    ScanDir(path, '', ListBox1.Items);
  for i := 0 to Listbox1.Items.Count - 1 do
  begin
    st := listbox1.Items[i];
  if ((st[length(st)] = 'g') or (st[length(st)] = 'G')) then
  begin
    Grid.Cells[0,start] := inttostr(start);
    Grid.Cells[1,start] := st;
    start := start + 1;
    Grid.RowCount := start;
  end;
  end;
  end;

end.

Смысл в том что становясь методом твоя процедура может обойтись без параметра, при этом все компоненты с которыми она будет работать имеются ввиду те которые пренадлежат форме.

[Neeter]

ТС ведь сказал:

Есть основная программа, в ней накопилось много процедур, решил вынести в дополнительный модуль

Мне кажется, так и было раньше (методом формы), когда имелось много процедур.