Создать свой модуль

← →
Хрюша (2006-03-05 11:54) [0]

Добрый день мастера!

Пытаюсь создать свой модуль.
Тема Mozgan меня очень интересует. Прежде не пытался но щас заразился.
Вопрос: Почему, когда я пытаюсь вызвать модуль Delphi ругается - типа
"Неизвестный идентификатор". Хотя все переменные описаны.
Ипроцедура FindFirst / FindN0ext / FindClose - стандартные для дельфи.
И ещё: В какой каталог сохранять? Правильно ли расширение *.pas, если
все модули имеют расширение *.dcu в каталоге Lib?

Я пишу так:

unit ProFiles;

interface

implementation

var
SR: TSearcRec;
Dir: String;
Attr: Integer;

function AllFiles(var Dir: string):integer;
var
SR: TSearchRec;
begin
Result:=0;
Attr:= faAnyFile;
if FindFirst(dir+"\*.*",faAnyFile,SR)=0 then
repeat
inc(result);
until
FindNext(SR)<>0;
FindClose(SR);
end;

end.

← →
Джо © (2006-03-05 12:15) [1]

1.
interface uses SysUtils {для FindXXX}; function AllFiles(var Dir: string):integer; implementation function AllFiles(var Dir: string):integer; begin ... end;

2. Сохранить нужно в .PAS, расширение .DCU — это скомпилированные модули, компилятор их сам создает.

← →
Marser © (2006-03-05 12:35) [2]

Видимо, учебники среди новичков нынче совсем не в чести(это по поводу второго вопроса)...

← →
Хрюша (2006-03-05 19:37) [3]

Поначала я сомневался в надежде на помощь Мастеров.
Но вот в который раз я на форуме и до сих пор диву даюсь (ей богу!)
не отказывает никто, все покажут - да напишут (если на доходит), никто не орут - настоящий форум!!!! Это я ощутил!

МАСТЕРА - СПАСИБО!

Создать свой модуль - проблема? Найти похожие ветки