:Приветствую
Мы вот тут разбираем проектик, а DGLut.pas ошибку выводит, почти в каждой строке пишет

Код

[Fatal Error] DGLUt.pas(353): Line too long (more than 1023 characters)

В чем проблема не понял. По ходу дела длинная строка, но ничего там длинного и нету.
Вот файл:
http://www.scientific-library.net/data/ind...isk%2FChapter3/
Помогите, пжлста!

Ну! Кто-нибудь!

А можно файлик как-нибудь по-другому прикрепить или на мыло закинуть, а то я не имею доступа по ftp
mailto: dvmospan собака pisem точка net

....Хотя Ваш файл я так и не увидел, однако у меня созрела мысль, что такая ошибка может быть по следующей причине: дело в том, что DOS/Windows и Unix по разному интерпретируют текстовые файлы, а именно различия состоят в представлении разрыва строки 0Dh 0Ah - для DOS/Windows и 0Ah для Unix подобных систем. Поэтому если скачивать/закачивать текстовые файлы по ftp как бинарные, получаем их частичную неработоспособность.

В том то и проблема, что на Delphi 5 и версий ниже работает.

Ну а в hex-редакторе его не пробовал смотреть?

У меня такая же ошибка вылезает в программах, в которых использую этот файл, а как избавиться не знаю. Что делать?

Посмотрел я на файл через HIEW Мда.... Вообщем, действительно кое-где (точнее почти везде) используется только CR (0Dh) без LF (0Ah). Я написал прогу, которая после CR везде ставит LF если там LF не было дальше

Код

procedure TForm1.FormCreate(Sender: TObject); var f, g:TMemoryStream;    i: integer;    size: int64;    char, lf, cr: byte; begin   lf:= 10;   cr:= 13;   f:= TMemoryStream.Create;   g:= TMemoryStream.Create;   f.LoadFromFile('DGlut.pas');   size:= f.Size;   for i:= 1 to size do begin      f.Read(char, 1);      if char = cr then begin         f.Read(char, 1);         if char <> lf then begin            g.Write(cr,1);            g.Write(lf,1);         end         else g.Write(cr, 1);         f.Seek(-1, 1);      end      else g.Write(char, 1)   end;   g.SaveToFile('temp.pas'); end;

Полученный файл я проверил через HIEW. Вроде теперь стало все правильно. Добавил temp.pas в проект, и оно откомпилилось.

Теперь просто все глючные файлы прогоните через эту процедуру и замените оригинальные полученными.

ЗЫ: Без анекдота не обошлось. Я сначала DGlut.pas кинул в директорию Delphi7\lib\. А как видно из листинга DGlut.pas лежит в директории проекта, поэтому я его кинул и туда. Но полученным temp.pas я заменял тот оригинал что лежал в Delphi7\lib\. Потом компилировал и получал ту же ошибку Только потом сообразил что она берет Dglut из директории проекта 45 минут убил Вообщем тяжко быть полоротым

Это сообщение отредактировал(а) markowww - 8.12.2004, 02:56

markowww Достаточно было поместить весь текст в переменную типа string и вызвать

Код

StringReplace(DGLUTText, #13, #13#10, [rfReplaceAll]);

<Spawn>, спасибо! Просто я даже понятия не имел о такой процедуре.

Но, если в файле уже есть #13#10? Тогда на выходе будет (если я ниче не напутал) #13#13#10. Учитывая, что редактор (не компилятор) кода Delphi 7 все таки #13 интерпретирует как перенос строки (тот же DGlut.pas выглядит вполне прилично ), то в некоторых местах будет отображаться лишний перенос строки.

Это сообщение отредактировал(а) markowww - 8.12.2004, 10:08

А не проще ли этот файлик скачать с ftp в Transfer Mode выставив Text? Ведь вышеобсужденная проблема произошла скорее всего из за того, что скачали его с ftp как бинарный файл.

З.Ы. Я по началу тоже писал такого рода приблыды, пока до меня не дошла суть проблемы...

Цитата(markowww @ 8.12.2004, 01:11)

<Spawn>, спасибо! Просто я даже понятия не имел о такой процедуре. Но, если в файле уже есть #13#10? Тогда на выходе будет (если я ниче не напутал) #13#13#10. Учитывая, что редактор (не компилятор) кода Delphi 7 все таки #13 интерпретирует как перенос строки (тот же DGlut.pas выглядит вполне прилично ), то в некоторых местах будет отображаться лишний перенос строки.

Ну да, все верно Не подумал про это. Если не хочется заморачиваться(учитывая, что данная функциональность нужна временно), то можно сначала все существующие #13#10 заменить на #13, а потом вызвать уже приведенную функцию:

Код

StringReplace(DGLUTText, #13#10, #13, [rfReplaceAll]); StringReplace(DGLUTText, #13, #13#10, [rfReplaceAll]);

Скачал содержимое DGLut.pas в Word
потом обратно - все исправилось автоматически -
без всякого программирования

Цитата(markowww @ 8.12.2004, 09:11)

<Spawn>, спасибо! Просто я даже понятия не имел о такой процедуре.

Это функция!