Программа для просмотра содержимого текстового файла.
1. На пустую форму нанести компонент TOpenDialog, кнопку TButton и многострочное поле TMemo.
2. При работе программы щелчок по кнопке будет сигналом о необходимости загрузить в поле новый файл.
3. Procedure TForm1.Button1Click (Sender: TObject);
Begin
// настраиваем компонент на отбор текстовых файлов
OpenDialog1.Filter := ‘Текстовые файлы|*.txt|’+’Bat файлы |*.bat|’;
// выполняем диалог и анализируем его результат
If OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
//Результат успешный – пользователь выбрал файл
//загружаем файл в поле Memo
Memo1.Lines.LoadFromFile (OpenDialog1.FileName)
End;