Скачать: CL | DM;

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

← →
Хрюша   (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]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c