Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Хранение большого количества текста в exe, Чтоб exe содержал весь необходимый текст 
:(
    Опции темы
SherbAnt
Дата 25.4.2007, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 12.1.2007

Репутация: нет
Всего: 3



Здравствуйте, уважаемые.
ПРЕДЫСТОРИЯ: По заданию препода написал программу для проведения тестов для дистанционного обучения. Вопросы прога загружает из одного файла, а ключь правельных ответов из другого. Так препод сказал, что нужно всю информацию "закачать" в EXE-шник (т.е. чтобы был только exe файл проги и всё). Я ему говорю, что тогда нельзя будет обновлять вопросы и т.д. Предложил просто шифровать файлы. Он говорит что нет. Типа для твоего развития.
ВОПРОС: Как в exe-шникехранить очень много текста? Memo не предлогать (ну покрайне мере в стандартном исполнении). Пишу на Borland Delphi 7.

Заранее благодарю.
PM MAIL Skype   Вверх
Matematik
Дата 25.4.2007, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50



Заведи отдельный модуль с константами
PM MAIL WWW ICQ   Вверх
SherbAnt
Дата 25.4.2007, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 12.1.2007

Репутация: нет
Всего: 3



А поподробнее?

Код


program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};                <--- ЭТО ТУТ?  
  Unit1 in 'ЧТО-ТО.pas';                           Типа вот так?

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
///////////////////////////////////////////////////////////////////


Я языки пока не глубоко знаю. С модулями не работал.

Это сообщение отредактировал(а) Alexeis - 25.4.2007, 14:44
PM MAIL Skype   Вверх
Insert
Дата 25.4.2007, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1



File - New - Unit 
Там создавай константы или записи в них храни текст
не забудь подключить свой модуль к остальным с помощью Alt + F11
--------------------
пьяный русский кодер практически непобедим
PM MAIL   Вверх
a_n_d_y
Дата 25.4.2007, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 81
Регистрация: 23.10.2006
Где: Ukraine::Kiev

Репутация: нет
Всего: 1



Код

unit Constants;

interface

const
    text1 = "Preved";
    text2 =  "Here will be a lot of constants";

implementation
end.

PM MAIL ICQ Skype MSN   Вверх
Letov
Дата 25.4.2007, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 22.2.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 4



Создай двумерный массив типа string. В него заноси вопросы и ответы.
Код

type k: Array[1..2] of string;
var a: Array[1..'количество вопросов'] of k;
begin
a[1, 1]:='Вопрос 1';
a[1, 2]:='Ответ 1';
a[2, 1]:='Вопрос 2';
a[2, 2]:='Ответ 2';
{И так далее}
end;


Это сообщение отредактировал(а) Letov - 25.4.2007, 14:40


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...

PM MAIL   Вверх
Snowy
Дата 25.4.2007, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Ты сейчас берёшь данные из файла?
Вот закатай файл в ресурсы и грузи его через TResourseStream.
PM MAIL   Вверх
Alexeis
Дата 25.4.2007, 14:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



А че разве не проще текстовый файл целиком в ресурс запихнуть?


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
SherbAnt
Дата 25.4.2007, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 12.1.2007

Репутация: нет
Всего: 3



Спасибо.
Как всё просто оказалось.   smile 
PM MAIL Skype   Вверх
Alexeis
Дата 25.4.2007, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



 опоздал smile 
Вот еще, можно текст ZLib ом сжать, чтобы меньше места занимал, его сохранить в бинарник, а бинарник в ресурс. От туда его достаем как сказал Snowy потом ZLib распаковываем, а потом этот поток хоть в мемо хоть в стринглист.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1332 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.