| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создать свой модуль - проблема? [D7, XP]

Хрюша ©   (2006-03-05 11:54:00) 

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

Пытаюсь создать свой модуль.
Тема 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 19:37:00) [1]

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

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

---

Marser   (2006-03-05 12:35:00) [2]

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

---

Джо   (2006-03-05 12:15:00) [3]

1.
interface
uses SysUtils {для FindXXX};

function AllFiles(var Dir: string):integer;

implementation

function AllFiles(var Dir: string):integer;
begin
...
end;



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

---

Наверх