Мастера 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.

koha (2007-07-10 21:00:00) [1]

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

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

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

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

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

Anatoly Podgoretsky (2007-07-10 20:50:00) [2]
> koha (10.07.2007 20:44:20) [20]

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

koha (2007-07-10 20:44:00) [3]

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

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

Anatoly Podgoretsky (2007-07-10 20:35:00) [4]
Береги мозги, не пытайся понять, это не Дельфи - это сложнее, могут поломаться.

koha (2007-07-10 19:44:00) [5]

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

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

Anatoly Podgoretsky (2007-07-10 16:03:00) [6]
Больше на sql.ru веселит

Плохиш (2007-07-10 16:01:00) [7]

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

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

Anatoly Podgoretsky (2007-07-10 15:57:00) [8]
> Плохиш (10.07.2007 13:44:12) [12]

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

Anatoly Podgoretsky (2007-07-10 15:56:00) [9]
> koha (10.07.2007 13:56:13) [13]

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

koha (2007-07-10 13:56:00) [10]

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

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

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

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

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

Anatoly Podgoretsky (2007-07-10 13:41:00) [12]

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

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

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

Плохиш (2007-07-10 13:33:00) [14]
Хм, а прога у горе-кодера всё не работает...

koha (2007-07-10 13:31:00) [15]

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

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

koha (2007-07-10 13:28:00) [16]
- О как же велик Русский "все могучий"!

Sonia (2007-07-10 13:25:00) [17]

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

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

Sonia (2007-07-10 13:24:00) [18]
Грызун это мышь :)

koha (2007-07-10 13:23:00) [19]

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

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

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

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

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

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

Наверх

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