а зачем его было делать бинарным ?

хотя, наверное, в предыдущей теме это уже обсуждалось :)

1. Ненужно.

2. Любители бинарных файлов после смерти попадут в специальный ад, где будут считывать массивы чисел с плавающей точкой из бесконечного количества типизированных файлов размерами от 1 до 5 Гб.

Последнее - с помощью текстового редактора.

Programming Language C#, C++, Lazarus

Адская помесь

Да

При сотне тормознутых программ, типа KAV, хомячок не должен гнать на мою. Другое дело, что на чистом компе будет «лишняя» скорость. Так вот, совершенству нет предела...

С++ - это cgi-скрипт Lazarus - в этой теме C# - в будущих темах ;) ЗЫ: это 3 отдельных модуля.

Ты хоть что-нибудь пофиксил за эти 3 месяца? Я снова вижу ГОВНОКОД.

Если с умом, то не адская, и не помесь. Но это лишь у более-менее опытных, а таких тут мало.

http://en.wikipedia.org/wiki/Endianness

Далее идёт язык кроссворда логического типа, boolean, 1 байт.

boolean, 1 байт

Гм.

Да, это надо большой ум, чтоб придумать задачу где такая связка смотрелась бы логично. Тут оно совершенно ни к чему.

var
    FormOpenKlest: TFormOpenKlest;//указатель
    sNameCrossword: String;//Название текущего кроссворда
    slWordR,//указатель
    slWordC,//указатель
    slWordV,//указатель
    slWordL,//указатель
    ListWord,//указатель
    slQuestionT,//указатель
    ListCurrentWord: TStringList;//указатель
    wsQuestionL: WideString;//Список длин вопросов
    imgCell: array of TImage;//указатель
    bmCell: TBitMap;//Цветная ячейка
    RowFirstCellWord,//Координата строки текущего слова в сетке кроссворда
    ColumnFirstCellWord,//Координата столбца текущего слова в сетке кроссворда
    LengthWord,//Длина текущего слова
    LastRFCW,//Прошлая координата строки слова в сетке кроссворда
    LastCFCW,//Прошлая координата столбца слова в сетке кроссворда
    LastLW : Integer;//Последнее значение длины слова
    gWordLine,//Направление текущего слова в сетке кроссворда
    LastGWL: WideChar;//Прошлое направление слова в сетке кроссворда
    CellState: array of array of TCellState;указатель
    CountCellInWord: Word;
    SelectedWordToEdit: String;

Ну и где умышленное зло? За стек не вышел.

Простите, один бит конечно же, но машине быстрее оперировать с байтами, потому и тип имеет размер в 1 байт. Или тебя после плюсовского bool смутило продолжение такое дииинное ['lean]Да?

Мне это не грозит - оборудования для тестирования нету ;)

смог бы ncurses/ascii версию? Помог бы с тестированием, возможно критикой, предложениями, патчами.

совершенно ненужное байтопетушение, шизофазийный автор-школьник с лазарусом, быдлокроссворды… беда никогда не приходит одна

Знову москалi треклятiе людей ображают

Далее идёт язык кроссворда логического типа, boolean, 1 байт.

Почему не строка со стандартными «ru», «en», «de»,.. ?

Ну, тут как с национальностью: да или нет.

Не-е, «да», «нет», «таки да», «таки нет» и «а почему вы спрашиваете?». Иначе это не национальность.

Заранее поддерживать только два языка при том, что можно сделать, например, char'ом (не знаю, как там в лазарусе правильно), и иметь 256, занимая при этом тот же байт, — немного странное решение. Он тебе на это и намекнул, а ты тут с булеанами своими.

смог бы ncurses/ascii версию? Помог бы с тестированием, возможно критикой, предложениями, патчами.

Можно пояснить?

Знову москалi треклятiе людей ображают

А вы первые начали. Разговариваете с людьми как попало: «ССЗБ, RTFM, Endianless, ЗЫ, УМВР». Какие проблемы? Всё в норме. :) Нынче нужно уважать людей.

Почему не строка со стандартными «ru», «en», «de»,.. ?

Да, конечно, я забыл об остальных языках, но на это есть объективные причины. Мне ещё никто не написал о помощи в разработке, кроме одного нашего человека. Так, что «de» и все остальные извиняйте - в будущем подправлю :) А Пока Русский - истина, English - ложь. ;)

Заранее поддерживать только два языка при том, что можно сделать, например, char'ом (не знаю, как там в лазарусе правильно), и иметь 256,занимая при этом тот же байт, — немного странное решение. Он тебе на это и намекнул, а ты тут с булеанами своими.

