1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Распространение по носителям.

Тема в разделе "Программирование", создана пользователем Ltybcrf, 27 янв 2013.

  1. TopicStarter Overlay
    Ltybcrf

    Ltybcrf Гость

    Ребята вот код червя на делфи взят с факав!

    Код:
    function GetDrives;
    var
      DriveN: Integer;
      DriveC: Char;
      DriveB: set of 0..25;
      res,s:String;
    begin
      res:='';
      Integer(DriveB) := GetLogicalDrives;
      for DriveN := 0 to 25 do begin
      if not (DriveN in DriveB) then
        Continue;
        DriveC := Char(DriveN + Ord('a'));
     
    If DriveC<>'A' {исключение для дискет, если дискеты нет и программа попытается скопировать туда что то, вылетит ошибка :) }
    then
    begin
    s:=s+DriveC+#13#10;
    end;
     
      end;
    Result:=s;
    end;
    Ошибка как написал автор сдесь: res:='';
    Помогите исправить код!!!
    Кто в делфи шарит?

    Давайте оживим его!?
     
    Метки:
  2. SAIND

    SAIND

    Регистрация:
    27 сен 2012
    Сообщения:
    743
    Симпатии:
    606
    res,s:String; то есть переменная res и s (стринг(это значит текст)) потом begin
    res:='';-присваивается переменой какой-то текст ,обычно для вывода какого текста или ввода его но reg в коде больше нет ,и код не полный .
     
    • Like Like x 1
  3. TopicStarter Overlay
    @nger

    @nger Гость

    :D
    я конечно столет паскаля не трогал. но подобное приведение типов возможно чтоли?
     
  4. Viclug

    Viclug Gott mit Uns!

    Регистрация:
    22 июн 2012
    Сообщения:
    620
    Симпатии:
    468
    Переменная от массива спокойно может к чему-то присваиваться.
    --- добавлено: 27 янв 2013 в 22:05 ---
    Там же не массив к чему-то присваивается)
    --- добавлено: 27 янв 2013 в 22:13 ---
    Ему присваивается пустая строка. Я хз
     
  5. TopicStarter Overlay
    @nger

    @nger Гость

    Если надо конечно могу сделать работоспсобным. Под фрипаскаль переделаю ибо дельфи хз где качать да и не охота))
    --- добавлено: 27 янв 2013 в 22:36 ---
    Хотя взглянув на код - это же просто определитель дисков.
    А где сам код остальной?
     
  6. manwithlog

    manwithlog

    Регистрация:
    17 дек 2012
    Сообщения:
    65
    Симпатии:
    20
    не думаю что это будет работать
     
  7. TopicStarter Overlay
    @nger

    @nger Гость

    Я хз в чем смысл данного участка.
    Но он работает и список дисков выдает.
    --- добавлено: 27 янв 2013 в 23:36 ---
    [​IMG]
     
  8. TopicStarter Overlay
    Ltybcrf

    Ltybcrf Гость

    res:='';

    путь к ехе?
     
  9. TopicStarter Overlay
    @nger

    @nger Гость

    Не используется он в этом участке. Говорю же это просто участок кода выранный из контекста. Одна функция. Причем малозначительная
     

Поделиться этой страницей

Загрузка...