[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;

[Konrad]

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

состоит из элементов типа: boolean, integer, TColor, String[10].

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

Код:

1. function encoder(Text : string):String;//шифратор

И у него сразу же получится ошибка

[Ferra]

Паскалевский подход к файлам, описанный выше, в данном случае не очень удобен. Юзай TStream.

[NIch]

И у него сразу же получится ошибка

Я просто показал вариант кодирования/декодирования строк структуры при операциях с файлами...Не привязываясь к типу данных...
При том, что он не указал с какими данными работает применяемый им алгоритм шифрования, я выбрал тип наугад...
Все типы данных можно привести к другому...просто перед шифрованием нужно его даные конвертировать в нужный тип данных...
Насчет паскалевского подхода, он работает и все тут...с файлами можно работать по разному...этот метод нагляднее...

[Konrad]

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

Я просто показал вариант кодирования/декодирования строк структуры при операциях с файлами...Не привязываясь к типу данных...

Если он применит твой пример у автора темы сложиться довольно таки неудачное мнение. И получится как с некоторыми другими товарищами - ужаснейшая программа.

[NIch]

ОК Konrad
Но мог бы и показать как это реализовать, а не цитировать и критиковать меня...
Если есть мнение отличное от моего выскажи его, а показывать мне на мои ошибки нелепо, т.к. я предложил версию как вариант, а не готовое решение обязательное к исполнению...

[UltraBloxX]

Ну можно вообще после записи заXORить файл.

[NIch]

Можно, но это защита от дураков...
Хотя XOR практически неломаем при длине пароля равном или большем длине сообщения...ИМХО...