Всё работает нормально и без ошибок.
Код:
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
Здравствуйте, проблема в следующем мне нужно что бы при запуске программы создавался файл в определенную директорию и сразу его подгружать в Мемо. Но проблема в том что при открытие программы не успевает обработать и загрузить появляется ошибка нет файла.
|
Из вашего сообщения не понятно, что и в каких объёмах пишется в файл.
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|