1. Гость, мы просим Вас ознакомиться с Правилами Форума и Отказом от ответственности!

Опятьже Pascal

Тема в разделе 'Программирование', создана пользователем АндрюхиН, 18 окт 2010.

  1. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Зомби. а где ты береш коды кнопок?:D ну вот как вниз вверх. интер ?:huh:
  2. zombiee Пользователи

    Сообщения:
    18
    Лайки:
    11
    Пол:
    Мужской
    Репутация:
    0
    Команда:
    ArtCoding Group
    // Я скачал Free pascal, ибо турбо под х64 не пашет, а ставить виртуалку было в падлу :D

    Особо копаться не стал и просто сделал вывод скан кода :huh:
    Код:
    program ScanKey;
    
    uses
    crt;
    
    var
    Key: char;
    
    begin
    Write('Press key: ');
    
    Key:=ReadKey;
    if(Key=#0) then begin
    WriteLn('Extended key pressed');
    Key:=ReadKey;
    end;
    
    WriteLn('Pressed key: "', Key, '"; Code: "', Ord(Key), '"');
    end.
    
    1 человеку нравится это.
  3. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    мдем) ты гений) =DDD
  4. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    только чет ты там намутил...
    Код:
    program ScanKey;
    
    uses crt;
    
    var
    Key: char;
    
    begin
    clrscr;
    
    Key:=ReadKey;
    if(Key=#0) then begin
    Key:=ReadKey;
    end;
    
    WriteLn('Code: ', Ord(Key));
    readkey;
    end.
    
  5. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Эм... rewrite создает новый файл или заменяет старый.. а какой командой просто открыть файл чтобы добавить в него записи?
  6. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Все нашел :D
  7. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Смотри... вот chr(49) это 1 ...... chr(57) это 9 , а как 10,11,12.... ?
  8. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Все, уже ненад, разобрался как сделать)
  9. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Почему на Windows 7 Turbo Pascal не пашет во весь экран?:D И можно ли както это поправить?:huh:
  10. zombiee Пользователи

    Сообщения:
    18
    Лайки:
    11
    Пол:
    Мужской
    Репутация:
    0
    Команда:
    ArtCoding Group
    А где на клаве кнопки 10, 11, 12 ?) :D

    Alt+Enter
  11. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Ты гений) Альт + Ентер... не на столько же я туп... и не зря же я написал на Windows 7....
  12. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Хм.... как получить название всех файлов в папке?:D Например у меня есть папка tests и есть массив a стринговый.... мне надо названиявсех файлов папки tests запихать в массив)
  13. zombiee Пользователи

    Сообщения:
    18
    Лайки:
    11
    Пол:
    Мужской
    Репутация:
    0
    Команда:
    ArtCoding Group
    Тогда ПКМ на заголовке окна -> Свойства -> Расположение -> Размер окна.
    Меняй высоту и ширину :D

    Тебе уже ответили
  14. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    ооо точно... ответили уже, ток там не на этот вопрос.....
  15. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    а то что про размер окна не помогает....
  16. zombiee Пользователи

    Сообщения:
    18
    Лайки:
    11
    Пол:
    Мужской
    Репутация:
    0
    Команда:
    ArtCoding Group
    [​IMG]

    Код:
    procedure ScanDir(Dir: string);
    var
      SearchRec: TSearchRec;
    begin
      if Dir <> '' then                            // Если переменная dir не пустая
        if Dir[length(Dir)] <> '\' then       //  то проверяем если в конце строки нет слеша
          Dir := Dir + '\';                            //  то добавляем его
    
      if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then           // Начинаем искать все файлы в директории, если хоть что-то есть
        repeat                                                                                  // то начинаем цикл
           if (SearchRec.name = '.') or (SearchRec.name = '..') then     // если нашли . или .. 
            continue;                                                                              // пропускаем их
    
    { надо просто убрать рекурсию по подкаталогам
          if (SearchRec.Attr and faDirectory) <> 0 then                      // если нашли папку
            ScanDir(Dir + SearchRec.name)                                           // функция вызывает сама себя для прохода найденной папки          
          else                                                                                     // если нет, то
    }
            filename:=Dir + SearchRec.name;                                      // тут писать то, что нужно делать с найденным файлом    (заносить в массив)  
        until                                                                                   // продолжаем цикл
          FindNext(SearchRec) <> 0;                                                // пока не закончатся файлы папки
      FindClose(SearchRec);                                                      // закрываем поиск файлов
    end;                                                                                   // аминь
    
    
    
  17. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Код:
    TSearchRec;
    wtf?
    Код:
    Dir
    путь до папки в которой будем искать?
    Код:
     filename:=Dir + SearchRec.name;  
    а файл нейм не надо объявлять?:О
  18. zombiee Пользователи

    Сообщения:
    18
    Лайки:
    11
    Пол:
    Мужской
    Репутация:
    0
    Команда:
    ArtCoding Group
    TSearchRec

    Да.

    Данный кусок кода
    Код:
     filename:=Dir + SearchRec.name;  
    меняешь на свое усмотрение. [​IMG]
    В SearchRec.name находится имя файла.
  19. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    То что меняеш на свое усмотрение я понял.. просто интересно поч файл нейм не оюъявлен... и + TSearchRec не пашет..... это же не делфи вам...
  20. TopicStarter Overlay

    АндрюхиН Пользователи

    Сообщения:
    66
    Лайки:
    2
    Репутация:
    0
    Код:
    program byeeee;
    uses crt;
    var
    tests:text;
    i,line:integer;
    put,getline,testgroup:string;
    begin
    clrscr;
    readln(testgroup);
    readln(line);
    put:='Путь';
    getline:='';
    assign(tests,put);
    append(tests);
    for i:=0 to line do begin
    if (EOF(tests)) then break;
    readln(tests,getline);
    end;
    close(tests);
    writeln(getline);
    readkey;
    end.
    
    
    Вот тут
    Код:
    if (EOF(tests)) then break;
    ставит курсор на if после того как я ввожу данные,и пишет Fail not open for input....
Черновик сохранён Черновик удалён

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