[Mixali4]

Есть 4 массива, каждый состоит из элементов типа запись, для каждого своя; каждая запись в свою очередь состоит из элементов типа: boolean, integer, TColor, String[10].
Так вот вопрос: в какого типа файле все это удобнее всего хранить? Чтобы при загрузке программы данные загружались, и когда нужно сохранялись.
Пробовал создавать запись, содержащую эти 4 массива, но при большом количестве элементов массива возникает ошибка при записи в типизированный файл

[Страдалецъ]

Для удобства и скорости доступа, конечно лучше типизированный файл.
Скорее всего вы что-то неправильно делали при сохранении, а ошибок быть не должно при создании типизированного файла, независимо от количества данных.
Код в студию.

[Mixali4]

Спасибо, сам думал насчет типизированных файлов.
Разобрался почему не работало, вопрос отпадает

просто делал так:

Код:

......
var f: File of TMGraph;
    g: TMGraph;
begin
 assignfile(f,FilePath.Text);
 rewrite(f);
 write(f,g);
 closefile(f);
end;
.......

хотя данные все писались в глобальную переменную, которую теперь здесь и указал:

Код:

......
var f: File of TMGraph;
begin
 assignfile(f,FilePath.Text);
 rewrite(f);
 write(f,graph);
 closefile(f);
end;
.......

теперь все работает и сохраняет.
Писал куски кода в разные дни, и забыл

тут попутно возник еще вопросик:
как бы эти данные по пути зашифровывать и расшифровывать. Сам алгоритм шифрования знаю, просто не совсем понятно в какой момент производить шифрование и в какой структуре хранить информацию.
В общем то можно создавать файл, потом его открывать чтобы зашифровать, и это содержимое сохранять в файл, а первый - удалять. А еще какой-нибудь способ есть?

[Страдалецъ]

Обычно шифрование идет при записи в файл соответственно дешифровка при чтении из файла. Т.е. само приложение работает с нормальными данными.

[Mixali4]

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

[NIch]

К примеру есть 2 Функции вида:
1. function encoder(Text : string):String;//шифратор
2. function decoder(Code : string):String;//дешифратор
Одна из реализаций...
Чтение из файла...читаем дешифруем

Код:

type
 Trec : record;
  rec1 : string;
  rec2 : string;
 end;
...
var
 Rec : Trec;
begin
 assignfile...
 reset...
 read(file, rec);
 closefile...
 with rec do
 begin
  rec1 := decode(rec1);
  rec2 := decode(rec2);
 end;
end;

Запись в файл...шифруем записываем

Код:

type
 Trec : record;
  rec1 : string;
  rec2 : string;
 end;
...
var
 Rec : Trec;
begin
 with rec do
 begin
  rec1 := encode(rec1);
  rec2 := encode(rec2);
 end;
 assignfile...
 rewrite...
 wrile(file, rec);
 closefile...
end;