VPF::в Delphi XE возникает ошибка Incompatible types

den1977

Дата 22.6.2011, 11:26 (ссылка)

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

Загрузка ...

Новичок

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

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

При использании в Delphi XE процедуры которая работала на более ранней версии Delphi возникает следующая ошибка smile

:
[DCC Error] E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'

Сама процедура Вот:

Код


procedure DelAllFind(path: string);
var
 sr:Tsearchrec;
 found:integer;
begin
found:=FindFirst(path + '*.*', FaAnyfile, sr);
while (found = 0) do
 begin
 if (sr.name <> '.') and (sr.name <> '..') then
  begin
  SetFileAttributes(PAnsiChar(path+sr.name), FILE_ATTRIBUTE_NORMAL);
  DeleteFile(path+sr.name);
  if (sr.attr and FaDirectory) = FaDirectory then
   begin
   DelAllFind(path+sr.name+'\');
   RemoveDir(path+sr.name+'\');
   end;
  end;
  found:=findnext(sr);
 end;
FindClose(sr);
end;

Помогите исправить эту ошибку ([DCC Error] E2010 Incompatible types: 'PWideChar' and 'PAnsiChar') в Delphi XE

Snowy

Дата 22.6.2011, 11:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Так будет работать во всех версиях:

Код

SetFileAttributes(PChar(path+sr.name), FILE_ATTRIBUTE_NORMAL);

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