Добро пожаловать в чат "CSharp chat [RU]" Shoxa @sh_FCB10. Надеюсь,тебе здесь понравится

Добро пожаловать в чат "CSharp chat [RU]" Andrey @. Надеюсь,тебе здесь понравится

Всем привет. Тут живой чатик?

Да

да

Отлично :)

Добро пожаловать в чат "CSharp chat [RU]" FindYanot @FindYanot. Надеюсь,тебе здесь понравится

Всем привет. Тут живой чатик?

Нет, сюда присоединяются для галочки.

Чат живой,задавайте вопросы,общайтесь.

Дональд ты не с жука случайно?

Дональд ты не с жука случайно?

первый пункт выполнен

?

Всмыысле

Добро пожаловать в чат "CSharp chat [RU]" Dmitry @. Надеюсь,тебе здесь понравится

кайф

писисиси

Ага

Замечательно

Народ

Может кто по Delphi помочь?

Мож знает кто

Одну функцию

тут немногл сишарп

> может знает кто

как именно помочь?

По функции

Если знаешь

Delphi

Если сможешь, то скину функцию

А чем delphi от сишарп отличается?

Щас скину, короче

ВОТ

Есть функция, но почему-то не работает

Не удаляет в подкаталогах по маске, но удаляет просто в каталоге

Вот функция function FullRemoveDir(Dir: string; DeleteAllFilesAndFolders, StopIfNotAllDeleted, RemoveRoot: boolean): Boolean; var i: Integer; SRec: TSearchRec; FN: string; begin Result := False; if not DirectoryExists(Dir) then exit; Result := True; Dir := IncludeTrailingBackslash(Dir); i := FindFirst(Dir + '*.*', faAnyFile, SRec); try while i = 0 do begin FN := Dir + SRec.Name; if SRec.Attr = faDirectory then begin if (SRec.Name <> '') and (SRec.Name <> '.') and (SRec.Name <> '..') then begin if DeleteAllFilesAndFolders then FileSetAttr(FN, faArchive); Result := FullRemoveDir(FN, DeleteAllFilesAndFolders, StopIfNotAllDeleted, True); if not Result and StopIfNotAllDeleted then exit; end; end else begin if DeleteAllFilesAndFolders then FileSetAttr(FN, faArchive); Result := SysUtils.DeleteFile(FN); if not Result and StopIfNotAllDeleted then exit; end; i := FindNext(SRec); end; finally SysUtils.FindClose(SRec); end; if not Result then exit; if RemoveRoot then if not RemoveDir(Dir) then Result := false; end;

Смотри, если в строке i := FindFirst(Dir + '*.*', faAnyFile, SRec); указать '*.log', то удаляет только в каталоге, но не подкаталогах

А если просто '*.*', то удаляет вообще все файлы и подкаталоги в каталоге

Не могу понять, в чем проблема

Ппц

Сложна

Типа Шарп легкий)

вкинь на pastebin

и сюда ссылку

Ща

Result := False; if not DirectoryExists(Dir) then exit; Result := True;

результат был false, потом стал true, так задумано?

Да хрен знает, я сам взял эту функцию, и разбираюсь уже трейти день, в чем там проблема

Вот ссылка

http://pastebin.com/CXZATn4n

Хер пойми

не понятно чет

а ты подебаж

Я хз как

в дельфи можно так делать?

Знал бы сделал

Вродь да

Ни разу не дебажил

=(

Ты вот сейчас шутишь, да?

Ни разу не дебажил

http://www.helloworld.ru/texts/comp/lang/delphi/delphi4/DebugerDelphi.htm

кек

читай тогда, спрашивай

это очень важная хуйня

Знаем0)0

Но руки рил не доходили до дебаггинга

значит время пришло)))0

О-Оптимистичное программирование

О-Оптимистичное программирование

:DDDDDDDD

Что там именно читать?

Пунктов овер доху

Что там именно читать?

так всю сттатью про дебаг

там расписано как что настроить и как подебажить

сук

я сам сишарп

не знаю за дельфи

сук

эЭ

чота книги то надо читать

а тут статья небольшая)

Да читаю

Не те)0)

потратить полчаса на статью лучше чем 3 дня сидеть и гадать чего не работает)

https://habrahabr.ru/post/178007/

вот на хабре еще есть

хз где лучше будет

Чет в седьмой нет такого окна, которое там есть на сайте

а, лол

есть

Короч,хер пойми

Короч,хер пойми

?

да щас не время разбираться с ним