|
Вопрос # 4 098/ вопрос открыт / |
|
Здравствуйте, эксперты!
Подскажите как вывести текст в Memo из вшитого в exe текстового файла (*.txt). Интересует кодовая часть.
 |
Вопрос задал: Shouldercannon (статус: Посетитель)
Вопрос отправлен: 28 апреля 2010, 02:00
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 28 апреля 2010, 15:58; участников в обсуждении: 3.
|
Егор (статус: 10-ый класс), 28 апреля 2010, 04:32 [#1]:
а если просто вывести в мемо последовательность, в которой все символы могут быть текстом? те.е если в последовательности встречаются не текстовые символы, то такую последовательность игнорировать.
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
min@y™ (статус: Доктор наук), 28 апреля 2010, 08:35 [#2]:
Цитата (Shouldercannon):
вшитого в exe текстового файла
Каким образом вшитого? Как ресурс?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Shouldercannon (статус: Посетитель), 28 апреля 2010, 13:31 [#3]:
Дело обстоит так. Я создал текстовый файл 000.txt в котором есть некий текст. Далее я создал data.rc где прописал следующее: text txt "text.txt". Дальше я окрыл свой проект и Project -> Add to Project -> data.rc. Тем самым я поместил *.txt в exe (вшил). А теперь нужно вывести содержимое вшитого *.txt в Memo1 по нажатию на кнопку. Вот тут я и застопорился.
Знаю как загружать из ресурса: JPG (LoadJPEGFromRes('logo', Image1.Picture)), звуки (sndPlaySound('change', SND_RESOURCE or SND_ASYNC)), HTML (res://c:\myhtmldelphi.exe/DELPHIINDEX), а с TXT не знаю.
|
|
|
min@y™ (статус: Доктор наук), 28 апреля 2010, 15:10 [#4]:
Понятно.
Воспользуйся TResourceStream.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Shouldercannon (статус: Посетитель), 28 апреля 2010, 15:58 [#5]:
[code]procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TResourceStream;
begin
Stream := TResourceStream.Create(HInstance, 'text', 'txt');
Memo1.Lines.LoadFromStream(Stream);
Stream.Free;
end;[/code]
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
