Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > в Delphi XE возникает ошибка Incompatible types

Автор: den1977 22.6.2011, 11:26

При использании в 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

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

Код

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