1. Список говнокодов пользователя replay

    Всего: 1

  2. 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)