Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.75
rusik1994
25 / 25 / 5
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
#1

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

08.12.2012, 22:02. Просмотров 1584. Ответов 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? (Delphi):

Как внедрить TXT файл в EXE программу? - Delphi
Здравствуйте! Кто знает как внедрить TXT файл в EXE программу? Примеры в Интернете с большими ошибками или просто нерабочие. Также вопрос...

Как встроить файл (File.txt) в exe-файл проекта? - Delphi
Как встроить файл (File.***) в exe-файл проекта? Чтоб exe мог существовать(работать) сам по себе без сторонних файлов. Очень нужно.

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

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

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

Как создать конвертер (fb2->txt,txt->fb2) - Delphi
Здраствуйте. Кто знает где можна достать исходник конвертера(fb2->txt,txt->fb2), ну и по возможности других текстовых форматов. И ищё: где...

32
саша40
68 / 265 / 25
Регистрация: 14.08.2012
Сообщений: 2,461
08.12.2012, 22:40 #16
Цитата Сообщение от rusik1994 Посмотреть сообщение
я использую не один текстовый файл а где то штук 37
тогда сделай функци загрузки и используй условие Case of.
1
rusik1994
25 / 25 / 5
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
08.12.2012, 23:05  [ТС] #17
даже если создам функции проблема не решиться

Добавлено через 23 минуты
[Error] Unit1.pas(40): Number of elements differs from declaration
ошибка,,,const и размер массива правильные но почему то выводит эту ошибку
0
FIL
Модератор
3379 / 2517 / 480
Регистрация: 19.09.2012
Сообщений: 7,851
08.12.2012, 23:08 #18
Код покажи.
0
angstrom
2469 / 1845 / 65
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
08.12.2012, 23:10 #19
я использую не один текстовый файл а где то штук 37
Значит не совпадает размерность массива
Delphi
1
2
const
  MyText : array[0..36] of String = ...
с количеством введённых имён файлов. Посчитай их внимательно.
0
rusik1994
25 / 25 / 5
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
08.12.2012, 23:13  [ТС] #20
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ComboBox1: TComboBox;
    Image1: TImage;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
const n=3;
 
 
  MyText:array[0..n] of String = ('мой край.txt', 'мой дагестан.txt', 'журавли.txt');
  begin
  memo1.Text:='начните вводить название произведения или выберите из выпадающего списка';
lABEL1.Caption:='Гамзатов Расул Гамзатович';
ComboBox1.Style:=csDropDown;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if FileExists(MyText[ComboBox1.ItemIndex]) then
 
 
 end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Memo1.ScrollBars:=ssVertical;
end;
 
procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\Users\rustam\Desktop\Расул Гамзатов');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
Memo1.Lines.LoadFromFile('C:\Users\rustam\Desktop\Расул Гамзатов\биография.txt');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".
0
angstrom
2469 / 1845 / 65
Регистрация: 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
Крюгер
0 / 60 / 3
Регистрация: 16.11.2012
Сообщений: 431
Записей в блоге: 9
Завершенные тесты: 1
08.12.2012, 23:18 #22
rusik1994, сделай тупо драгэнддроп и не парься, накидал файлы, в лист например и выбрал нужный, всё! зачем себе геморрой делать?
---
как драг/дроп делать не спрашивай, пошлю в гугл
1
rusik1994
25 / 25 / 5
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
08.12.2012, 23:19  [ТС] #23
как сделать можно по подробнее?
0
angstrom
2469 / 1845 / 65
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
08.12.2012, 23:21 #24
Не самый лучший совет, с учётом того, что имена файлов заранее известны. Осталось их только загружать в нужное время.
1
FIL
Модератор
3379 / 2517 / 480
Регистрация: 19.09.2012
Сообщений: 7,851
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 / 5
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
08.12.2012, 23:32  [ТС] #26
не идет че то,,,,ладно Утро вечера мудренее завтра посмотрю на свежую голову,,,всем спасибо если че завтра напишу
0
Крюгер
0 / 60 / 3
Регистрация: 16.11.2012
Сообщений: 431
Записей в блоге: 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
2469 / 1845 / 65
Регистрация: 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 / 5
Регистрация: 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
09.12.2012, 11:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2012, 11:54
Привет! Вот еще темы с ответами:

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

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

Сохранение данных с ListView в .txt и загрузка с .txt - Delphi
Сохранение данных с ListView в .txt и загрузка с .txt Помогите.

Написать программу, которая создает текстовый файл Output.txt, содержащий все числа файла Input.txt, кратные 5 - Delphi
уважаемые программисты помогите пожалуйста сделать задание из контрольной работы. Текстовый файл Input.txt содержит целые числа....


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

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

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