Да, пример использования для проверки:
1. Кидаем на форму Memo1 и Button1.
2. Подключаем модуль.
3. Пишем такой код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
M : TTextFileManager;
begin
M := TTextFileManager.Create(Self);
Try
Memo1.Lines.Text := M.Load('c:\ansi.txt');
Finally
M.Free;
End;
end;
ЗЫ. файл лежит в корне диска C:
Особо пытливые могут прикрутить выбор файла через диалог.
Файлы можно формировать с помощью стандартного нотепада.
Поддерживаются Ansi, UTF8. При попытке открыть Unicode будет эксепшн (ну не сделал пока, желаюшие из проекта могут попробовать дописать).
Все файлы, не распознанные как UTF8 или Unicode, открываются как ansi, т.е. считаются чистым текстом.