Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.03.2022, 09:02
alexdudchenko2022 alexdudchenko2022 вне форума
Прохожий
 
Регистрация: 16.03.2022
Сообщения: 11
Версия Delphi: XE3
Репутация: 10
По умолчанию Сохранения и загрузка из файла данных

Здравствуйте, проблема в следующем мне нужно что бы при запуске программы создавался файл в определенную директорию и сразу его подгружать в Мемо. Но проблема в том что при открытие программы не успевает обработать и загрузить появляется ошибка нет файла. Но при повторном запуске все хорошо ну это логично потому что файл уже существует.
Вообщем как мне сделать задержку или есть какой то оператор что пока не сохранится файл с данными программу не открываю и только после этого открыть форму программы и загрузить с чистой душой и без ошибок файл с данными в мемо.
Прошу помощи!
Ответить с цитированием
  #2  
Старый 19.03.2022, 09:36
Аватар для Guaho
Guaho Guaho вне форума
Начинающий
 
Регистрация: 27.08.2017
Сообщения: 173
Версия Delphi: Delphi7
Репутация: 10
По умолчанию

Я вижу два пути.
Первый, самый простой - когда приложение запустилось, перед командой загрузки из файла в Мемо проверять, существует ли этот файл (кажись if FileExsists... или что-то в этом роде). Если не существует - тогда его создать, и только после этого загружать (если имеет смысл грузить в Мемо пустой файл).
Второй путь - приложение с несколькими формами. Первая - стартовая, загрузочная (можно с прогресс-баром, если проект сложный), делает все действия (проверяет наличие файла, загружает в Мемо и т.п.), после чего запускает создаёт вторую форму и запускает её в модальном режиме. Вторая форма при этом в настройках проекта должна быть удалена из раздела "Auto-created Forms", т.к. её создание будет прописываться в коде.
Ответить с цитированием
  #3  
Старый 19.03.2022, 14:34
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 339
Версия Delphi: 10.4
Репутация: 429
Сообщение

Всё работает нормально и без ошибок.
Код:
procedure TForm1.FormCreate(Sender: TObject);
const
  FilePath = 'D:\TestFile.txt';
var
  F: TextFile;
begin
  AssignFile(F, FilePath);
  Rewrite(F);
  Writeln(F, 'Text text text');
  CloseFile(F);
  Memo1.Lines.Create.LoadFromFile(FilePath);
end;
Цитата:
Сообщение от alexdudchenko2022
Здравствуйте, проблема в следующем мне нужно что бы при запуске программы создавался файл в определенную директорию и сразу его подгружать в Мемо. Но проблема в том что при открытие программы не успевает обработать и загрузить появляется ошибка нет файла.
Из вашего сообщения не понятно, что и в каких объёмах пишется в файл.
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.

Последний раз редактировалось Kailon, 19.03.2022 в 14:37.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:13.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter