как в программе при открытии формы сделать так, чтобы сразу выводился текстовый файл в memo?

@katya · Регистрация: 21.03.2012

Студворк — интернет-сервис помощи студентам

@katya · 03.04.2012, 23:59 **[ТС]**

исправила и теперь он вообще текст не выводит((

@Mawrat · 04.04.2012, 08:36

katya, приложи к сообщению 5 файлов: *.dpr, unit3.pas, form3.dfm, unit7.pas, form7.dcu - я посмотрю их.

@katya · 04.04.2012, 10:36 **[ТС]**

unit3_7.rar

@Mawrat · 04.04.2012, 11:01

Я посмотрел код. В Form7 для события OnShow не назначен обработчик. Сам обработчик имеется:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm7.FormShow(Sender: TObject);
begin
  {if knop=3   then
  memo1.Lines.add('3.txt');
  end;    }
  if knop=3 then
    memo1.Lines.add('knop')
  else
    memo1.Lines.LoadFromFile('1.txt');
end;

Но он никак не связан с событием OnShow. Чтобы связать этот обработчик с событием OnShow, надо сделать следующее. В дизайнере форм перейти на форму Form7. Открыть инспектор объектов (F11) и перейти на его закладку "Events". На этой закладке надо найти строку "OnShow" и в поле этой строки выполнить двойной щелчок левой кнопкой мыши. - Тогда, обработчиком этого события автоматически назначится метод TForm7.FormShow(). После этого весь проект надо сохранить и скомпилировать.

@Alex_pac · 04.04.2012, 11:05

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm7.FormShow(Sender: TObject);
begin
  {if knop=3   then
  memo1.Lines.add('3.txt');
  end;    }
  if knop=3 then
    memo1.Lines.add('knop')
  else
    memo1.Lines.LoadFromFile('1.txt');
end;

ну вы что тут уже 3 страницы голову ломаете?

Delphi
1
memo1.Lines.LoadFromFile('ПУТЬ К ФАЙЛУ');

следовательно там должен быть абсолютный путь к файлу. например

Delphi
1
 memo1.Lines.LoadFromFile('C:\1.txt');

или если в папке с программой то

Delphi
1
 memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'1.txt');

@Mawrat · 04.04.2012, 11:09

Здесь в другом проблема была.

- Метод TForm7.FormShow() не был назначен в качестве обработчика события OnShow. Т. е., метод TForm7.FormShow() был вставлен в код модуля без привязки к событию.

@katya · 04.04.2012, 11:15 **[ТС]**

Спасибо Вам огромное!!! все получилось

@r@di0 · 04.04.2012, 11:31

Не по теме:

Mawrat, Вам +10 за выдержку :)

@katya · 04.04.2012, 11:33 **[ТС]**

это точно) ну, что поделать) не сильна я в Delphi...

@Mawrat · 04.04.2012, 11:42

Для этого форум и существует - для помощи друг другу.

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@katya 6 / 6 / 0 Регистрация: 21.03.2012 Сообщений: 184

	как в программе при открытии формы сделать так, чтобы сразу выводился текстовый файл в memo? 03.04.2012, 20:10. Показов 6349. Ответов 29 Метки нет (Все метки) как в программе при открытии формы сделать так, чтобы сразу выводился текстовый файл в memo? 0

@katya 6 / 6 / 0 Регистрация: 21.03.2012 Сообщений: 184
	03.04.2012, 23:59 [ТС]
	исправила и теперь он вообще текст не выводит(( 0

@Mawrat 13117 / 5898 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	04.04.2012, 08:36
	katya, приложи к сообщению 5 файлов: *.dpr, unit3.pas, form3.dfm, unit7.pas, form7.dcu - я посмотрю их. 0

@katya 6 / 6 / 0 Регистрация: 21.03.2012 Сообщений: 184
	04.04.2012, 10:36 [ТС]
	unit3_7.rar 0

@Mawrat 13117 / 5898 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	04.04.2012, 11:09
	Здесь в другом проблема была. - Метод TForm7.FormShow() не был назначен в качестве обработчика события OnShow. Т. е., метод TForm7.FormShow() был вставлен в код модуля без привязки к событию. 2

@katya 6 / 6 / 0 Регистрация: 21.03.2012 Сообщений: 184
	04.04.2012, 11:15 [ТС]
	Спасибо Вам огромное!!! все получилось 0

@r@di0
	04.04.2012, 11:31
	Не по теме: Mawrat, Вам +10 за выдержку :) 1

@katya 6 / 6 / 0 Регистрация: 21.03.2012 Сообщений: 184
	04.04.2012, 11:33 [ТС]
	это точно) ну, что поделать) не сильна я в Delphi... 1

@Mawrat 13117 / 5898 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	04.04.2012, 11:42
	Для этого форум и существует - для помощи друг другу. 1