Понятно - мы же не в «Угадай мелодию» играем.

Разговариваете с людьми как попало: «ССЗБ, RTFM, Endianless, ЗЫ, УМВР». Какие проблемы? Всё в норме. :) Нынче нужно уважать людей.

Как-нибудь после школы почитайте - http://ru.wikipedia.org/wiki/Порядок_байтов (видимо в английском вы просто не сильны и слово Endianless вас повергает в шок). Сделаю подсказку: содержимое файлов для идентичных кроссвордов на LE и BE процессорах будет разное.

Да, конечно, я забыл об остальных языках, но на это есть объективные причины. Мне ещё никто не написал о помощи в разработке, кроме одного нашего человека. Так, что «de» и все остальные извиняйте - в будущем подправлю :) А Пока Русский - истина, English - ложь. ;)

Тебя не про то спросили. Тебя спросили, на кой тебе в структуре файла boolean, если информации он несет меньше byte, а занимет тот же 1 байт? То есть, это ни разу не проще делать, не меньше занимает, но выглядит абсолютно противоестественно. Ну и поясни после этого, разве ты не Буратина?

Я плакал. Так вот почему dvd-iso'шник у Debian PowerPC всего один. Ну тогда я официально заявляю, что текущих поддерживаемых платформ и архитектур мне хватит :) Благодарю!

Смысл его заключается в создании открытого стандарта файла кроссвордов для всех компиляторов, независимо от платформы или языка.(Скажите это диагноз?! ;) )

Вам еще не поставили диагноз?

Не ну на текущий момент это так, в будущем, при появлении соответствующего оборудования - всё будет меняться. Я своих слов не отменял. P.S. А диагноз нужно ставить тем, кто такие стандарты(порядок байтов и всего остального) придумывает. :)

За стек не вышел.

сте-ек?!?!

Следуй-ка ты строго за Томми.

Уж для такой небольшой структуры данных, как кроссворд, можно было сделать xml или даже plain text. Я ещё понимаю, когда речь идёт о гигабайтах...

Так, что «de» и все остальные извиняйте - в будущем подправлю :)

Ага, и создашь несовместимость с уже сохранёнными кроссвордами. То есть у тебя уже заранее запланированная проблема, которую потом придётся решать.

Не лучше ли сразу хотя бы 2 символа под код языка отвести? Это тебя никак не обязывает их все поддерживать, а от геморроя в будущем избавит.

Кстати, у китайцев есть претензии к двухбайтовому юникоду :)

это когда uses crt, или uses ncurses ;)

Это ты конечно, молодец, но двоичный формат тут совершенно неоправдан. В остальное не вникал.

не взлетит

Судя по тому, как автор заморочился с форматом файла, рабочей программы у него не будет никогда. Если так путаться в общении с памятью, проблемы со скоростью создания кроссвордов (это, кстати, единственное место в программе, где нужно беспокоиться о производительности) быстро станут неразрешимыми. Я вам открою страшную тайну: если программа составляет кроссворды из строк, такую программу можно сразу выкинуть на помойку! Ни для чего, кроме обучения, она не пригодится. Вообще, NP-задачи с таким багажом знаний не решают. Кто сказал автору, что это легкая тема?

mironov_ivan & unC0Rr
(Qt)Klest-crossword(C++) GNU / Linux Debian 6 amd64 LE создавались кроссворды .xwc
(Qt)Klest-crossword(C++) в системе GNU / Linux Debian 6 PowerPC BE отлично открыл эти бинарные данные.
Внимание вопрос: Endianless относится только к низкому уровню?
P.S. Один прецедент уже есть, поэтому можно поднять вопрос, а lazarus я завтра допроверю.
P.P.S. Да, я всё-таки рискнул самостоятельно это сделать в Qemu :) Всего пока 1,5 суток потратил :)

Уж для такой небольшой структуры данных, как кроссворд, можно было сделать xml

Читаю Флёнова «Компьютер глазами хакера» и удивляюсь, как точно он говорит, что всё это чистый воды мусор(дополнительные технологии), для отката функциональности своих конкурентов ;)

Кстати, у китайцев есть претензии к двухбайтовому юникоду :)

QString(Qt) имеет 2-а байта unsigned short, мне отказаться от этого мощного класса в пользу wchar_t? В будущем я попробую перейти на использование wchar_t, но как их хранить в Lazarus Widestring там же Word?

xwicked

Qt)Klest-crossword(C++)

