Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите разобраться с ошибкой

Страницы: < 1 2
koha © (2007-07-10 12:49:00)
[Pascal Error] FileUnit.pas(28): E2010 Incompatible types: 'Cardinal' and 'TSearchRec'

Вынес функцию поиска в отдельный юнит, а оно ошибку выдает при компиляции:
[Pascal Error] FileUnit.pas(28): E2010 Incompatible types: 'Cardinal' and 'TSearchRec'
почему не могу понять, код вроде правильный.

Вот юнит:

Unit FileUnit;

interface

Uses SysUtils,Windows,Masks,Classes;

Function findfilesMsk(Startfolder, mask: String; Var list: TStrings; ScanSubFolders: Boolean): Boolean;

implementation

Function findfilesMsk(Startfolder, mask: String; Var list: TStrings; ScanSubFolders: Boolean): Boolean;
var
SR: TSearchRec;
begin
StartFolder := IncludeTrailingBackslash(StartFolder);
try
if FindFirst(Startfolder+'*.*',$3f,SR) = 0 then
Repeat
if (SR.Attr and faDirectory) <> 0 then begin
if ScanSubFolders and (SR.Name <> '.') and (SR.Name <> '..') then
findfilesMsk(StartFolder + SR.Name, Mask, List, ScanSubFolders);
end
else
if MatchesMask(SR.Name, Mask) then List.Add(StartFolder + SR.Name);
until FindNext(SR) <> 0;
Result:=True;
finally
FindClose(SR);
end;
end;

end.

Anatoly Podgoretsky (2007-07-10 13:06:00) [21]
Я бы не сказал, что код правильные, не использованы канонические имена, отсюда и проблема.

Плохиш (2007-07-10 13:02:00) [22]

> koha © (10.07.07 12:49)

Давишь батон с погонялом Ctrl на ентой доске с кучай всяких батонов, тащиш грызуна на текст FindClose и клакаешь по левому кнопаку, там, куда скаканёт мигающая полоска, смотриш в кучу букав долго и унимательно и усё дотумкиваешь.
Если и после этого не поймёшь, то иди и займсь своими мепосредственными обязанностями...

Страницы: < 1 2

Наверх

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