Можно ли сохранить структурированный текст непосредственно в программе?

[Phranc]

Можно ли сохранить текст непосредственно в программе? Используя Мемо или RichEdit? Чтобы при перезапуске программы текст в этих полях не удалялся. Подскажите, пожалуйста, каким образом можно все это реализовать. Может, есть какие-то другие пути. Заранее благодарю!

[Stilet]

Это не очень просто...
Рекомендую использовать сторонний файл. из которого подгружай текст.

[raxp]

...ресурсы например.

[Phranc]

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

Это не очень просто...
Рекомендую использовать сторонний файл. из которого подгружай текст.

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

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

...ресурсы например.

А можно поподробнее, если не трудно?

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

[Stilet]

Поэтому необходимо чтобы все было "упаковано" в exe-шнике.

ой держите меня четверо )))))))))))))))
А ты что же это решил что из Экзешника их будет достать сложно?
Я тебя горько разочарую - есть кучища программ которыми даже ребенок сможет распотрошить твой экзешник.

как-нибудь прочитать информацию из запороленного, заархивированного текстового файла?

Во-о-о-о. Наконец то ты в нужную сторону смотришь.
Пусть будет сторонний файл, но в него ты зашифровывай данные одним из надежных алгоритмов.

[Phranc]

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

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

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

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

Во-о-о-о. Наконец то ты в нужную сторону смотришь.
Пусть будет сторонний файл, но в него ты зашифровывай данные одним из надежных алгоритмов.

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

[Stilet]

А если будет отдельный файл, то им интересно будет его помучить.

А ты дай ему расширение DLL и скажи что это плагин к программе, там все равно будет шифровка, так что неопытные не отличат ее от обычной ДЛЛ.

существуют ли специальные компоненты для этого?

По-моему для Рара есть компонент, но я о нем ничего не знаю.

[Kotofff]

существуют ли специальные компоненты для этого?

Какая версия Delphi ?
Просто для Delphi 7 и ниже есть компонент (давно заброшенной фирмы) DataFile - это аналог INI-шек только он шифрует содержимое.
http://programmersforum.ru/showpost....6&postcount=17

[Phranc]

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

Какая версия Delphi ?
Просто для Delphi 7 и ниже есть компонент (давно заброшенной фирмы) DataFile - это аналог INI-шек только он шифрует содержимое.
http://programmersforum.ru/showpost....6&postcount=17

Я использую Delphi 7. А не могли бы вы подробнее рассказать. Я только начинаю программировать. Как я понял, с помощью этой компоненты можно сделать зашифрованный файл?

[Kotofff]

Как я понял, с помощью этой компоненты можно сделать зашифрованный файл?

Нет. Так все само шифруется. Тебе только использовать функции остается.
Там в DataFile.pas они все перечислены. Нужно просто в uses прописать DataFile и использовать функции.
Определяем переменную :

__Config:TDataFile;

Пример:

// пишем в файл
procedure WriteConfig;
begin
  __Config:=TDataFile.Create(FullPathToProgramm + iniFileName);
  with __Config do
    begin
    WriteString('main','skin',__SkinName);// имя скина
    WriteInteger('main','font',__FontSize);// размер шрифта
    WriteBoolean('main','tray', __HideToTray);// прятаться в трей
    end;
  __Config.Free;
end;

// читаем из файла
procedure ReadConfig;
begin
  __Config:=TDataFile.Create(FullPathToProgramm + iniFileName);
  with __Config do
    begin
    __SkinName := ReadString('main','skin', Skin_Default);
    __FontSize := ReadInteger('main','font',FontSizeDefault);
    __HideToTray := ReadBoolean('main','tray', false);
    end;
 __Config.Free;
end;