Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
rusik1994
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
1

Как .txt загнать в exe?

08.12.2012, 22:02. Просмотров 1642. Ответов 32
Метки нет (Все метки)

написал такую программу,выбираешь в combobox название стихотворения а в memo выводится весь стих который читается из текстового файла.проблема в том что при переносе exe нужно копировать и txt файлы плюс еще указывать пути к файлам,как txt загнать в exe

Добавлено через 5 минут
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2012, 22:02
Ответы с готовыми решениями:

Как внедрить TXT файл в EXE программу?
Здравствуйте! Кто знает как внедрить TXT файл в EXE программу? Примеры в...

Как встроить файл (File.txt) в exe-файл проекта?
Как встроить файл (File.***) в exe-файл проекта? Чтоб exe мог...

Как загнать число вместо указателя на TObject ?
Доброго вечера, Уважаемые. Хочу загнать в свойство StringGrid.Objects числовое...

Как присоединить к exe файлу произвольный файл, а при запуске exe файла открыть его
Есть файл, который представляет из себя набор других файлов ) и есть exe файл,...

как перевести информацию из Мемо в фаил txt и обратно из txt в мемо
Подскажите пожалуйста, как перевести информацию из Мемо в фаил txt и обратно из...

32
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
08.12.2012, 23:16 21
Я же говорил - посчитай. Массив указан на 37 элементов, у тебя использовано только 3.
Delphi
1
2
3
const
  n = 3;
  MyText:array[0..n - 1] of String = ('мой край.txt', 'мой дагестан.txt', 'журавли.txt');
пиши тогда так, и не забывай про размерность при добавлении новых имён файлов.
P.S. Массив желательно делать глобальным, а не объявлять в процедуре.
0
Крюгер
40 / 60 / 8
Регистрация: 16.11.2012
Сообщений: 437
Записей в блоге: 9
Завершенные тесты: 1
08.12.2012, 23:18 22
rusik1994, сделай тупо драгэнддроп и не парься, накидал файлы, в лист например и выбрал нужный, всё! зачем себе геморрой делать?
---
как драг/дроп делать не спрашивай, пошлю в гугл
1
rusik1994
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
08.12.2012, 23:19  [ТС] 23
как сделать можно по подробнее?
0
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
08.12.2012, 23:21 24
Не самый лучший совет, с учётом того, что имена файлов заранее известны. Осталось их только загружать в нужное время.
1
FIL
Модератор
3419 / 2555 / 726
Регистрация: 19.09.2012
Сообщений: 7,923
08.12.2012, 23:32 25
Цитата Сообщение от rusik1994 Посмотреть сообщение
Delphi
1
2
3
procedure TForm1.FormCreate(Sender: TObject);
  const n=3;
  MyText:array[0..n] of String = ('мой край.txt', 'мой дагестан.txt', 'журавли.txt');
От 0 до 3 вообще-то 4 получается. n=2 сделай.

Добавлено через 9 минут
Не обновился...
Цитата Сообщение от angstrom Посмотреть сообщение
Я же говорил - посчитай. Массив указан на 37 элементов, у тебя использовано только 3.
Delphi
1
2
3
const
  n = 3;
  MyText:array[0..n - 1] of String = ('мой край.txt', 'мой дагестан.txt', 'журавли.txt');
пиши тогда так, и не забывай про размерность при добавлении новых имён файлов.
P.S. Массив желательно делать глобальным, а не объявлять в процедуре.
1
rusik1994
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
08.12.2012, 23:32  [ТС] 26
не идет че то,,,,ладно Утро вечера мудренее завтра посмотрю на свежую голову,,,всем спасибо если че завтра напишу
0
Крюгер
40 / 60 / 8
Регистрация: 16.11.2012
Сообщений: 437
Записей в блоге: 9
Завершенные тесты: 1
08.12.2012, 23:33 27
rusik1994, если драг/дропом то :
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses shellapi;
 
private
procedure WMDROPFILES(var Msg: TMessage); message WM_DROPFILES;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, true);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, False);
end;
 
procedure TForm1.WMDROPFILES(var Msg: TMessage);
var
  Drop: HDROP;
  buf: array [0..255] of Char;
  i, cnt: integer;
begin
  Drop:=Msg.WParam;
  cnt:=DragQueryFile(Drop, $0ffffffff, @buf, SizeOf(buf));
  for i:=0 to cnt-1 do
ListBox1.Items.Add(Copy(buf, 1, DragQueryFile(Drop, i, @buf, SizeOf(buf))));
DragFinish(Drop);
end;
 
//ну вот как то так...метод копипаст ту не пройдет, как воткнуть сам разберись...
Filename:=ListBox1.Items.Strings[i]; //так можешь узнать адрес выделенного файла
1
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
08.12.2012, 23:38 28
Вот такой вариант:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const
  n = 3;
  MyText : array[0..n - 1] of String = ('мой край.txt', 'мой дагестан.txt', 'журавли.txt');
 
procedure TForm1.FormCreate(Sender: TObject);
var
  I : Integer;
begin
  ComboBox1.Items.Clear; // очистим от информации ввведённой в Design-Time
  for I := 0 to n - 1 do
    ComboBox1.Items.Add(MyText[I]);
end;
 
procedure TForm1.ComboBox1.Change(Sender: TObject);
begin
  if FileExists(MyText[ComboBox1.ItemIndex]) then
    Memo1.Lines.LoadFromFile(MyText[ComboBox1.ItemIndex]);
end;
1
rusik1994
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
09.12.2012, 10:05  [ТС] 29
так тоже пойдет,всем саул
0
Power!
2 / 2 / 0
Регистрация: 25.09.2012
Сообщений: 148
09.12.2012, 11:54 30
яб проще сделал!все стихи в итеминдекс поместилбы.
1
rusik1994
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
12.12.2012, 15:40  [ТС] 31
эт еще как?
0
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
12.12.2012, 17:09 32
Наверное имеет в виду метод AddObject, жаль только программа бессмысленно раздуваться будет.
1
rusik1994
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
12.12.2012, 17:16  [ТС] 33
напиши пример как это сделать?
0
12.12.2012, 17:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2012, 17:16

Как создать конвертер (fb2->txt,txt->fb2)
Здраствуйте. Кто знает где можна достать исходник...

Создайте txt-файл с именем yandex_74592cbadf7492e5.txt с произвольным содержимым (можно пустой)
1. Создайте txt-файл с именем yandex_74592cbadf7492e5.txt с произвольным...

написать программу, которая берёт данные из input.txt решает их по формуле и ответ заносит в output.txt
Помогите пожалуйста разобраться с input.txt и output.txt Допустим, надо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
33
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru