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....
То что меняеш на свое усмотрение я понял.. просто интересно поч файл нейм не оюъявлен... и + TSearchRec не пашет..... это же не делфи вам...
TSearchRec; wtf? Dir путь до папки в которой будем искать? filename:=Dir + SearchRec.name; а файл нейм не надо объявлять?:О
а то что про размер окна не помогает....
ооо точно... ответили уже, ток там не на этот вопрос.....
Хм.... как получить название всех файлов в папке?:D Например у меня есть папка tests и есть массив a стринговый.... мне надо названиявсех файлов папки tests запихать в массив)
Ты гений) Альт + Ентер... не на столько же я туп... и не зря же я написал на Windows 7....
Почему на Windows 7 Turbo Pascal не пашет во весь экран?:D И можно ли както это поправить?:huh:
Все, уже ненад, разобрался как сделать)
Смотри... вот chr(49) это 1 ...... chr(57) это 9 , а как 10,11,12.... ?
Все нашел :D
Эм... rewrite создает новый файл или заменяет старый.. а какой командой просто открыть файл чтобы добавить в него записи?
только чет ты там намутил... 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.
мдем) ты гений) =DDD
Зомби. а где ты береш коды кнопок?:D ну вот как вниз вверх. интер ?:huh:
用逗号分隔用户名
