Загрузка текста из файла без диалогов

@Vitorrio · Регистрация: 12.02.2010

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

Как сделать чтобы не окно выскакивало а сразу по нажатию на кнопку B1 загружался текст из файла

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.B1Click(Sender: TObject);
begin
Filename:= 'file.txt';
    if OpenDialog1.Execute then
     begin
Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
Filename:= OpenDialog1.Filename;
Caption:= Filename;
  end;
end;

А в этом коде выскакивает окно о выборе файла, но зачем тогда Filename:= 'file.txt'; если он все равно просит выбрать файл, код взят из подобной темы Загрузка текста из файла.тхт и еще не понимаю две последние строки зачем..

Добавлено через 19 минут
Разобрался=) Нашел другой код выполнения данной операции:

Delphi
1
2
3
4
5
 if FileExists(ExtractFilePath(Application.ExeName) + 'file.txt') then
  begin
   Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) +
    'file.txt');
  end;

Но теперь другой вопрос а зачем эта строчка if FileExists(ExtractFilePath(Application.E xeName) + 'file.txt') ? Ведь и без нее нормально загружает файл

@HanDi · 08.06.2012, 22:21

Сообщение от Vitorrio

Но теперь другой вопрос а зачем эта строчка if FileExists(ExtractFilePath(Application.E xeName) + 'file.txt') ? Ведь и без нее нормально загружает файл

Если его не существует будет ошибка, а так можно обработать этот момент и сообщить пользователю.
В общем так более рационально использовать загрузку, лучше сразу проверить.

@adidas7 · 08.06.2012, 22:23

насколько я понял он проверяет файл,если он сеществует то загрузить его в memo,вот и все,вроде так=)

@Vitorrio · 08.06.2012, 22:30 **[ТС]**

Понял=)
А как загрузить из файла только определенную строку? т.е. хотелось бы чтобы примерно так код работал:

Delphi
1
Memo1.Lines.LoadFromFile(ExtractFilePath[0](Application.ExeName) +'file.txt');

Но так естественно не работает=(

@robt · 08.06.2012, 22:31

на самом деле , проверяется наличие файла в тойже папке где находится сама программа

to Vitorrio судя по дате регистрации ты на форуме уже 2 года,а прогресс в программировании у тебя минусовой...

@Vitorrio · 08.06.2012, 22:35 **[ТС]**

robt,

Сайт cyberforum большой... тут не одна среда программирования...В любом случае это не твое дело

@HanDi · 08.06.2012, 22:36

Сообщение от Vitorrio

Memo1.Lines.LoadFromFile(ExtractFilePath[0](Application.ExeName) +'file.txt');

ахахах)

То, что ты сейчас написал, это дикий бред.

Прочитать строку из файла можно обычным readln.

Delphi
1
2
3
4
5
6
7
8
9
var f:text;
    s:string;
begin
AssignFile(f,'file.txt');
Reset(f);
while not EOF(f) do begin
    readln(s);
end;
CloseFile(f);

@Vitorrio · 08.06.2012, 22:50 **[ТС]**

HanDi, Знаю что бред, я это написал чтобы ты понял что конкретно я хочу=)

Добавлено через 6 минут

Сообщение от HanDi

Delphi
1
2
3
4
5
6
7
8
9
var f:text;
    s:string;
begin
AssignFile(f,'file.txt');
Reset(f);
while not EOF(f) do begin
    readln(s);
end;
CloseFile(f);

Код вызывает ошибку Exception class EInOutError with message 'I/O error 6'. Process Project1.exe (2588)

@robt · 08.06.2012, 22:54

Сообщение от Vitorrio

Код вызывает ошибку Exception class EInOutError with message 'I/O error 6'. Process Project1.exe (2588)

readln(f,s);

@alexmcoder · 09.06.2012, 12:57

с текстовыми файлами удобно работать через tstringlist
пример

Delphi
1
2
3
4
5
6
7
8
9
10
var
t:tstringlist;
begin
t:=tstringlist.Create;
// загружаем файл
t.LoadFromFile('C:\\1.txt');
// например считываем вторую строку
memo1.Lines.Add(t[2]);
t.free;
end;

@Vitorrio · 09.06.2012, 14:04 **[ТС]**

alexmcoder,
Самый оптимальный вариант,а то с readln(f,s); все пришлось последовательно делать а тут можно сразу любую строку загружать=) но скажите в чем отличие

Delphi
1
2
3
1) Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) +'file.txt');
//и 
2) Memo1.Lines.LoadFromFile('file.txt');

@antikiler_ · 09.06.2012, 14:09

Сообщение от Vitorrio

но скажите в чем отличие

Посмотри тут

Новые блоги и статьи Все статьи Все блоги /
Тестирование Pull Request в Kubernetes с vCluster Mr. Docker 19.07.2025 Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .	Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .	Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .

@adidas7 4 / 4 / 1 Регистрация: 09.02.2012 Сообщений: 65
	08.06.2012, 22:23
	насколько я понял он проверяет файл,если он сеществует то загрузить его в memo,вот и все,вроде так=) 0

@robt 18 / 14 / 2 Регистрация: 08.06.2012 Сообщений: 110
	08.06.2012, 22:31
	на самом деле , проверяется наличие файла в тойже папке где находится сама программа to Vitorrio судя по дате регистрации ты на форуме уже 2 года,а прогресс в программировании у тебя минусовой... 0

@Vitorrio 18 / 8 / 2 Регистрация: 12.02.2010 Сообщений: 200
	08.06.2012, 22:35 [ТС]
	robt, Сайт cyberforum большой... тут не одна среда программирования...В любом случае это не твое дело 0