|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Сохранения и загрузка из файла данных
Здравствуйте, проблема в следующем мне нужно что бы при запуске программы создавался файл в определенную директорию и сразу его подгружать в Мемо. Но проблема в том что при открытие программы не успевает обработать и загрузить появляется ошибка нет файла. Но при повторном запуске все хорошо ну это логично потому что файл уже существует.
Вообщем как мне сделать задержку или есть какой то оператор что пока не сохранится файл с данными программу не открываю и только после этого открыть форму программы и загрузить с чистой душой и без ошибок файл с данными в мемо. Прошу помощи! |
#2
|
||||
|
||||
Я вижу два пути.
Первый, самый простой - когда приложение запустилось, перед командой загрузки из файла в Мемо проверять, существует ли этот файл (кажись if FileExsists... или что-то в этом роде). Если не существует - тогда его создать, и только после этого загружать (если имеет смысл грузить в Мемо пустой файл). Второй путь - приложение с несколькими формами. Первая - стартовая, загрузочная (можно с прогресс-баром, если проект сложный), делает все действия (проверяет наличие файла, загружает в Мемо и т.п.), после чего запускает создаёт вторую форму и запускает её в модальном режиме. Вторая форма при этом в настройках проекта должна быть удалена из раздела "Auto-created Forms", т.к. её создание будет прописываться в коде. |
#3
|
||||
|
||||
Всё работает нормально и без ошибок.
Код:
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; Цитата:
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. Последний раз редактировалось Kailon, 19.03.2022 в 14:37. |