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

[Stilet]

Мне кажется, так и было раньше

тогда зачем спрашивать?? И вообще зачем было выносить?

[Neeter]

а вот тут не знаю. Это дело ТС.

[Golovastik]

с этим примером понятно, только хотелось бы видеть всю эту красоту в Unit2... а не в Unit1

[Neeter]

Баламут вам правильно подсказал.

[Stilet]

олько хотелось бы видеть всю эту красоту в Unit2

ЗА-ЧЕ-М? Хочешь неудобств? У тебя что очень очено много вот такого повторяющегося кода?

Впрочем если хозяин - барин то переноси в Юнит2, но не забудь указать

Uses Unit1

чтоб оно найти TForm1 могло.

[Golovastik]

да уже как то хочеться приучаться к порядку..

[Stilet]

да уже как то хочеться приучаться к порядку..

Тогда нужно не просто переносить все куда-нить а определить стратегию. Т.е. зачем когда как и кем будут использоваться участки кода и данные.

[Kotofff]

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

Тогда нужно не просто переносить все куда-нить а определить стратегию

И эта стратегия, ИМХО, подразумевает некоторое изменение функции если ее ты переносишь в отдельный модуль.
В данном случае, как сказал Serge_Bliznykov

... изменить функцию Scanfoldes, указав в заголовке конкретно те контролы, которые нужны внутри процедуры ...

немного дополню: у тебя используются ListBox и StringGrid - вот и рассмотри изменение функции (или переделай ее процедурой) Scanfoldes в плане передачи ей параметрами этих самых ListBox и StringGrid и работы внутри с ними посредством "Sender as ...". И этим по крайней мере ты сделаешь использование этого отдельного модуля универсальным, т.е. его можно подключать к любой твой задаче (если конечно данные функции будут нужны).

[uberchel]

Ну тогда проще cделать так:
TForm - больше вообще ненужно, в unit1 добавить uses Scanfold;

unit Scanfold;

interface

uses
  Windows,Sysutils,Graphics,Jpeg,StdCtrls;

procedure Scanfoldes(List: TListBox; Grid: TStringGrid);

implementation

procedure Scanfoldes(List: TListBox; Grid: TStringGrid);
var
  jpg : TJpegImage;
  i, start : integer;
  st,chosenDirectory,path :string;
begin
  if chosenDirectory = '' then
  MessageBox(0,'Please select catalog','Error', MB_OK);
  exit;
  start := 1;
  path := chosenDirectory + '\';
  // ScanDir(path, '', ListBox1.Items);
  for i := 0 to List.Items.Count - 1 do
begin
  st := list.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.

[Kotofff]

uberchel, благодарю что поддержал кодом мою "лекцию"