Что-то не вижу исходников. Пишешь через QDataStream?

да

плохо искал

QDataStream сам разруливает за тебя этот вопрос, сериализуя данные

Читаю Флёнова «Компьютер глазами хакера» и удивляюсь, как точно он говорит, что всё это чистый воды мусор(дополнительные технологии), для отката функциональности своих конкурентов ;)

Огонь и движение? :)

От Lazarus, к сожалению, я так и не смог добиться ответа ни «Да» ни «Нет». Легче IceWM я не знаю, что на эту машину поставить :(
Потому, пусть тестят, у кого нормальное железо есть ;)

хотя, погодь...

lazbuild -B $HOME/folder/project1.lpi

Консольный пример (не)заработал!(без иксов вообще).

procedure TMyApplication.loadCrossword();
const sFileBegin = 'OpenKlest-1.1~';//Начало файла
var handleFile: Integer;//Дескриптор файла кросворда
    i: Integer;//Счётчик для цикла
    j: Integer;//Счётчик для цикла
    iCountImage: Integer;//Счётчик уже созданных изображений(клеток)
    tar: PChar;//Массив для считывания текста из файла
    wCell: Word;//Для 2-хбайтовых значений файла
    wdata: Word;
    lwCell: Longword;//Для 4-хбайтовых значений файла
    wcCell: WideChar;//Для 2-хбайтовых значений файла / направления слова
    rectCell: TRect;//Координаты текущей клетки
    sTemp: WideString;//Переменная для временного использования
    iRowCount: Integer;
    iColCount: Integer;
    sNameCrossword : String;
    bLanguageWords: boolean;
begin
                sNameCrossword := '/home/wicked/project1/crossword1.ok';//Присваивание имени кроссворда для открытия
                iCountImage := 0;//Обнуление переменной
                handleFile := FileOpen(sNameCrossword, fmOpenRead);//Открытие файла для чтения
                GetMem(tar, 14);
                tar^ := #0;
                FileRead(handleFile, tar^, 14);//Чтение начала файла('OpenKlest-1.1~')
                sTemp := String(tar);
                //Для Windows
                //SetLength(sTemp, 14);

                if sTemp <> sFileBegin then
                begin
                     writeln('Error opens file!');
                     Exit;
                end;

                FileRead(handleFile, bLanguageWords, 1);//Чтение языка слов кроссворда
                FileRead(handleFile, lwCell, 4);//Чтение количества строк сетки кроссворда
                iRowCount := lwCell;
                WriteLn(lwCell);
                FileRead(handleFile, lwCell, 4);//Чтение количества столбцов сетки кроссворда
                iColCount := lwCell;
                WriteLn(lwCell);
                FileRead(handleFile, lwCell, 4);//Чтение ширины(высоты) ячейки сетки кроссворда
                WriteLn(lwCell);

                    for i := 0 to iRowCount - 1 do
                        for j := 0 to iColCount - 1 do
                            begin
                                FileRead(handleFile, wCell, 2);//Чтение значения цвета ячейки
                                Dec(wCell);//Минус 1 :)
                                wcCell := WideChar(wCell);//Преобразование в символ
                                WriteLn(wcCell);
                            end;

                FileRead(handleFile, lwCell, 4);//Чтение количества слов
                WriteLn(lwCell);

                    //Заполнение списка строк значениями из файла
                    for i := 0 to lwCell - 1 do
                        begin
                            FileRead(handleFile, wCell, 2);
                            wcCell := WideChar(wCell);
                            WriteLn(wcCell);
                        end;

                    for i := 0 to lwCell - 1 do
                        begin
                            FileRead(handleFile, wCell, 2);
                            wcCell := WideChar(wCell);
                            WriteLn(wcCell);
                        end;

                    for i := 0 to lwCell - 1 do
                        begin
                            FileRead(handleFile, wCell, 2);
                            wcCell := WideChar(wCell);
                            WriteLn(wcCell);
                        end;

                    for i := 0 to lwCell - 1 do
                        begin
                            FileRead(handleFile, wCell, 2);
                            wcCell := WideChar(wCell);
                            WriteLn(wcCell);
                        end;

                    Freemem(tar);//Очистка массива от букв

                //Флаг конца файла не загружается('~OpenKlest')
                FileClose(handleFile);//Закрытие файла
end;

234234234234//17
23423423423//17
23423423423//30
?//c
?//b
?//c
?//b
?//b

В будущем, попробую использовать файловые потоки, вдруг поможет!?
Есть ещё конструктивная критика? ;)