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

← →
koha © (2007-07-10 12:49) [0]

[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.

← →
Плохиш © (2007-07-10 13:02) [1]

> koha © (10.07.07 12:49)

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

← →
Anatoly Podgoretsky © (2007-07-10 13:06) [2]

Я бы не сказал, что код правильные, не использованы канонические имена, отсюда и проблема.

← →
Плохиш © (2007-07-10 13:22) [3]

> Anatoly Podgoretsky © (10.07.07 13:06) [2]

А я код не смотрел, я просто до 28й строки посчитал :-))

← →
koha © (2007-07-10 13:23) [4]

> Плохиш © (10.07.07 13:02) [1]

- Из твоих слов мало, что понял, в твой слэнг не въезжаю.
грызун это кто? Курсор?

← →
Sonia © (2007-07-10 13:24) [5]

Грызун это мышь :)

← →
Sonia © (2007-07-10 13:25) [6]

> тащиш грызуна на текст FindClose и клакаешь по левому кнопаку

Из контекста понятно, что у курсора не может быть кнопки :)

← →
koha © (2007-07-10 13:28) [7]

- О как же велик Русский "все могучий"!

← →
koha © (2007-07-10 13:31) [8]

> Anatoly Podgoretsky © (10.07.07 13:06) [2]
> Я бы не сказал, что код правильные, не использованы канонические
> имена, отсюда и проблема.

- Где какноны нарушил?

← →
Плохиш © (2007-07-10 13:33) [9]

Хм, а прога у горе-кодера всё не работает...

← →
MBo © (2007-07-10 13:38) [10]

полностью квалифицируй имя SysUtils.FindClose,
иначе подразумевается API-функция Windows.FindClose, т.к. у тебя список uses в таком порядке построен

← →
Anatoly Podgoretsky © (2007-07-10 13:41) [11]

> А я код не смотрел, я просто до 28й строки посчитал :-))

Зачем? Дальше 17 не стоило.

← →
Плохиш © (2007-07-10 13:44) [12]

> Anatoly Podgoretsky © (10.07.07 13:41) [11]
>
> > А я код не смотрел, я просто до 28й строки посчитал :-
> ))
>
> Зачем? Дальше 17 не стоило.

Хотел человеку помочь, но теперь вижу, что "не стоило" :-(

← →
koha © (2007-07-10 13:56) [13]

> MBo © (10.07.07 13:38) [10]
> полностью квалифицируй имя SysUtils.FindClose,иначе подразумевается
> API-функция Windows.FindClose, т.к. у тебя список uses в
> таком порядке построен

- Про порядок в uses из виду выпустил. Все работает.

← →
Anatoly Podgoretsky © (2007-07-10 15:56) [14]

> koha (10.07.2007 13:56:13) [13]

Теперь в другом месте вылетит.

← →
Anatoly Podgoretsky © (2007-07-10 15:57) [15]

> Плохиш (10.07.2007 13:44:12) [12]

А разве ты еще не запомнил это имя?

> Anatoly Podgoretsky © (10.07.07 15:57) [15]

Он что этим всегда отличался? 8-O
Я помню, что он здесь давно мелкает, поэтому [1] так и написал, что он до сих пор с начальными возможностями среды разработки не разобрался, а тут оно вона как поворачивается...

Больше на sql.ru веселит

> Anatoly Podgoretsky © (10.07.07 16:03) [17]
> Больше на sql.ru веселит

- раз несколько перечитывал, так и не понял о чем эта реплика.

Береги мозги, не пытайся понять, это не Дельфи - это сложнее, могут поломаться.

> Береги мозги, не пытайся понять, это не Дельфи - это сложнее,
> могут поломаться.

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

> koha (10.07.2007 20:44:20) [20]

Долго надо тренироваться, легче Дельфи выучить.

> Anatoly Podgoretsky © (10.07.07 20:50) [21]

> Долго надо тренироваться

- Да професионализм не пропьешь :-)

> легче Дельфи выучить.

- это равносильно, что комару океан выпить.

Помогите разобраться с ошибкой Найти похожие ветки