VPF::Функция поиска - Форум программистов

Rainheart

Дата 2.7.2009, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 21.9.2007

Репутация: нет
Всего: нет

Здравствуйте, Уважаемые.

Собственно, я только учусь, поэтому прошу посоветовать.
А проблемма возникла вот такая.

есть консольное приложение, которое ищет требуемую папку в на определенном диске и если нужно, то удаляет ее с файлами.
собственно все работает если использовать обычный проект.
а вот здесь.

Код


function RemDir(rpath:String):boolean;
var
  rIndex : Integer;
  rSearchRec:tSearchRec;
  rFName : String;
begin{remdir}
  rpath := rpath + '\*.*';
  rIndex := FindFirst(rpath, faAnyFile, rSearchRec);
  while rIndex = 0 do begin{while 01}
   rFName := ExtractFileDir(rpath)+'\'+rSearchRec.Name;
   if rSearchRec.Attr = faDirectory then begin{if 01}
    if (rSearchRec.Name <> '' )
    and (rSearchRec.Name <> '.')
    and (rSearchRec.Name <> '..') then RemDir(rFName);{if 02 begin-end}
   end{01}
   else begin{01}
    if rSearchRec.attr <> faArchive then
    FileSetAttr(rFName,faArchive);{if 03 begin-end}
    if NOT DeleteFile(rFName) then begin{if 04}
      logstr:=datetostr(date)+' '+timetostr(time)+' = Файл '
      +rFName+' не удален.'+#13#10;
      filelog.Seek(0,soFromEnd);//to the end of the logfile
      filelog.Write(pointer(logstr)^,length(logstr));//write to logfile
    end;{end if 04}
   end;{end if 01}
   rIndex := FindNext(rSearchRec);
  end;{end while 01}
  FindClose(rSearchRec);
  if not (RemoveDir(ExtractFileDir(rpath))) then begin{if 05}
   result:=false;
  end{05}
  else begin{05}
   result:=true;
  end;{end if 05}
end;{end remdir}

На основе FAQ написана функция поиска с последующим удалением.
Жирным я выделил те места где возникает ошибка - несовместимые типы данных.
в первой строке String и PAnsiChar
во второй Cardinal и TSearchRec

Подскажите в чем проблемма и куда смотреть.
В каком направлении рыться..
Буду рад любой помощи. Спасибо.

M
Rrader

Rainheart, старайтесь впредь давать темам такие названия, чтобы будущее поколение смогло найти их через поиск.

Это сообщение отредактировал(а) Rrader - 2.7.2009, 19:27

Rennigth

Дата 2.7.2009, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Rainheart, в usus Windows и SysUtils поменяй местами или указывай из какого модуля брать функции, названия некоторые совпадают smile

--------------------

(* Honesta mors turpi vita potior *)

Rainheart

Дата 2.7.2009, 20:59 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 21.9.2007

Репутация: нет
Всего: нет

2 Rrader - ок. Постараюсь.
2 Rennigth - Очень признателен.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »