Куда деваются строки в TStringList

[lux16]

Сообщение от JekaDefer

)) арррр.... над не то что в мемо сохранить... над то что в TStringList сохранить без использования мемо. мемо эт я так, для наглядности на форму кинул...

Ну вместо Memo2.Lines.SaveToFile() напиши sl2.SaveToFile(). Только тебе придется сделать твои списки TStringList сделать общедоступными, то есть public. И будешь работать с одной переменной, никакой сложности

[evg_m]

дело в том что Memo.Lines это не простые строки Delphi. Это еще и windows API, а там строка - это что ЗАКАНЧИВАЕТСЯ #0. А при шифровании (преобразовании строки) вы почти наверняка получаете этот самый #0. И все что дальше windows API будет проигнорировано (т.е. невидимо).

[JekaDefer]

Было б все так просто не спрашивал бы)) Короче смысл в том что если написать после заполнения с накладкой шифра в Sl2 то после цикла Sl2.SaveToFile('xxx.txt') запишет в файл только кусок того что в Sl2. и в Public зачем вообще так и не понял)

[lux16]

Сообщение от JekaDefer

Было б все так просто не спрашивал бы)) Короче смысл в том что если написать после заполнения с накладкой шифра в Sl2 то после цикла Sl2.SaveToFile('xxx.txt') запишет в файл только кусок того что в Sl2. и в Public зачем вообще так и не понял)

Стоп, я не понял, что именно ты хочешь засунуть в текстовый файл ? Объясни толком

[JekaDefer]

Сообщение от evg_m

дело в том что Memo.Lines это не простые строки Delphi. Это еще и windows API, а там строка - это что ЗАКАНЧИВАЕТСЯ #0. А при шифровании (преобразовании строки) вы почти наверняка получаете этот самый #0. И все что дальше windows API будет проигнорировано (т.е. невидимо).

То есть получается что способа хранить данные нормального так и нет? вот у меня есть куча массивов: в первом строки (не факто что <255 символов), во втором целые числа по всему диапазону Integer, в третьем Boolean и тд... мне просто тут кто то сказал недавно что я плохо искал и типо все хранят в TStringList, но блин у меня все массивы потом должны шифроваться и храниться в файле, и дальше файл не изменяется а только идет считывание шифрованных данных и преобразование обратно в массив. и в файле не должно прослеживаться последовательностей. вот уже 3 день бьюсь с этим StringListom)))) похоже лучше чем я придумал сохранять абсолютно любые данные нельзя. и чтоб в файле не было резервирования под String и тд..

[lux16]

Сообщение от JekaDefer

То есть получается что способа хранить данные нормального так и нет? вот у меня есть куча массивов: в первом строки (не факто что <255 символов), во втором целые числа по всему диапазону Integer, в третьем Boolean и тд... мне просто тут кто то сказал недавно что я плохо искал и типо все хранят в TStringList, но блин у меня все массивы потом должны шифроваться и храниться в файле, и дальше файл не изменяется а только идет считывание шифрованных данных и преобразование обратно в массив. и в файле не должно прослеживаться последовательностей. вот уже 3 день бьюсь с этим StringListom)))) похоже лучше чем я придумал сохранять абсолютно любые данные нельзя. и чтоб в файле не было резервирования под String и тд..

Как это у тебя в одном массиве одно, в другом другое ? Всю постановку задачи пожалуйста в студию

[JekaDefer]

ну грубо говоря над хранить подобную структуру:

TSaveBases = record
    Answervisible: Boolean;                           // Отображение поля с вопросами
    Questvisible: Boolean;                            // Отображение поля с ответами
    nbases: integer;                                  // Колличество баз
    bases: array [1..100] of String;                  // Массив с базами
    nphrases: array [1..100] of Integer;              // Колличество фраз
    ncheckphrases: array [1..100] of Integer;         // Кол-во выделенных фраз
    CheckRnd: array [1..100] of Bool;                 // Случайно или нет
    nRnd: array [1..100] of Integer;                  // Количество случайных фраз
    phrases: array [1..100,1..1000] of String;        // Массив с фразами
    checkphrases: array [1..100,1..1000] of Boolean;  // Массив с отмеченными фразами
    StartPhrase: String;                              // Стартовая фраза
  end;

И все должно быт зашифровано и файл не должен весить больше чем набрано в эту запись.

Фиг знает но нашел ток один метод.. описанный тут http://http://programmersforum.ru/sh...=200174&page=2 в 13 посте.

[Utkin]

Ну я конечно не уверен, но можно запихнуть в TFileStream. А оттуда в файл, а оттуда каким-нибудь rarom зарарить Может размер и меньше получится...

[3D Hunter]

Про типизированные файлы читали? Пишите туда весь ваш массив рекордов и считывайте одной процедурой, откуда такие проблемы у вас?

[JekaDefer]

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