Опятьже Pascal

Зомби. а где ты береш коды кнопок? ну вот как вниз вверх. интер ?:huh:

// Я скачал Free pascal, ибо турбо под х64 не пашет, а ставить виртуалку было в падлу

Особо копаться не стал и просто сделал вывод скан кода :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.

мдем) ты гений) =DDD

только чет ты там намутил...

Код:

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.

Эм... rewrite создает новый файл или заменяет старый.. а какой командой просто открыть файл чтобы добавить в него записи?

Все нашел

Смотри... вот chr(49) это 1 ...... chr(57) это 9 , а как 10,11,12.... ?

Все, уже ненад, разобрался как сделать)

Почему на Windows 7 Turbo Pascal не пашет во весь экран? И можно ли както это поправить?:huh:

А где на клаве кнопки 10, 11, 12 ?)

Alt+Enter

Ты гений) Альт + Ентер... не на столько же я туп... и не зря же я написал на Windows 7....

Хм.... как получить название всех файлов в папке? Например у меня есть папка tests и есть массив a стринговый.... мне надо названиявсех файлов папки tests запихать в массив)

Тогда ПКМ на заголовке окна -> Свойства -> Расположение -> Размер окна.
Меняй высоту и ширину

Тебе уже ответили

ооо точно... ответили уже, ток там не на этот вопрос.....

а то что про размер окна не помогает....

Код:

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;                                                                                   // аминь

Код:

TSearchRec;

wtf?

Код:

Dir

путь до папки в которой будем искать?

Код:

 filename:=Dir + SearchRec.name;  

а файл нейм не надо объявлять?:О

TSearchRec

Да.

Данный кусок кода

Код:

 filename:=Dir + SearchRec.name;  

меняешь на свое усмотрение.
В SearchRec.name находится имя файла.

То что меняеш на свое усмотрение я понял.. просто интересно поч файл нейм не оюъявлен... и + TSearchRec не пашет..... это же не делфи вам...

Код:

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