1. Pascal / Говнокод #6305

    +110

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    DirName:=OpenDialog1.FileName;
    i:=Length(Dirname);
    While (i>0) and(Dirname[i]<>'\') do
    begin
      i:=i-1;
    end;
    If Dirname[i]='\' then Dirname:=Copy(Dirname,1,i-1);
    Edit1.Text:=DirName;

    Для определения директории, выбирается в ней файл, абсолютный путь к которому вырезается до первого найденного слеша

    Запостил: replay, 10 Апреля 2011

    Комментарии (27) RSS

    • ava Lure Of Chaos 10.04.2011 23:21 # +1

      строчка 5 в качестве полного тела цикла шедевральна ))))
      Ответить

      • ava inkanus-gray 10.04.2011 23:27 # 0

        А чем не нравится? Можно было бы удалить begin и end, а вместо присвоения написать dec(i). Скомпилируется это в то же самое.
        Ответить

        • ava Lure Of Chaos 10.04.2011 23:31 # +5

          в дельфи нет функции поиска подстроки? обязательно циклы городить?
          Ответить

          • ava inkanus-gray 10.04.2011 23:52 # 0

            Забыл про LastDelimiter. Но в данном случае велосипед ненамного сложнее вызова функции.
            Ответить

          • ava replay 11.04.2011 01:52 # +5

            в дельфи есть финкция выбора директории, которая заменила бы все 8 строк этого "кода"
            Ответить

    • ava TarasB 11.04.2011 10:36 # −14

      показать все, что скрытоЯ так же делаю. Написать 3 строчки мне проще, чем вспоминать названия стандартных функций.
      Ответить

      • ava k102 11.04.2011 10:38 # +4

        ужас же
        Ответить

      • ava replay 11.04.2011 11:27 # 0

        Предполагаю, что даже базового знания английского достаточно, чтобы запомнить "выбор папки" - SelectDirectory. А параметры IDE подскажет. Ну на худой конец можно хотя бы LastIndexOf использовать...
        Ответить

        • ava TarasB 11.04.2011 12:02 # +1

          "Выбор папки"?
          Я думал, оно должно называться "извлечение пути".
          Так что проще велосипед.
          Ответить

          • ava replay 11.04.2011 12:19 # −1

            >извлечение пути
            как пожелаете
            ExtractFilePath (fullFileName)
            Ответить

          • ava k102 11.04.2011 12:36 # +3

            несколько велосипедов, даже если в них нет ошибок, будут работать куда хуже и дольше чем несколько готовых функций
            Ответить

        • ava bugmenot 11.04.2011 13:04 # +5

          > "выбор папки" - SelectDirectory. А параметры IDE подскажет
          ОМГ, дельфяшечники совсем никогда не нажимают кнопку со странными рунами, которая находится рядом с Esc?
          И между прочим, работая со средой, которая приколочена гвоздями к винде, было бы неплохо разуметь разницу между folder и directory.
          Ответить

          • ava replay 11.04.2011 15:25 # 0

            > ОМГ, дельфяшечники совсем никогда не нажимают кнопку со странными рунами, которая находится рядом с Esc?
            Оно и подразумевалось. В notepad.exe никакие кнопки с рунами не помогут.
            Ответить

            • ava bugmenot 11.04.2011 17:59 # 0

              а нафига вообще аскетствовать?
              кстати, за пару человекоперекуров можно сделать свой нотепад с блекджеком и дельфёвыми хелпами
              Ответить

          • ava Y_F 09.01.2012 12:34 # 0

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

      • ava turdman 11.04.2011 11:52 # −1

        google 'delphi select directory dialog'
        Ответить

      • ava ctm 11.04.2011 13:38 # 0

        но тем не менее, это почти всегда не гуд.
        на ум только приходит крайне редкая ситуация, когда ну очень нужно юзать inline-функцию (как в С++), а в дельфи ее нету:(
        но это конечно же не про ExtractFilePath
        Ответить

        • ava TarasB 11.04.2011 14:02 # 0

          Инлайны - проблема только в старой версии.
          Ответить

          • ava ctm 12.04.2011 06:26 # 0

            в общем-то да.
            а для методов классов (невиртуальных конечно) тоже можно?
            Ответить

            • ava TarasB 12.04.2011 10:09 # 0

              Думаю да. Я сам руками не трогал, не знаю.
              Ответить

      • ava Govnocoder#0xFF 12.04.2011 10:17 # 0

        ТОЛСТО!
        Ответить

      • ava guest 07.08.2011 23:46 # +3

        Можно нажать Ф1. Там есть.
        Ответить

    • ava guest 11.04.2011 15:03 # −2

      И в чём говнистость кода? Посмотрите стандартную функцию ExtractFilePath (которую афтар, по-сути, здесь и изобрёл заново) - тот же принцип, кроме пары мелочей. Ну да, по шапке за велосипедостроительство дать надо канеш, но к самому коду приставка "говно-" особо не клеится.
      Ответить

      • ava Govnocoder#0xFF 12.04.2011 10:21 # 0

        В защиту ОПа хочу сказать, что в Делфи есть функция Application.MessageBox, которая работает настолько говнисто, что аж в дрожь бросает. Вывод: используйте WinAPI и пишите на Ассемблере!
        Альзо: Приставка "говно-" конечно не подходит. Подходит приставка "быдло-".
        Ответить

      • ava Y_F 09.01.2012 12:36 # −1

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

    Добавить комментарий