Консоль вопрос 1

← →
LazorenkoX (2002-04-04 21:58) [0]

Понятно, что такой код выдаст ошибку:
... {$APPTYPE CONSOLE} var F: file of R; //R - some record; begin WriteLn("Loading console app..."); Seek(F, 3); Write(F, R); //ERROR Read(F, R); //ERROR end;
Естественно, что это только вырезка, всё проинициализированно как надо. Вопрос такой как мне работать с файлами в консольном приложении? Причём ещё и выводить информацию в консоль.

← →
Anatoly Podgoretsky (2002-04-04 22:03) [1]

Ошибка в R или ее вообще нет

← →
LazorenkoX (2002-04-04 22:13) [2]

R имеет фиксированный размер. Просто работа с консолью и файлами вызывает ошибку. Почему? И как её предотвратить?

← →
al creator (2002-04-04 22:18) [3]

Seek - функция для работы с нетипизированными файлами... вроде бы.... а ты задаёшь ему тип.. но это как-то можно обойти... сейчас посмотрю

← →
al creator (2002-04-04 22:26) [4]

так.. я соврал R - любой, кроме текст, файл должен быть открыт процедурой Reset,Rewrite естественно AssignFile-CloseFile - вроде всё должно работать...

← →
Anatoly Podgoretsky (2002-04-04 22:28) [5]

Ладно для начала мягко - ошибка в 17 строке

← →
al creator (2002-04-04 22:40) [6]

В какой строке? ты откуда считал?

← →
LazorenkoX (2002-04-04 22:44) [7]

Sorry this error was in D5, in D6 i don"t see it :-)

← →
Anatoly Podgoretsky (2002-04-04 22:53) [8]

al creator © (04.04.02 22:40)
От начала

← →
al creator (2002-04-05 00:00) [9]

>Anatoly Podgoretsky ©
спасибо, очень доходчиво, но в его примере всего 12 строк....
А если такой умный, то ответь на мой вопрос в форуме - ехидничать и я умею...

← →
Anatoly Podgoretsky (2002-04-05 01:08) [10]

Ты не посчитал строки с описанием R

← →
Song (2002-04-05 08:23) [11]

Чтобы Вам помочь нужно посмотреть то место, где всё проинициализированно как надо.. Меня больше интересует строчка где у Вас файл сбрасывается на чтение/запись (Reset)

← →
dymka (2002-04-05 08:54) [12]

нужно видеть как идет код инициализации, может там не так как надо???
AssignFile? Reset? Rewrite?

← →
Внук (2002-04-05 09:15) [13]

>>al creator © (05.04.02 00:00)
- Петька, приборы!
- Шестнадцать, Василий Иванович.
- Что шестнадцать?
- А что приборы?
Неужели не слышали этот анекдот. По-моему намек Anatoly Podgoretsky © достаточно прозрачен. Чтобы найти ошибку здесь надо видеть код, а тесты на ясновидение - это не здесь.
>>LazorenkoX ©
Или коммерческая тайна?

Консоль вопрос 1 Найти похожие ветки